Get current user SID, VBS, WMI

sid.vbs

Dim ADSysInfo
Dim sUserName
Dim objWMIService

Set ADSysInfo = CreateObject("ADSystemInfo")
Set sUserName = GetObject("LDAP://" & ADSysInfo.UserName)

strComputer = "."
strResult = ""
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
For Each objAccount in objWMIService.InstancesOf("Win32_UserAccount")
	if objAccount.Name = sUserName.cn then
		strResult = strResult & objAccount.Domain & "\" & objAccount.Name & ": " & objAccount.FullName & " => " & objAccount.SID & vbCR
	end if
Next
Wscript.Echo strResult