Načtení uživatelského jména ... PLS – Visual Basic – Fórum – Programujte.com

Ahoj,
potřeboval bych poradit jak "donutim" VB aby mi zjistil který uživatel je přihlášen k počítači na kterém je spuštěn, popřípadně na jakémkoli jiném PC v síti. Samozřejmě pro systém WinXP přihlášen do domény. Tedy aby formát uživatelského jména byl např. "Programujteadmin".

Použij API funkci:

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

Ja len doplním, že na zistenie mena počítača sa používa API: :D
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer$, nSize As Long) As Long

omlouv?m se ?e sem to nenapsal rovnou ale myslel ?e to bude jednoduch?? a nevím jak to m?m pou??t (jsem ve VB naprost? za??te?n?k) :( a tak? jak to jm?no ulo??m do prom?n?

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

Private Sub Command1_Click()
Dim strUserName As String
strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)
Print strUserName
End Sub

Díky moc :ok: