可以查询系统用户名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



相关阅读:
Oracle数据库频繁归档问题的解决办法
让你成为更出色的PHP开发者的10个技巧
处理大量JavaScript对象的好选择:JSON
php 在文件指定行插入数据的代码
有针对性Windows7系统服务清理方案
七步骤建立更加可靠的Linux系统
15个必须阅读的CSS入门文章
PHP在特定目录中找特定类型的文件
Windows Vista IIS 7.0开启方法(图)
VBScript 作用 简单说明
Can''t create/write to file ''C:\WINDOWS\TEMP\...MYSQL报错解决方法
SlackWare Linux下恢复root丢失密码口令
SQLServer2000汉字数据简繁转换实例
第4章 数据处理-php数组的处理-郑阿奇
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4