[VB] Registrykey Uitlezen

[Verwijderd]

Hoi,

Ik heb ff een vraagje.
Is er iemand hier die weet hoe je de aangelogde gebruikersnaam uit het register kan halen.

Bv: Ik log aan bij W2K als Username: Silverlinx, Password: Pietje.

Hoe kan ik dan met VB (Versie 5 of hoger) die Username Silverlinx uit het register plukken?

Bvd.

[Verwijderd]

Weet niet zeker of het ook werkt onder VB5, maar:

code:

MsgBox Environ("UserName")

is volgens mij wat jij zoekt...

p.s. Usernaam staat niet in het register, maar in de SAM...

[Verwijderd]

2 vraagjes:
1: Onder welke versie werkt het zeker weten?
2: SAM ??? Wat is dat?

En volgens mij hebben we hier een misverstand, want wat doet deze regkey dan???

Locatie:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\
Key:
"Logon User Name" value=Silverlinx

Maar goed, ik ga je optie iig wel ff proberen, dus Thnx anyway.

Op woensdag 05 december 2001 11:59 schreef KingGeorge het volgende:
Weet niet zeker of het ook werkt onder VB5, maar:

code:

MsgBox Environ("UserName")

is volgens mij wat jij zoekt...

p.s. Usernaam staat niet in het register, maar in de SAM...

[Verwijderd]

Je hebt er een speciale API call voor 'getUser' ik weet niet uit m'n hoofd in welke dll hij staat. Op www.pscode.com staan er een aantal voorbeelden van, zoek naar 'NT User' in 'Visual Basic' world

[mulder]

Zoek effe voor een class die dit allemaal bevat. Er zijn een heel aantal API's beschikbaar, vaak zijn deze indergebracht in een class. VB heeft standaard registryfuncties, maar deze zijn beperkt tot een bepaalde plek in je registry.

[Verwijderd]

Werkt zeker onder VB6, maar wel met een produkt uit de Windows NT lijn...

Onder Windows 98 zou ik het zo snel niet weten, maar wellicht is het daar handig om de user uit de registry te lezen. Voorwaarde is wel dat de key op elk systeem bestaat... (Duh)

[Verwijderd]

Thnx voor de reacties.

Ik ga verder zoeken.

[Verwijderd]

code:

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function Username() As String
    Dim StrTmp As String * 128
    Dim RetVal As Long
    
    RetVal = GetUserName(StrTmp, 128)
    Username = StrTmp
End Function