Ricavare il SID dell’utente corrente tramite VBScript

Nato da una richiesta sul forum ecco il codice per ricavare via VBS il SID dell’utente corrente (locale o di dominio):

Option Explicit
Dim objWshNetwork, objUserAccount, strUserSID
Set objWshNetwork = CreateObject(“WScript.Network”)
Set objUserAccount = GetObject(“winmgmts://./root/cimv2”) _
.Get(“Win32_UserAccount.Domain='” & objWshNetwork.UserDomain & “‘” _
& “,Name='” & objWshNetwork.UserName & “‘”)

strUserSID = objUserAccount.SID
WScript.Echo “Current SID: ” & strUserSID
Set objWshNetwork=Nothing
Set objUserAccount=Nothing