Hjælp til ADSI
Jeg har nedenstående kode, som skal checke om en bruger er i lokaladministrator gruppen.Problemet er at strUser er i formatte "domain\username"
og objLocalAdmin.Name er i formatet "username"
Hvordan løser jeg dette, for der kan jo godt være en anden bruger der hedder det samme oprettet lokalt, som også er i administrator gruppen.
Yderligere vil jeg gerne vide hvordan jeg kan finde ud af hvilke andre labels ud over "Name" jeg kan hente ud.
'-------- Kode ------------------
Sub SetAdminRights
Dim objLocalGroup, objLocalAdmin
Set objLocalGroup = GetObject("WinNT://./Administrators,group")
'Check if the username is added directly to the local admin group
For Each objLocalAdmin In objLocalGroup.Members
If LCase(strUser) = LCase(objLocalAdmin.Name) Then
WScript.Echo "JAAA"
Else
WScript.Echo "NOOO"
WScript.Echo "USER: " & strUser
WScript.Echo "MEMBER: " & objLocalAdmin.Name
End If
Next
Set objLocalGroup = Nothing
End Sub