✔ SID auf Windows 2000 Sp4

[derfragende79]

Hallo zusammen,

ich habe vor längerem ein Skript geschrieben, in dem die SID des angemeldeten Benutzers ausgelesen wird. Der folgende Teilcode zeigt den Kern der für das ermitteln der SID verantwortlich ist. (ist aber so nicht lauffähig)

  ' Ermittelt die SID für den aktuellen Benutzer. Start
 lngRtn = objReg.EnumKey(&H80000003 , "", arrRegKeys) 
 For Each strKey In arrRegKeys
  If UCase(strKey) = ".DEFAULT" Or _
   UCase(Right(strKey, 8)) = "_CLASSES" Then   
  Else
   Set objSID = objWbem.Get("Win32_SID.SID='" & strKey & "'")
   If ((objSid.AccountName = s_CurrentUser) = True) Then 
	s_CurrentUserSID = strKey 
   End If
  End If
 Next

Nun habe ich folgendes Problem: Mit dem Update von Sp3 auf Sp4 steht diese Methode nicht mehr zur Verfügung.
Hat jemand eine Idee wie man dass auch anders realisieren könnte.

Grüße

 

[derfragende79]

Selber gefunden.

strUser = "MeinUser"
On Error Resume Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Account Where Name = '" & strUser & "'",,48)

For Each objItem in colItems 

if(strUser = objItem.Name )Then 

strTest = objItem.SID 

Exit For

end if 

Next

MsgBox(strTest)