龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

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

时间:2014-06-29 15:00来源:网络整理 作者:网络 点击:
分享到:
一段可以查询系统用户名的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

精彩图集

赞助商链接