Displaye min SID i en msgbox

Jeg har fundet dette til den modsatte vej

strComputer = "."
strSID = "S-1-5-21-4669955-1359179607-1119046862-1609"

Set objWMIService = _
    GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objSID = objWMIService.Get("Win32_SID='" & strSID & "'")

WScript.Echo objSID.ReferencedDomainName & "\" & _
    objSID.AccountName

Set oNet = WScript.CreateObject("WScript.Network")

sObject = "winmgmts://" & oNet.UserDomain & "/root/cimv2"
sGet = "Win32_UserAccount.Domain='" & oNet.UserDomain & "'" & ",Name='" & oNet.UserName & "'"

Set oAccount = GetObject(sObject).Get(sGet)

MsgBox oAccount.SID

Den returnerer Fejl på Getobject Code 800A01CE