ACC2000: How to Retrieve Workgroup Information Under Win32

Option Explicit
Type WKSTA_INFO_101
   wki101_platform_id As Long
   wki101_computername As Long
   wki101_langroup As Long
   wki101_ver_major As Long
   wki101_ver_minor As Long
   wki101_lanroot As Long
End Type

Type WKSTA_USER_INFO_1
   wkui1_username As Long
   wkui1_logon_domain As Long
   wkui1_logon_server As Long
   wkui1_oth_domains As Long
End Type

Declare Function WNetGetUser& Lib "Mpr" Alias "WNetGetUserA" _
   (lpName As Any, ByVal lpUserName$, lpnLength&)
Declare Function NetWkstaGetInfo& Lib "Netapi32" _
   (strServer As Any, ByVal lLevel&, pbBuffer As Any)
Declare Function NetWkstaUserGetInfo& Lib "Netapi32" _
   (reserved As Any, ByVal lLevel&, pbBuffer As Any)
Declare Sub lstrcpyW Lib "Kernel32" (dest As Any, ByVal src As Any)
Declare Sub lstrcpy Lib "Kernel32" (dest As Any, ByVal src As Any)
Declare Sub RtlMoveMemory Lib "Kernel32" _
   (dest As Any, src As Any, ByVal size&)
Declare Function NetApiBufferFree& Lib "Netapi32" (ByVal buffer&)
						

Function GetWorkstationInfo()
   Dim ret As Long, buffer(512) As Byte, i As Integer
   Dim wk101 As WKSTA_INFO_101, pwk101 As Long
   Dim wk1 As WKSTA_USER_INFO_1, pwk1 As Long
   Dim cbusername As Long, username As String
   Dim computername As String, langroup As String, logondomain As _
      String

   ' Clear all of the display values.
   computername = "": langroup = "": username = "": logondomain = ""

   ' Windows 95 or NT - call WNetGetUser to get the name of the user.
   username = Space(256)
   cbusername = Len(username)
   ret = WNetGetUser(ByVal 0&, username, cbusername)
   If ret = 0 Then
      ' Success - strip off the null.
      username = Left(username, InStr(username, Chr(0)) - 1)
   Else
      username = ""
   End If

'==================================================================
' The following section works only under Windows NT or Windows 2000
'==================================================================

   'NT only - call NetWkstaGetInfo to get computer name and lan group
   ret = NetWkstaGetInfo(ByVal 0&, 101, pwk101)
   RtlMoveMemory wk101, ByVal pwk101, Len(wk101)
   lstrcpyW buffer(0), wk101.wki101_computername
   ' Get every other byte from Unicode string.
   i = 0
   Do While buffer(i) <> 0
      computername = computername & Chr(buffer(i))
      i = i + 2
   Loop
   lstrcpyW buffer(0), wk101.wki101_langroup
   i = 0
   Do While buffer(i) <> 0
      langroup = langroup & Chr(buffer(i))
      i = i + 2
   Loop
   ret = NetApiBufferFree(pwk101)

   ' NT only - call NetWkstaUserGetInfo.
   ret = NetWkstaUserGetInfo(ByVal 0&, 1, pwk1)
   RtlMoveMemory wk1, ByVal pwk1, Len(wk1)
   lstrcpyW buffer(0), wk1.wkui1_logon_domain
   i = 0
   Do While buffer(i) <> 0
      logondomain = logondomain & Chr(buffer(i))
      i = i + 2
   Loop
   ret = NetApiBufferFree(pwk1)

'================================================================
'End NT/Windows 2000-specific section
'================================================================

   debug.print computername, langroup, username, logondomain
End Function
					

GetWorkstationInfo
						

Option Explicit

Private Declare Function GetComputerName _
Lib "kernel32" Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, nSize As Long) As Long

Private Const MAX_COMPUTERNAME_LENGTH As Long = 15&

Public Function CurrentMachineName() As String
Dim lSize As Long
Dim sBuffer As String
sBuffer = Space$(MAX_COMPUTERNAME_LENGTH + 1)
lSize = Len(sBuffer)

   If GetComputerName(sBuffer, lSize) Then
       CurrentMachineName = Left$(sBuffer, lSize)
   End If

End Function
						

?CurrentMachineName()