Another minor update to the Exchange 2007 backup script

Posted on August 11, 2008 by Scott — No Comments ↓

Articles in the "Report Last Backup of Exchange 2007" series

PowerShell script to report last successful full backup of Exchange 2007
Updated Exchange 2007 database backup script
Another minor update to the Exchange 2007 backup script [This article]
Exchange 2007 backup script updated to v1.2
Exchange 2007 backup script updated to v1.3
Minor update to last backup report (1.3.1)

Version 1.11 correctly resets the checkmark status during each loop; when cleared before because no backup has taken place, it remained as a null value for later backups that were successful. Updated version is available here.

Previous in series | | Next in series

Updated Exchange 2007 database backup script

Posted on August 8, 2008 by Scott — No Comments ↓

Articles in the "Report Last Backup of Exchange 2007" series

PowerShell script to report last successful full backup of Exchange 2007
Updated Exchange 2007 database backup script [This article]
Another minor update to the Exchange 2007 backup script
Exchange 2007 backup script updated to v1.2
Exchange 2007 backup script updated to v1.3
Minor update to last backup report (1.3.1)

I have made some minor updates to my PowerShell script that reports (and emails) the last backup of each database in your organization. I was referencing the wrong variable when looping through the databases in a storage group, so each storage group in the report listed all the databases on the server. I also change the formatting a little so the text in different table cells in the same row actually look to be in the same row (the checkmark was offsetting that cell a bit). You can download v1.1 here.

Previous in series | | Next in series

PowerShell script to report last successful full backup of Exchange 2007

Posted on July 22, 2008 by Scott — 7 Comments ↓

Articles in the "Report Last Backup of Exchange 2007" series

PowerShell script to report last successful full backup of Exchange 2007 [This article]
Updated Exchange 2007 database backup script
Another minor update to the Exchange 2007 backup script
Exchange 2007 backup script updated to v1.2
Exchange 2007 backup script updated to v1.3
Minor update to last backup report (1.3.1)

This script is a port of my original backup report that was written in VBScript. That script reports on both 2003 and 2007 servers, but lacked some of the features that I wanted to put in. PowerShell natively supports date-awareness, which makes it much easier to add the number one feature I wanted to add: highlighting servers that haven’t had backups since a specified period of time.

Because I am using the native Exchange cmdlets instead of WMI or CDOEXM, this only reports on Exchange 2007 servers. I figure accommodating both is more work than it is worth, so I just modified my VBScript version to not include any server in the Exchange 12 admin group and I have both run every day until my migration to 2007 is complete.

The script reports the last successful full backup of any Exchange 2007 server with the mailbox role installed. It checks for the presence of storage groups and databases within them. It notes if a backup is currently in progress, as well as if a backup has never completed. If a backup has not completed in the last 72 hours (modifiable), it is highlighted in red so it is easy to spot. If a backup is less than the defined number of hours old, I use the Marlett font to display a green checkmark. This allows for a checkmark without having to reference an external image or embed one. Lastly, the report is emailed. The script is shown below, but you can also just download it.

#Last Backup Report for Exchange 2007 servers
#Version 1.0 - 7/9/08
#--------------------------------------------

#Begin customization-------------------------
$SmtpServer = "server.domain.com" #Enter FQDN of SMTP server
$SmtpFrom = "Exchange Backups &lt;exchangebackupreport@domain.com&gt;" #Enter sender email address
$SmtpTo = "user1@domain.com","user2@domain.com" #Enter one or more recipient addresses in an array
$SmtpSubject = "Exchange 2007 Last Backup Report" #Enter subject of message
$iNomHours = "72" #Enter number of hours since last backup that requires attention
#End customization---------------------------

$date = Get-Date
$sSpace = "&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;"
$sOutput = "&lt;table&gt;"

#Checkmark to indicate last backup within nominal time
$sCheckMark = "&lt;span style=""font-family: Marlett; color: green; font-size: 14pt; font-weight: bold""&gt;a&lt;/span&gt;"

#Retrieve Exchange servers with mailbox role
$ExServer = Get-ExchangeServer | where {$_.IsMailboxServer -eq $True} | Sort-Object Name
Foreach ($server in $ExServer)
	{
	$sOutput += "&lt;tr&gt;&lt;td&gt;&lt;font size=2&gt;&lt;u&gt;&lt;b&gt;$server&lt;/b&gt;&lt;/u&gt;&lt;/font&gt;&lt;/td&gt;&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;"
	#Retrieve storage groups for a given server
	$StorageGroup = $server | Get-StorageGroup | Sort-Object Name
	#Check for absence of any storage groups
	If (($StorageGroup | Measure-Object Name).Count -eq $null)
		{
		$sOutput += "&lt;tr&gt;&lt;td&gt;&lt;font size=2&gt;" + $sSpace + "No storage groups present.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"
		}
	Else
		{
		Foreach ($sg in $StorageGroup)
			{
			$sOutput += "&lt;tr&gt;&lt;td&gt;&lt;font size=2&gt;" + $sSpace + $sg.Name + "&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"
			#Retrieve mailbox databases for a given storage group
			$MailboxDatabase = $StorageGroup | Get-MailboxDatabase -Status | Sort-Object Name
			#Check for absence of any databases in storage group
			If (($MailboxDatabase | Measure-Object Name).Count -eq $null)
				{
				$sOutput += "&lt;tr&gt;&lt;td&gt;&lt;font size=2&gt;" + $sSpace + $sSpace + "No mailbox stores present.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;"				}
			Else
				{
				Foreach ($db in $MailboxDatabase)
					{
					$sBackupRunning = ""
					#Note if backup is currently running
					If ($db.BackupInProgress -eq $true)
						{$sBackupRunning = "&lt;font size=2 color=blue&gt;(Backup In Progress)&lt;/font&gt;"}
					#Determine if backup has ever completed
					If ($db.LastFullBackup -ne $null)
						{
						$sBackupDay = $db.LastFullBackup.get_DayofWeek()
						$sBackupDateTime = $db.LastFullBackup.ToString("g")
						#Flag if last completed backup started longer than defined variable
						If (($date - $db.LastFullBackup).TotalHours -gt $iNomHours)
							{
							$sLastBackup = "&lt;font size=2&gt;Last Backup Started At: &lt;font color=red&gt;" + $sBackupDay + ", " + $sBackupDateTime + "&lt;/font&gt;&lt;/font&gt;"
							}
						Else
							{
							$sLastBackup = "&lt;font size=2&gt;Last Backup Started At: " + $sBackupDay + ", " + $sBackupDateTime + " &lt;/font&gt;" + $sCheckmark
							}
						}
					Else
						{
						$sLastBackup = "&lt;font size=2&gt;No full backup has completed yet.&lt;/font&gt;"
						}
					$sOutput += "&lt;tr&gt;&lt;td&gt;&lt;font size=2&gt;" + $sSpace + $sSpace + $db.Name + " &lt;/font&gt;&lt;/td&gt;&lt;td&gt;" + $sLastBackup + $sBackupRunning + "&lt;/td&gt;&lt;/tr&gt;"
					}
				}
			}
		}
	}
$sOutput += "&lt;/table&gt;"

#Email results
$SmtpClient = New-Object System.Net.Mail.SmtpClient
$MailMessage = New-Object System.Net.Mail.MailMessage
$SmtpClient.Host = $SmtpServer
$MailMessage.From = $SmtpFrom
Foreach ($address in $smtpTo)
	{$MailMessage.To.Add($address)}
$MailMessage.Subject = $SmtpSubject
$MailMessage.IsBodyHTML = $true
$MailMessage.Body = $sOutput
$SmtpClient.Send($MailMessage)

#Last Backup Report for Exchange 2007 servers

#Version 1.0 - 7/9/08

#--------------------------------------------

#Begin customization-------------------------

$SmtpServer = "server.domain.com" #Enter FQDN of SMTP server

$SmtpFrom = "Exchange Backups <exchangebackupreport@domain.com>" #Enter sender email address

$SmtpTo = "user1@domain.com","user2@domain.com" #Enter one or more recipient addresses in an array

$SmtpSubject = "Exchange 2007 Last Backup Report" #Enter subject of message

$iNomHours = "72" #Enter number of hours since last backup that requires attention

#End customization---------------------------

$date = Get-Date

$sSpace = "&nbsp;&nbsp;&nbsp;&nbsp;"

$sOutput = "<table>"

#Checkmark to indicate last backup within nominal time

$sCheckMark = "a"

#Retrieve Exchange servers with mailbox role

$ExServer = Get-ExchangeServer | where {$_.IsMailboxServer -eq $True} | Sort-Object Name

Foreach ($server in $ExServer)

{

$sOutput += "<tr><td>$server</td><td></td></tr>"

#Retrieve storage groups for a given server

$StorageGroup = $server | Get-StorageGroup | Sort-Object Name

#Check for absence of any storage groups

If (($StorageGroup | Measure-Object Name).Count -eq $null)

{

$sOutput += "<tr><td>" + $sSpace + "No storage groups present.</td></tr>"

}

Else

{

Foreach ($sg in $StorageGroup)

{

$sOutput += "<tr><td>" + $sSpace + $sg.Name + "</td></tr>"

#Retrieve mailbox databases for a given storage group

$MailboxDatabase = $StorageGroup | Get-MailboxDatabase -Status | Sort-Object Name

#Check for absence of any databases in storage group

If (($MailboxDatabase | Measure-Object Name).Count -eq $null)

{

$sOutput += "<tr><td>" + $sSpace + $sSpace + "No mailbox stores present.</td></tr>" }

Else

{

Foreach ($db in $MailboxDatabase)

{

$sBackupRunning = ""

#Note if backup is currently running

If ($db.BackupInProgress -eq $true)

{$sBackupRunning = "(Backup In Progress)"}

#Determine if backup has ever completed

If ($db.LastFullBackup -ne $null)

{

$sBackupDay = $db.LastFullBackup.get_DayofWeek()

$sBackupDateTime = $db.LastFullBackup.ToString("g")

#Flag if last completed backup started longer than defined variable

If (($date - $db.LastFullBackup).TotalHours -gt $iNomHours)

{

$sLastBackup = "Last Backup Started At: " + $sBackupDay + ", " + $sBackupDateTime + ""

}

Else

{

$sLastBackup = "Last Backup Started At: " + $sBackupDay + ", " + $sBackupDateTime + " " + $sCheckmark

}

Else

{

$sLastBackup = "No full backup has completed yet."

}

$sOutput += "<tr><td>" + $sSpace + $sSpace + $db.Name + " </td><td>" + $sLastBackup + $sBackupRunning + "</td></tr>"

}

$sOutput += "</table>"

#Email results

$SmtpClient = New-Object System.Net.Mail.SmtpClient

$MailMessage = New-Object System.Net.Mail.MailMessage

$SmtpClient.Host = $SmtpServer

$MailMessage.From = $SmtpFrom

Foreach ($address in $smtpTo)

{$MailMessage.To.Add($address)}

$MailMessage.Subject = $SmtpSubject

$MailMessage.IsBodyHTML = $true

$MailMessage.Body = $sOutput

$SmtpClient.Send($MailMessage)

| Next in series

Cannot enter a product key for a 64-bit Exchange 2007 server from the 32-bit management tools

Posted on June 4, 2008 by Scott — No Comments ↓

The 32-bit version of Exchange 2007 cano be used in a non-production environment only. As such, there is no need to license the product by entering a product key. Doing so will only result in the error "Invalid product key".

A side effect of this limitation is that you can also not enter a product key for a valid 64-bit server from a 32-bit installation such as the management tools on a 32-bit OS. I have a PowerShell script that configures a server, depending on the roles that are installed. However, the first thing it does for all servers is apply the product key. This fails because I am running my configuration script from a 32-bit management installation.

I consider this a bug. The only solution is to run the Set-ExchangeServer command with the -ProductKey parameter on a 64-bit installation of the management tools.

Convert a mailbox GUID to the user and display name

Posted on February 26, 2008 by Scott — 2 Comments ↓

If certain MAPI limits are reached when working with sessions, items, attachments, etc., Exchange will deny further access to that user to that object type. When this happens event ID 9646 is logged in the Application log. The description of the event contains a mailbox GUID that is causing the issue, but the GUID alone does nothing to indicate what user/mailbox is affected.

Microsoft KB 899663 instructs how to manually transpose GUID into a format that can be used in an LDAP filter so that you can search for a match. Why do all this by hand when a script can do it for you? I took an existing script I had that already does the transposition and added an AD search to return the matching dn. The dn is passed to a name translation function that converts the dn to the NT4 format (domain\username) and displays the match with username and display name.

In addition to the VBScript file, I have also included a compiled version that uses SAPIEN Script Host as the engine. This is a self-contained, runs-in-memory-only, no-DOS-box-comes-up engine from PrimalScript. Running the compiled version is nice since you don’t have to ensure that CScript is the default host and no DOS box appears while the script is running.

The zip file with both versions is available here .

Updated: Copy DLs from one user to another

Posted on July 22, 2007 by Scott — No Comments ↓

The first version of the script really was quick and dirty, requiring you to manually put the source and target users’ DNs in the script. Since a coworker has been using the script, I thought it appropriate to update it to prompt for the usernames. In addition, I added a new feature I recently read about, which is to output the results in real-time to a GUI. This is done by creating an object for IE and writing the output similar to wscript.echo, but with the Write method of the object.

Like the original script, since we use automated DLs, too, I look for an indication that a given DL is a SmartDL and skip it. And I now use PrimalScript to work with my scripts, so I use its packager to make an exectuable. This makes it easier and nicer for non-IT end-users who will be running scripts like these.

Download it here, or copy/paste below.

'Version 2.0 - July 23, 2007
'Copy distribution group membership from one user to another,
'excluding automated DLs (SmartDL).
'Get source user
While Not bolExit = True
	strOldSamUser = InputBox(&quot;Enter the sAMAccountName of the person to copy DLs FROM.&quot; _
		, &quot;Enter username&quot;)
	If strOldSamUser = &quot;&quot; Then
		WScript.Quit
	End If
 
	'Find the Global Catalog server
	Set objCont = GetObject(&quot;GC:&quot;)
	For Each objGC In objCont
		strADsPath = objGC.ADsPath
	Next
 
	Set objConnection = CreateObject(&quot;ADODB.Connection&quot;)
	Set objRecordset = CreateObject(&quot;ADODB.Recordset&quot;)
	objConnection.Provider = &quot;ADsDSOObject&quot;

	objConnection.Open &quot;ADs Provider&quot;
	strQuery = &quot;&lt;&quot; &amp; strADsPath &amp; &quot;&gt;;(&amp;(objectcategory=user)(sAMAccountName=&quot; &amp; strOldSamUser &amp; _
		&quot;));displayName,distinguishedName;subtree&quot;
	Set objRecordset = objConnection.Execute(strQuery)

	If Trim(objRecordset.Fields(&quot;distinguishedName&quot;)) = &quot;&quot; Then
		strNoUser = MsgBox(&quot;Warning: User cannot be found.&nbsp; Verify sAMAccountName.&quot;, vbCritical, &quot;User not found!&quot;)
		bolExit = False
	Else
		intCorrectUser = MsgBox(&quot;Is this the correct user?&quot; &amp; VbCrLf &amp; VbCrLf &amp; &quot;Display Name: &quot; &amp; _
		objRecordset.Fields(&quot;displayName&quot;) &amp; VbCrLf &amp; &quot;DN: &quot; &amp; objRecordset.Fields(&quot;distinguishedName&quot;), _
			vbYesNo, &quot;Old user?&quot;)
		If intCorrectUser &lt;&gt; 6 Then
			bolExit = False
		Else
			strSrcDN = objRecordset.Fields(&quot;distinguishedName&quot;)
			bolExit = True
		End If
	End If
 Wend
'Open IE to display progress and results
Set objIE = CreateObject(&quot;InternetExplorer.Application&quot;)
objIE.AddressBar = False
objIE.Menubar = False
objIE.Toolbar = False
objIE.Resizable = True
objIE.Left = 10
objIE.Height = 450
objIE.Width = 800
objIE.Visible = True
objIE.Navigate(&quot;about:blank&quot;)
While objIE.Busy
	WScript.Sleep 100
Wend
Set objDoc = objIE.Document
objDoc.Open
objDoc.Write(&quot;&lt;TITLE&gt;Copy DL Membership&lt;/TITLE&gt;&quot;)
objDoc.Write(&quot;&lt;BODY BGCOLOR=#C0C0C0&gt;&quot;)
objDoc.Write(&quot;&lt;P&gt;&lt;b&gt;Source:&lt;/b&gt; &quot; &amp; objRecordset.Fields(&quot;distinguishedName&quot;) &amp; &quot;&lt;br&gt;&quot;)
'Get target user
bolExit = False
While Not bolExit = True
	strNewSamUser = InputBox(&quot;Enter the sAMAccountName of the person to copy DLs TO.&quot; _
		, &quot;Enter username&quot;)
	If strNewSamUser = &quot;&quot; Then
		objIE.Quit
		WScript.Quit
	End If
	strQuery = &quot;&lt;&quot; &amp; strADsPath &amp; &quot;&gt;;(&amp;(objectcategory=user)(sAMAccountName=&quot; &amp; strNewSamUser &amp; _
		&quot;));displayName,distinguishedName;subtree&quot;
	Set objRecordset = objConnection.Execute(strQuery)
	If Trim(objRecordset.Fields(&quot;distinguishedName&quot;)) = &quot;&quot; Then
		strNoUser = MsgBox(&quot;Warning: User cannot be found.&nbsp; Verify sAMAccountName.&quot;, vbCritical, &quot;User not found!&quot;)
		bolExit = False
	Else
		intCorrectUser = MsgBox(&quot;Is this the correct user?&quot; &amp; VbCrLf &amp; VbCrLf &amp; &quot;Display Name: &quot; &amp; _
			objRecordset.Fields(&quot;displayName&quot;) &amp; VbCrLf &amp; &quot;DN: &quot; &amp; objRecordset.Fields(&quot;distinguishedName&quot;), _
			vbYesNo, &quot;Old user?&quot;)
		If intCorrectUser &lt;&gt; 6 Then
			bolExit = False
		Else
			Set objTargetUser = GetObject(&quot;LDAP://&quot; &amp; objRecordset.Fields(&quot;distinguishedName&quot;))
			bolExit = True
		End If
	End If
 Wend
 'Write target user to IE window
 objDoc.Write(&quot;&lt;b&gt;Target:&lt;/b&gt; &quot; &amp; objRecordset.Fields(&quot;distinguishedName&quot;) &amp; &quot;&lt;/P&gt;&quot;)
 'Copy DLs
 strDomFQDN = Mid(strSrcDN, InStr(LCase(strSrcDN), &quot;,dc=&quot;) + 4)
 strGCFQDN = Replace(LCase(strDomFQDN), &quot;,dc=&quot;, &quot;.&quot;)
 Set objOldUser = GetObject(&quot;GC://&quot; &amp; strGCFQDN &amp; &quot;/&quot; &amp; strSrcDN)
 For Each strGroup in objOldUser.MemberOf
	On Error Resume Next
	Set objGroup = GetObject(&quot;LDAP://&quot; &amp; strGroup)
	If Not Trim(objGroup.mailNickname) = &quot;&quot; Then
		If Not Instr(objGroup.info, &quot;SmartDL&quot;) &gt; 0 Then
			objGroup.Add(objTargetUser.ADsPath)
			If Err.Number = 0 Then
				objDoc.Write(objGroup.DisplayName &amp; &quot;: Update successful.&lt;br&gt;&quot;)
			Else
				objDoc.Write(objGroup.DisplayName &amp; &quot;: Update UNSUCCESSFUL.&lt;br&gt;&quot;)
			End If
		Else
			objDoc.Write(objGroup.DisplayName &amp; &quot;: Skipped (SmartDL).&lt;br&gt;&quot;)
		End If
	End If
	On Error Goto 0
 Next
 
 Set objOldUser = Nothing
 Set objTargetUser = Nothing
 Set objIE = Nothing
 Set objRecordset = Nothing
 Set objConnection = Nothing

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

'Version 2.0 - July 23, 2007

'Copy distribution group membership from one user to another,

'excluding automated DLs (SmartDL).

'Get source user

While Not bolExit = True

strOldSamUser = InputBox("Enter the sAMAccountName of the person to copy DLs FROM." _

, "Enter username")

If strOldSamUser = "" Then

WScript.Quit

End If

'Find the Global Catalog server

Set objCont = GetObject("GC:")

For Each objGC In objCont

strADsPath = objGC.ADsPath

Set objConnection = CreateObject("ADODB.Connection")

Set objRecordset = CreateObject("ADODB.Recordset")

objConnection.Provider = "ADsDSOObject"

objConnection.Open "ADs Provider"

strQuery = "<" & strADsPath & ">;(&(objectcategory=user)(sAMAccountName=" & strOldSamUser & _

"));displayName,distinguishedName;subtree"

Set objRecordset = objConnection.Execute(strQuery)

If Trim(objRecordset.Fields("distinguishedName")) = "" Then

strNoUser = MsgBox("Warning: User cannot be found.  Verify sAMAccountName.", vbCritical, "User not found!")

bolExit = False

Else

intCorrectUser = MsgBox("Is this the correct user?" & VbCrLf & VbCrLf & "Display Name: " & _

objRecordset.Fields("displayName") & VbCrLf & "DN: " & objRecordset.Fields("distinguishedName"), _

vbYesNo, "Old user?")

If intCorrectUser <> 6 Then

bolExit = False

Else

strSrcDN = objRecordset.Fields("distinguishedName")

bolExit = True

End If

Wend

'Open IE to display progress and results

Set objIE = CreateObject("InternetExplorer.Application")

objIE.AddressBar = False

objIE.Menubar = False

objIE.Toolbar = False

objIE.Resizable = True

objIE.Left = 10

objIE.Height = 450

objIE.Width = 800

objIE.Visible = True

objIE.Navigate("about:blank")

While objIE.Busy

WScript.Sleep 100

Wend

Set objDoc = objIE.Document

objDoc.Open

objDoc.Write("<TITLE>Copy DL Membership</TITLE>")

objDoc.Write("<BODY BGCOLOR=#C0C0C0>")

objDoc.Write("Source: " & objRecordset.Fields("distinguishedName") & " ")

'Get target user

bolExit = False

While Not bolExit = True

strNewSamUser = InputBox("Enter the sAMAccountName of the person to copy DLs TO." _

, "Enter username")

If strNewSamUser = "" Then

objIE.Quit

WScript.Quit

End If

strQuery = "<" & strADsPath & ">;(&(objectcategory=user)(sAMAccountName=" & strNewSamUser & _

"));displayName,distinguishedName;subtree"

Set objRecordset = objConnection.Execute(strQuery)

If Trim(objRecordset.Fields("distinguishedName")) = "" Then

strNoUser = MsgBox("Warning: User cannot be found.  Verify sAMAccountName.", vbCritical, "User not found!")

bolExit = False

Else

intCorrectUser = MsgBox("Is this the correct user?" & VbCrLf & VbCrLf & "Display Name: " & _

objRecordset.Fields("displayName") & VbCrLf & "DN: " & objRecordset.Fields("distinguishedName"), _

vbYesNo, "Old user?")

If intCorrectUser <> 6 Then

bolExit = False

Else

Set objTargetUser = GetObject("LDAP://" & objRecordset.Fields("distinguishedName"))

bolExit = True

End If

Wend

'Write target user to IE window

objDoc.Write("Target: " & objRecordset.Fields("distinguishedName") & "")

'Copy DLs

strDomFQDN = Mid(strSrcDN, InStr(LCase(strSrcDN), ",dc=") + 4)

strGCFQDN = Replace(LCase(strDomFQDN), ",dc=", ".")

Set objOldUser = GetObject("GC://" & strGCFQDN & "/" & strSrcDN)

For Each strGroup in objOldUser.MemberOf

On Error Resume Next

Set objGroup = GetObject("LDAP://" & strGroup)

If Not Trim(objGroup.mailNickname) = "" Then

If Not Instr(objGroup.info, "SmartDL") > 0 Then

objGroup.Add(objTargetUser.ADsPath)

If Err.Number = 0 Then

objDoc.Write(objGroup.DisplayName & ": Update successful. ")

Else

objDoc.Write(objGroup.DisplayName & ": Update UNSUCCESSFUL. ")

End If

Else

objDoc.Write(objGroup.DisplayName & ": Skipped (SmartDL). ")

End If

On Error Goto 0

Set objOldUser = Nothing

Set objTargetUser = Nothing

Set objIE = Nothing

Set objRecordset = Nothing

Set objConnection = Nothing

sidefumbling

The consequence of not having six hydrocoptic marzelvanes fitted to the ambifacient lunar waneshaft.

Category Archives: Exchange 2007

Another minor update to the Exchange 2007 backup script

Articles in the "Report Last Backup of Exchange 2007" series

Updated Exchange 2007 database backup script

Articles in the "Report Last Backup of Exchange 2007" series

PowerShell script to report last successful full backup of Exchange 2007

Articles in the "Report Last Backup of Exchange 2007" series

Cannot enter a product key for a 64-bit Exchange 2007 server from the 32-bit management tools

Convert a mailbox GUID to the user and display name

Updated: Copy DLs from one user to another