复制代码 代码如下:
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
您可能感兴趣的文章:
- ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数
- vbs版IP地理位置查询小偷
- vbs版sql查询分析器lcx作品
- 字符ANSI代码查询工具vbs版
- QueryCode.vbs 文本文件编码查询工具
- 通过IIS自带工具Iisapp.vbs查询哪个w3wp.exe站点占用资源(cpu或内存)
- VBS实现查询服务的制造商
本文由 华域联盟 原创撰写:华域联盟 » 可以查询系统用户名sid的vbs
转载请保留出处和原文链接:https://www.cnhackhy.com/15561.htm