Hej! Har haft svårt att hitta någon snygg version. Osäker, men jag tror den här funktione bara fungerar under NT/win2000:Get Domain med hjälp av API?
Jag vill få reda på vilken domän jag är inloggad mot med hjälp av API anrop. Om det är någon som har ett exempel så skulle jag vara väldligt tacksam.
tack på förhand/Peter Sv: Get Domain med hjälp av API?
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, _
ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Function GetUserDomain() As String
Dim lpBuffer As String
Dim nSize As Long
Dim lReturn As Long
nSize = 255
lpBuffer = String(nSize, 0)
lReturn = GetEnvironmentVariable("USERDOMAIN", lpBuffer, nSize)
If lReturn > 0 Then
GetUserDomain = Left(lpBuffer, lReturn)
End If
End Function