funktion til at kontrollerer hvilken netværksgrupe der er logget på

Mener du hvilket domæne? I så fald kan nedenstående klare det.
Brug fUserNTDomain til at udtrække domænenavnet

Private Type WKSTA_USER_INFO_1
  wkui1_username As Long    \'name of the user _
                              currently logged on _
                              to the workstation.
  wkui1_logon_domain As Long \'the domain name of _
                              the user account of the _
                              user currently logged on
  wkui1_oth_domains As Long  \'list of other LAN _
                              Manager domains browsed _
                              by the workstation.
  wkui1_logon_server As Long \'name of the computer _
                              that authenticated the _
                              server
End Type

Private Declare Function apiWkStationUser Lib \"Netapi32\" _
  Alias \"NetWkstaUserGetInfo\" _
  (ByVal reserved As Long, _
  ByVal Level As Long, _
  bufptr As Long) _
  As Long
 
Private Declare Function apiStrLenFromPtr Lib \"kernel32\" _
  Alias \"lstrlenW\" _
  (ByVal lpString As Long) _
  As Long

Private Declare Sub sapiCopyMemory Lib \"kernel32\" _
  Alias \"RtlMoveMemory\" _
  (hpvDest As Any, _
  hpvSource As Any, _
  ByVal cbCopy As Long)


Public Function fUserNTDomain() As String
\'*******************************************
\'Name:          fUserNTDomain  [NT ONLY] (Function)
\'Purpose:      Find NT Domain name of current user
\'Author:        Dev Ashish
\'Date:          Thursday, January 14, 1999
\'Called by:    Any
\'Calls:        NetWkstaUserGetInfo, RTLMoveMemory
\'Inputs:        None
\'Returns:      NT Domain Name of Current User
\'*******************************************
On Error GoTo ErrHandler
  Dim lngRet As Long
  Dim lngPtr As Long
  Dim tNTInfo As WKSTA_USER_INFO_1
 
  lngRet = apiWkStationUser(0&, 1&, lngPtr)
  If lngRet = 0 Then
    Call sapiCopyMemory(tNTInfo, ByVal lngPtr, LenB(tNTInfo))
    If Not lngPtr = 0 Then
      With tNTInfo
        fUserNTDomain = fStringFromPtr(.wkui1_logon_domain)
      End With
    End If
  End If

ExitHere:
  Exit Function
ErrHandler:
  fUserNTDomain = vbNullString
  Resume ExitHere
End Function

Private Function fStringFromPtr(lngPtr As Long) As String
Dim lngLen As Long
Dim abytStr() As Byte
  lngLen = apiStrLenFromPtr(lngPtr) * 2
  If lngLen > 0 Then
    ReDim abytStr(0 To lngLen - 1)
    Call sapiCopyMemory(abytStr(0), ByVal lngPtr, lngLen)
    fStringFromPtr = abytStr()
  End If
End Function

/Thomas

Hej Thomas,
her hos mig returnerer funktionen (system id), hvilket er id\'et for min maskine.

lukket, løst problemet på anden vis