It's at the bottom of every posting to the list.
List Archive:
http://www.mail-archive.com/imail_forum%40list.ipswitch.com/
However, best bet is to google the list archive, as mail-archive's search
capabilities are extremely limited.
The scripts I use list domains and users, but not passwords. Others have
posted scripts to decrypt the password for an individual email address,
which I've adapted slightly for our use.
I've attached both scripts as text files. Feel free to alter/combine as
needed.
Replied to the list in case others need these.
Darin.
----- Original Message -----
From: "Thomas Alombro" <[EMAIL PROTECTED]>
To: "Darin Cox" <[EMAIL PROTECTED]>
Sent: Thursday, February 16, 2006 5:12 PM
Subject: RE: [IMail Forum] Dumping Imail user accounts with passwords to
text
Hi Darin,
I must be missing it, but I have not been able to find an archive of
this list. I would have looked there before posting, but the Ipswitch
website did not have any archive link that I could find. I also checked
the utilities section of the Ipswitch site and the one that looks like
what I am looking for is no longer available.
We do run from registry for now, but the scripts I have will not go as
far as reporting for an entire domain with both user and pass.
Thomas
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Darin Cox
Sent: Thursday, February 16, 2006 1:13 PM
To: [email protected]
Subject: Re: [IMail Forum] Dumping Imail user accounts with passwords to
text
Look in the archives. If you run from the registry several people,
myself included, have posted VBS scripts to do this, and there are
utilities to do it as well.
Darin.
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Thursday, February 16, 2006 3:21 PM
Subject: [IMail Forum] Dumping Imail user accounts with passwords to
text
I am looking for a way to dump about 350 user accounts with
corresponding
passwords to text. I have a script that can look up passwords, but it
does
not report the user name of the account.
I found a Perl script used to import to @tmail, but without major
reworking,
it looks like it will not be usable for what I need to do.
Does anyone have an existing script to do this that they would be
willing to
share?
Thomas Alombro
System Administrator
[EMAIL PROTECTED]
To Unsubscribe: http://www.ipswitch.com/support/mailing-lists.html
List Archive:
http://www.mail-archive.com/imail_forum%40list.ipswitch.com/
Knowledge Base/FAQ: http://www.ipswitch.com/support/IMail/
To Unsubscribe: http://www.ipswitch.com/support/mailing-lists.html
List Archive:
http://www.mail-archive.com/imail_forum%40list.ipswitch.com/
Knowledge Base/FAQ: http://www.ipswitch.com/support/IMail/
option explicit
Dim WshShell, objArgs, domain, username, passwordEncrypted, password
Dim count, characterU, characterP, asciiU, asciiTotal, asciiP, tempnumber1,
tempNumber2
Dim uCount, emailAddress, splitemail
set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
emailAddress = lcase(trim(objArgs(0)))
splitEmail = split(emailAddress,"@")
username = splitEmail(0)
domain = splitEmail(1)
passwordEncrypted = WshShell.RegRead("HKLM\Software\IPSwitch\IMail\Domains\" &
domain & "\Users\" & username & "\Password")
count = 1
Ucount = count
password = ""
do until (count * 2) > len(passwordEncrypted)
characterU = right(left(username, Ucount),1)
characterP = right(left(passwordEncrypted, count * 2), 2)
tempNumber1 = left(characterP, 1)
select case left(characterP, 1)
case "A"
tempNumber1 = 10
case "B"
tempNumber1 = 11
case "C"
tempNumber1 = 12
case "D"
tempNumber1 = 13
case "E"
tempNumber1 = 14
case "F"
tempNumber1 = 15
end select
tempNumber2 = right(characterP, 1)
select case right(characterP, 1)
case "A"
tempNumber2 = 10
case "B"
tempNumber2 = 11
case "C"
tempNumber2 = 12
case "D"
tempNumber2 = 13
case "E"
tempNumber2 = 14
case "F"
tempNumber2 = 15
end select
asciiTotal = (16 * tempNumber1) + tempNumber2
asciiU = asc(characterU)
asciiP = asciiTotal - asciiU
password = password & chr(asciiP)
count = count + 1
if Ucount = len(username) then
Ucount = 1
else
Ucount = Ucount + 1
end if
loop
Wscript.echo password
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer
& "\root\default:StdRegProv")
strKeyPath = "Software\Ipswitch\IMail\Domains"
' List the Domain keys
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
If left(subkey,8) <> "$virtual" Then
' Find the domains keys with a Users key
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey, arrSubKeys2
If not isnull(arrSubKeys2) Then
For Each subkey2 In arrSubKeys2
If subkey2 = "Users" Then
StdOut.WriteLine "Domain: " & subkey
' List the users
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey &
"\Users", arrSubKeys3
If not isnull(arrsubkeys3) Then
For each subkey3 in arrSubKeys3
If subkey3 <> "_aliases" and subkey3 <> "root" Then
StdOut.Write " " & subkey3
' Are they admins?
strValueName = "Flags"
oReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath & "\" &
subkey & "\Users" & "\" & subkey3, strValueName, dwValue
'bitHostAdmin = dwValue AND 0x100
If (dwValue AND &H100) Then StdOut.Write " (Host Admin)"
If (dwValue AND &H200) Then StdOut.Write " (Imail Admin)"
If (dwValue AND &H400) Then StdOut.Write " (List Admin)"
StdOut.WriteLine
End If
Next
End If
' List the aliases
oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey &
"\Users\_aliases", arrValueNames, arrValueTypes
If not isnull(arrValueNames) Then
For i = 0 to UBound(arrValueNames)
' If ValueName <> "postmaster" Then
oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" &
subkey & "\Users\_aliases", arrValueNames(i), strValue
StdOut.Write " " & arrValueNames(i) & " (alias -> " & strValue
& ")"
StdOut.WriteLine
Next
End If
End If
Next
End If
End If
Next
