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 

VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP
'/*========================================================================='*IntroVBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP'*FileNameVBScript-ADSI-IIS-Add-Deny-Grant-IP-Change-Me

WMI IE代理 切换或改变(Use WMI Change IE Proxy)
将下面的代码，保存为vbs即可IfWScript.Arguments.Count=0ThenGetI=-1ElseGetI=CInt(WScript.Arguments(0))EndIfCallYourCode()'把你弄到的代理都写在一个文本文件里（IP.txt），

SendKeys clip.exe 发送中文的代码
SetWshShell=CreateObject("WScript.Shell")code="让SendKeys可以发送中文"WshShell.Run"cmd.exe/cecho"&code&"|clip.exe",vbHideapp=WshShell.Run("notepad")WScript.Sleep1000WshShell.AppActivateappWshSh