' SID eines Benutzers ermitteln /js

strSearch = InputBox("Zu welchem Namen wird die SID gesucht?")
Set objWMI = GetObject("winmgmts:")
strWQL = "select SID from win32_account where Name='" & strSearch & "'"
Set objResult = objWMI.ExecQuery(strWQL)
For Each objAcc In objResult
strResult = objAcc.SID
Next
InputBox "Die SID von " & strSearch & " lautet: ", , strResult