可以查询系统用户名sid的vbs.doc

　　一段可以查询系统用户名的sid的vbs代码
　　代码如下:
　　set path=wscript.createobject("wscript.shell")
　　usera=path.ExpandEnvironmentStrings("%username%")
　　name=inputbox("请输入你要查询的用户名","sid查询--by不追不悔",usera)
　　strComputer = "."
　　Set wbemServices = Getobject("winmgmts:\\" & strComputer)
　　Set wbemObjectSet=wbemServices.execquery("select sid from win32_userAccount where name='"&name&"'")
　　For Each mo In wbemObjectSet
　　sSID = mo.sid
　　Next
　　If(sSID = "")Then
　　WScript.Echo "对不起，无此用户"
　　Else
　　WScript.Echo sSID
　　End If