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