Exchange 2007–>Bulk Create Mailbox

Create a CSV file with columns as below: Database Password Name  OU Alias fqdn   ##Create password as secure string $data = import-csv $args[0] ## Create a function to convert password into a secure string function New-SecureString([string] $plainText) { $secureString = new-object System.Security.SecureString foreach($char in $plainText.ToCharArray()) { $secureString.AppendChar($char) } $secureString } foreach ($i in $data)…

MailBox Report -Exchange 2007

Very well formated report in HTML format email to your email address: Taken from some other site but successfully tested. just change email address to your email address & ip address to ipaddress of your SMTP server.  $message = new-object System.Net.Mail.MailMessage(“email@email.com“, “email@email.com“) $message.IsBodyHtml = $True $message.Subject = “Automated E-Mail Quota Report” $smtp = new-object Net.Mail.SmtpClient(“ipaddress“)…

Excel macro for Changing the Email address in Lotus Domino

This macro when run can read the Excel file & replace the old email address in person record with new email address.   Excel Format: Macro:   Sub ModifyForwardingaddress() s.Initialize Dim extendedaddressbook As NotesDatabase Dim view As NotesView Dim result As NotesDocumentCollection Dim entry As NotesDocument Set extendedaddressbook = s.GetDatabase(“”, “xdir.nsf”, False) For i = 2…

CSV parser using Vb Script

This csv parser can parse eventvwr events.. Dim openfile Dim strnextline Dim intsize Dim i intsize = 0 Const forreading = “1” csvpath = “c:\applog.csv” Searchstring = “,” Errorcode = “1054” Set fso = WScript.CreateObject(“Scripting.Filesystemobject”) Set openfile = fso.OpenTextFile(csvpath,forreading) strnextline = openfile.ReadLine Do Until openfile.AtEndOfStream strnextline = openfile.ReadLine If InStr(strnextline,Searchstring)Then If InStr(strnextline,Errorcode)Then ShowMessage(Split(strnextline,”,”)) WScript.Echo(“all done”)…