Ottengo 0

codice:
Dim SID As String
Dim objWMIService As Object
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objAccount = objWMIService.Get("Win32_UserAccount.Name='Administrator',Domain='Environ("COMPUTERNAME")'")
SID = Left(objAccount.SID, Len(objAccount.SID) - 4)
A me serve ottenere il sid in formato stringa per poterlo gestire in un metodo.