If you're a Windows user and run Imail, there is a nice program that can create these lists as well as several other reports. It is called IPlus Info Browser (IPB). Check it out at http://www.martekware.com.
> -----Original Message----- > From: [EMAIL PROTECTED] [mailto:assp-user- > [EMAIL PROTECTED] On Behalf Of Matti Haack > Sent: Wednesday, August 16, 2006 8:54 AM > To: [email protected] > Subject: [Assp-user] ASSP with Imail - Scripts to export Users and > Domainsand all Aliasses > > Hello, > > for anybody, who uses Imail and likes to test ASSP, I just created some > scripts to > export Users and Domains for ASSP. It is designed to work only with > Imails virtual Domains. > > Works great for us with 230+ Domains and aprox 1000 Users. > > They are quick and dirty and "compiled" from the scripts mentioned > here some times ago. > I run the batch in a scedule to sync imail with assp. > > a) imail-adresses.vbs > Prints out all valid email Adresse for all Domains, Users, > Domain- and User-Aliases > ------------------------------------------------------------ > > 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 > > > > ' List the aliases > oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey > &"\Users\_aliases", arrValueNames, arrValueTypes > > If not isnull(arrValueNames) Then > nobody=0 > For i = 0 to UBound(arrValueNames) > if arrValueNames(i)="nobody" then nobody=1 > next > > For i = 0 to UBound(arrValueNames) > > oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" > &subkey & "\Users\_aliases", arrValueNames(i), strValue > oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" > &subkey , "Address", address > > strValueName = "Aliases" > oReg.GetMultiStringValue HKEY_LOCAL_MACHINE, strKeyPath & > "\" &address , strValueName, arrValues > > > if arrValueNames(i)<>"nobody" then > if nobody=0 then StdOut.writeline > arrValueNames(i)& "@" & subkey > else > StdOut.WriteLine "@" & subkey > end if > > If not isnull(arrValues) Then > For each alias in arrValues > if arrValueNames(i)<>"nobody" then > if nobody=0 then StdOut.writeline > arrValueNames(i)&"@"&alias > else > StdOut.WriteLine "@" & alias > end if > > > Next > End If > > Next > End If > ' 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" Then > > if nobody=0 then StdOut.WriteLine subkey3 & "@" & subkey > If not isnull(arrValues) Then > > For each alias in arrValues > if nobody=0 then StdOut.writeline subkey3 > &"@"&alias > next > End If > End if > Next > End If > > End If > > Next > End If > > End If > Next > StdOut.writeline "root" > StdOut.writeline "postmaster" > ------------------------------ > > > > > > b) imail-domains.vbs > Prints all Local Domains/Domainaliases: > ------------------------------ > > 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 > > strValueName = "Official" > oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" &subkey , > strValueName, strValue > > StdOut.WriteLine strValue > > strValueName = "Aliases" > oReg.GetMultiStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" &subkey > , strValueName, arrValues > For Each strValue In arrValues > StdOut.WriteLine strValue > Next > end if > > Next > > ' Put the Domainaliases and domain of your Local Host here: > StdOut.WriteLine "mail.internethit.de" > StdOut.WriteLine "haack-it.de" > StdOut.WriteLine "haack-it.at" > > ------------------------------------- > > > > c) domains.bat > a batchfile wich combines everything: > ------------------------------------- > > cscript imail-adresses.vbs //NoLogo > h:\assp\users.txt > cscript imail-domains.vbs //NoLogo > h:\assp\domains.txt > > ------------------------------------- > > > Greetings > Matti > > > > - > Matti Haack - Hit Haack IT Service Gmbh > Poltlbauer Weg 4, D-94036 Passau > +49 851 50477-22 Fax: +49 851 50477-29 > http://www.haack-it.de > > > > Dieses Dokument ist ausschliesslich fuer den Adressaten bestimmt. > Jegliche Art von Reproduktion, Verbreitung, Vervielfaeltigung, > Modifikation, > Verteilung und/oder Publikation dieser E-Mail-Nachricht ist untersagt, > soweit dies nicht ausdruecklich genehmigt wurde. Jegliche Haftung fur > Ansprueche, die aufgrund der Kommunikation per E-Mail begruendet > werden koennten, ist ausgeschlossen, soweit der Haftungsausschluss > gesetzlich zulaessig ist. > > -- Ausgehende E-Mail wurde auf Viren gescannt -- > > ------------------------------------------------------------------------- > Using Tomcat but need to do more? Need to support web services, security? > Get stuff done quickly with pre-integrated technology to make your job > easier > Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo > http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 > _______________________________________________ > Assp-user mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/assp-user ------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642 _______________________________________________ Assp-user mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/assp-user
