And here is the (very long) Powershell code:

######################################################################
# Exchange Custom attribute editor 1.0
# Author: Maarten Damen
######################################################################

# Script configuration
$ldapstring = "ou=Users, dc=TEST, dc=NL" # LDAP string, pointing to the OU with users in it.
$username   = "accountmanagement" # Username with sufficient rights to edit custom attributes of users.
$password   = "123456" # Password of that particular user.

#----------------------------------------------
# Generated Form Function
#----------------------------------------------
function GenerateForm {

	#----------------------------------------------
	#region Import Assemblies
	#----------------------------------------------
	[void][reflection.assembly]::Load("System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
	[void][reflection.assembly]::Load("System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a")
	[void][reflection.assembly]::Load("mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
	[void][reflection.assembly]::Load("System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
	#endregion

	[System.Windows.Forms.Application]::EnableVisualStyles()
	$form1 = New-Object System.Windows.Forms.Form
	$btnSave = New-Object System.Windows.Forms.Button
	$label16 = New-Object System.Windows.Forms.Label
	$label15 = New-Object System.Windows.Forms.Label
	$label14 = New-Object System.Windows.Forms.Label
	$label13 = New-Object System.Windows.Forms.Label
	$label12 = New-Object System.Windows.Forms.Label
	$label11 = New-Object System.Windows.Forms.Label
	$label10 = New-Object System.Windows.Forms.Label
	$label9 = New-Object System.Windows.Forms.Label
	$label8 = New-Object System.Windows.Forms.Label
	$label7 = New-Object System.Windows.Forms.Label
	$label6 = New-Object System.Windows.Forms.Label
	$label5 = New-Object System.Windows.Forms.Label
	$label4 = New-Object System.Windows.Forms.Label
	$label3 = New-Object System.Windows.Forms.Label
	$custom15 = New-Object System.Windows.Forms.TextBox
	$custom14 = New-Object System.Windows.Forms.TextBox
	$custom13 = New-Object System.Windows.Forms.TextBox
	$custom12 = New-Object System.Windows.Forms.TextBox
	$custom11 = New-Object System.Windows.Forms.TextBox
	$custom10 = New-Object System.Windows.Forms.TextBox
	$custom9 = New-Object System.Windows.Forms.TextBox
	$custom8 = New-Object System.Windows.Forms.TextBox
	$custom7 = New-Object System.Windows.Forms.TextBox
	$custom6 = New-Object System.Windows.Forms.TextBox
	$custom5 = New-Object System.Windows.Forms.TextBox
	$custom4 = New-Object System.Windows.Forms.TextBox
	$custom3 = New-Object System.Windows.Forms.TextBox
	$custom2 = New-Object System.Windows.Forms.TextBox
	$custom1 = New-Object System.Windows.Forms.TextBox
	$label2 = New-Object System.Windows.Forms.Label
	$listbox1 = New-Object System.Windows.Forms.ListBox
	$label1 = New-Object System.Windows.Forms.Label
	$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState

	$FormEvent_Load={
			$root = New-Object System.DirectoryServices.DirectoryEntry "LDAP://$ldapstring", $username, $password
			$searcher = New-Object DirectoryServices.DirectorySearcher
			$searcher.SearchRoot = $root
			$searcher.Filter = "(objectClass=user)"
			$results=$searcher.FindAll()

			foreach ($result in $results) {
				$listbox1.Items.Add($result.GetDirectoryEntry().cn.Value)
			}
	}

	$handler_listbox1_SelectedIndexChanged={
		# get current custom attributes for user
		$entry = New-Object System.DirectoryServices.DirectoryEntry ("LDAP://CN={0}, $ldapstring" -f $listbox1.Text), $username, $password

		for ($i = 1; $i -lt 16; $i++) {
			$textbox = Get-Variable "custom$i"
			$propertyvalue = "extensionAttribute$i"
			$textbox.Value.Text = $entry.$propertyvalue.Value
		}
	}

	$handler_btnSave_Click={
		# Save changes in AD
		$entry = New-Object System.DirectoryServices.DirectoryEntry ("LDAP://CN={0}, $ldapstring" -f $listbox1.Text), $username, $password

		for ($i = 1; $i -lt 16; $i++) {
			$textbox = Get-Variable "custom$i"
			if ($textbox.Value.Text -ne "") {
				$entry.Put("extensionAttribute$i", "{0}" -f $textbox.Value.Text)
			} else {
				$entry.PutEx(1, "extensionAttribute$i", $null)
			}
		}

		$entry.SetInfo()
	}

	$Form_StateCorrection_Load=
	{
		#Correct the initial state of the form to prevent the .Net maximized form issue
		$form1.WindowState = $InitialFormWindowState
	}

	#----------------------------------------------
	#region Generated Form Code
	#----------------------------------------------
	#
	# form1
	#
	$form1.Controls.Add($btnSave)
	$form1.Controls.Add($label16)
	$form1.Controls.Add($label15)
	$form1.Controls.Add($label14)
	$form1.Controls.Add($label13)
	$form1.Controls.Add($label12)
	$form1.Controls.Add($label11)
	$form1.Controls.Add($label10)
	$form1.Controls.Add($label9)
	$form1.Controls.Add($label8)
	$form1.Controls.Add($label7)
	$form1.Controls.Add($label6)
	$form1.Controls.Add($label5)
	$form1.Controls.Add($label4)
	$form1.Controls.Add($label3)
	$form1.Controls.Add($custom15)
	$form1.Controls.Add($custom14)
	$form1.Controls.Add($custom13)
	$form1.Controls.Add($custom12)
	$form1.Controls.Add($custom11)
	$form1.Controls.Add($custom10)
	$form1.Controls.Add($custom9)
	$form1.Controls.Add($custom8)
	$form1.Controls.Add($custom7)
	$form1.Controls.Add($custom6)
	$form1.Controls.Add($custom5)
	$form1.Controls.Add($custom4)
	$form1.Controls.Add($custom3)
	$form1.Controls.Add($custom2)
	$form1.Controls.Add($custom1)
	$form1.Controls.Add($label2)
	$form1.Controls.Add($listbox1)
	$form1.Controls.Add($label1)
	$form1.Text = "Exchange custom attribute editor v1.0 © Maarten Damen"
	$form1.Name = "form1"
	$form1.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$form1.ClientSize = New-Object System.Drawing.Size(606,461)
	$form1.add_Load($FormEvent_Load)
	#
	# btnSave
	#
	$btnSave.TabIndex = 32
	$btnSave.Name = "btnSave"
	$btnSave.Size = New-Object System.Drawing.Size(120,23)
	$btnSave.UseVisualStyleBackColor = $True
	$btnSave.Text = "Save changes"
	$btnSave.Location = New-Object System.Drawing.Point(474,426)
	$btnSave.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$btnSave.add_Click($handler_btnSave_Click)
	#
	# label16
	#
	$label16.TabIndex = 31
	$label16.Size = New-Object System.Drawing.Size(115,19)
	$label16.Text = "Custom Attribute 15"
	$label16.Location = New-Object System.Drawing.Point(173,396)
	$label16.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label16.Name = "label16"
	#
	# label15
	#
	$label15.TabIndex = 30
	$label15.Size = New-Object System.Drawing.Size(115,19)
	$label15.Text = "Custom Attribute 14"
	$label15.Location = New-Object System.Drawing.Point(173,370)
	$label15.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label15.Name = "label15"
	#
	# label14
	#
	$label14.TabIndex = 29
	$label14.Size = New-Object System.Drawing.Size(115,19)
	$label14.Text = "Custom Attribute 13"
	$label14.Location = New-Object System.Drawing.Point(173,344)
	$label14.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label14.Name = "label14"
	#
	# label13
	#
	$label13.TabIndex = 28
	$label13.Size = New-Object System.Drawing.Size(115,19)
	$label13.Text = "Custom Attribute 12"
	$label13.Location = New-Object System.Drawing.Point(173,318)
	$label13.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label13.Name = "label13"
	#
	# label12
	#
	$label12.TabIndex = 27
	$label12.Size = New-Object System.Drawing.Size(115,19)
	$label12.Text = "Custom Attribute 11"
	$label12.Location = New-Object System.Drawing.Point(173,292)
	$label12.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label12.Name = "label12"
	#
	# label11
	#
	$label11.TabIndex = 26
	$label11.Size = New-Object System.Drawing.Size(115,19)
	$label11.Text = "Custom Attribute 10"
	$label11.Location = New-Object System.Drawing.Point(173,266)
	$label11.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label11.Name = "label11"
	#
	# label10
	#
	$label10.TabIndex = 25
	$label10.Size = New-Object System.Drawing.Size(115,19)
	$label10.Text = "Custom Attribute 9"
	$label10.Location = New-Object System.Drawing.Point(173,240)
	$label10.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label10.Name = "label10"
	#
	# label9
	#
	$label9.TabIndex = 24
	$label9.Size = New-Object System.Drawing.Size(115,19)
	$label9.Text = "Custom Attribute 8"
	$label9.Location = New-Object System.Drawing.Point(173,214)
	$label9.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label9.Name = "label9"
	#
	# label8
	#
	$label8.TabIndex = 23
	$label8.Size = New-Object System.Drawing.Size(115,19)
	$label8.Text = "Custom Attribute 7"
	$label8.Location = New-Object System.Drawing.Point(173,188)
	$label8.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label8.Name = "label8"
	#
	# label7
	#
	$label7.TabIndex = 22
	$label7.Size = New-Object System.Drawing.Size(115,19)
	$label7.Text = "Custom Attribute 6"
	$label7.Location = New-Object System.Drawing.Point(173,162)
	$label7.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label7.Name = "label7"
	#
	# label6
	#
	$label6.TabIndex = 21
	$label6.Size = New-Object System.Drawing.Size(115,19)
	$label6.Text = "Custom Attribute 5"
	$label6.Location = New-Object System.Drawing.Point(173,136)
	$label6.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label6.Name = "label6"
	#
	# label5
	#
	$label5.TabIndex = 20
	$label5.Size = New-Object System.Drawing.Size(115,19)
	$label5.Text = "Custom Attribute 4"
	$label5.Location = New-Object System.Drawing.Point(173,110)
	$label5.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label5.Name = "label5"
	#
	# label4
	#
	$label4.TabIndex = 19
	$label4.Size = New-Object System.Drawing.Size(115,19)
	$label4.Text = "Custom Attribute 3"
	$label4.Location = New-Object System.Drawing.Point(173,84)
	$label4.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label4.Name = "label4"
	#
	# label3
	#
	$label3.TabIndex = 18
	$label3.Size = New-Object System.Drawing.Size(115,19)
	$label3.Text = "Custom Attribute 2"
	$label3.Location = New-Object System.Drawing.Point(173,58)
	$label3.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label3.Name = "label3"
	#
	# custom15
	#
	$custom15.Size = New-Object System.Drawing.Size(300,20)
	$custom15.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom15.Name = "custom15"
	$custom15.Location = New-Object System.Drawing.Point(294,393)
	$custom15.TabIndex = 17
	#
	# custom14
	#
	$custom14.Size = New-Object System.Drawing.Size(300,20)
	$custom14.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom14.Name = "custom14"
	$custom14.Location = New-Object System.Drawing.Point(294,367)
	$custom14.TabIndex = 16
	#
	# custom13
	#
	$custom13.Size = New-Object System.Drawing.Size(300,20)
	$custom13.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom13.Name = "custom13"
	$custom13.Location = New-Object System.Drawing.Point(294,341)
	$custom13.TabIndex = 15
	#
	# custom12
	#
	$custom12.Size = New-Object System.Drawing.Size(300,20)
	$custom12.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom12.Name = "custom12"
	$custom12.Location = New-Object System.Drawing.Point(294,315)
	$custom12.TabIndex = 14
	#
	# custom11
	#
	$custom11.Size = New-Object System.Drawing.Size(300,20)
	$custom11.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom11.Name = "custom11"
	$custom11.Location = New-Object System.Drawing.Point(294,289)
	$custom11.TabIndex = 13
	#
	# custom10
	#
	$custom10.Size = New-Object System.Drawing.Size(300,20)
	$custom10.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom10.Name = "custom10"
	$custom10.Location = New-Object System.Drawing.Point(294,263)
	$custom10.TabIndex = 12
	#
	# custom9
	#
	$custom9.Size = New-Object System.Drawing.Size(300,20)
	$custom9.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom9.Name = "custom9"
	$custom9.Location = New-Object System.Drawing.Point(294,237)
	$custom9.TabIndex = 11
	#
	# custom8
	#
	$custom8.Size = New-Object System.Drawing.Size(300,20)
	$custom8.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom8.Name = "custom8"
	$custom8.Location = New-Object System.Drawing.Point(294,211)
	$custom8.TabIndex = 10
	#
	# custom7
	#
	$custom7.Size = New-Object System.Drawing.Size(300,20)
	$custom7.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom7.Name = "custom7"
	$custom7.Location = New-Object System.Drawing.Point(294,185)
	$custom7.TabIndex = 9
	#
	# custom6
	#
	$custom6.Size = New-Object System.Drawing.Size(300,20)
	$custom6.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom6.Name = "custom6"
	$custom6.Location = New-Object System.Drawing.Point(294,159)
	$custom6.TabIndex = 8
	#
	# custom5
	#
	$custom5.Size = New-Object System.Drawing.Size(300,20)
	$custom5.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom5.Name = "custom5"
	$custom5.Location = New-Object System.Drawing.Point(294,133)
	$custom5.TabIndex = 7
	#
	# custom4
	#
	$custom4.Size = New-Object System.Drawing.Size(300,20)
	$custom4.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom4.Name = "custom4"
	$custom4.Location = New-Object System.Drawing.Point(294,107)
	$custom4.TabIndex = 6
	#
	# custom3
	#
	$custom3.Size = New-Object System.Drawing.Size(300,20)
	$custom3.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom3.Name = "custom3"
	$custom3.Location = New-Object System.Drawing.Point(294,81)
	$custom3.TabIndex = 5
	#
	# custom2
	#
	$custom2.Size = New-Object System.Drawing.Size(300,20)
	$custom2.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom2.Name = "custom2"
	$custom2.Location = New-Object System.Drawing.Point(294,55)
	$custom2.TabIndex = 4
	#
	# custom1
	#
	$custom1.Size = New-Object System.Drawing.Size(300,20)
	$custom1.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$custom1.Name = "custom1"
	$custom1.Location = New-Object System.Drawing.Point(294,29)
	$custom1.TabIndex = 3
	#
	# label2
	#
	$label2.TabIndex = 2
	$label2.Size = New-Object System.Drawing.Size(100,19)
	$label2.Text = "Custom Attribute 1"
	$label2.Location = New-Object System.Drawing.Point(173,32)
	$label2.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label2.Name = "label2"
	#
	# listbox1
	#
	$listbox1.FormattingEnabled = $True
	$listbox1.Size = New-Object System.Drawing.Size(155,420)
	$listbox1.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$listbox1.Name = "listbox1"
	$listbox1.Location = New-Object System.Drawing.Point(12,29)
	$listbox1.Sorted = $True
	$listbox1.TabIndex = 0
	$listbox1.add_SelectedIndexChanged($handler_listbox1_SelectedIndexChanged)
	#
	# label1
	#
	$label1.TabIndex = 1
	$label1.Size = New-Object System.Drawing.Size(174,23)
	$label1.Text = "Please select a user:"
	$label1.Location = New-Object System.Drawing.Point(12,9)
	$label1.DataBindings.DefaultDataSourceUpdateMode = [System.Windows.Forms.DataSourceUpdateMode]::OnValidation
	$label1.Name = "label1"
	#endregion Generated Form Code

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

	#Save the initial state of the form
	$InitialFormWindowState = $form1.WindowState
	#Init the OnLoad event to correct the initial state of the form
	$form1.add_Load($Form_StateCorrection_Load)
	#Show the Form
	return $form1.ShowDialog()

} #End Function

#Call OnApplicationLoad to initialize
if(OnApplicationLoad -eq $true)
{
	#Create the form
	GenerateForm | Out-Null
	#Perform cleanup
	OnApplicationExit
}

Enjoy!

powercfg.exe /h off

But what if we wanted to repeat this task for let’s say 30-40 servers? Do it by hand? No way, Powershell to the rescue!
Here’s the script I came up with, enjoy:

# Ask for credentials used to do remote WMI.
$cred    	= Get-Credential DOMAIN\account

# Filter used for active directory query. Only 2008 server machines.
$strFilter 	= "(&(objectClass=computer)(operatingSystem=Windows *2008*))"

$objDomain 	= New-Object System.DirectoryServices.DirectoryEntry
$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
$objSearcher.SearchRoot = $objDomain
$objSearcher.Filter = $strFilter
$objSearcher.SearchScope = "Subtree"

$colResults = $objSearcher.FindAll()

# Loop through list of servers.
foreach ($objResult in $colresults)
{
	$objItem = $objResult.Properties
	$name = $objItem.name[0]

	Write-Host "Disabling hibernation on: $name"

	try {
		invoke-wmimethod -cred $cred -path win32_process -name create -argumentlist "powercfg.exe /h off" -ComputerName $name
	}
	catch {
		Write-Host "Failed to disable hibernation on: $name, no permission or server down?"
		break
	}
	finally {
		Write-Host "Hibernation disabled on: $name"
	}
}

Onwards!

# Number of days to generate, default = 365
$NumDays 		= 365
$AccessGroup 	= "Gasten"
$ExpiryTime 	= "20:00"
$StartTime 		= "07:00"
$OutputCSV		= "C:\TEMP\wireless.csv"

$SshHost 		= "127.0.0.1"
$SshUser		= "someuser"

$access_codes = @()

# Start SSH session
New-SshSession $SshUser $SshHost
Invoke-Ssh "z"
Invoke-Ssh "conf t"
Invoke-Ssh "wireless F"
Invoke-Ssh "conf t"
Invoke-Ssh "radius-server local"

$i = 0;
do {
	# WSEM format: mm/dd/yyyy hh:mm
	$date = (Get-Date).AddDays($i)
	$date2 = Get-Date $date -Format "dd-MM-yyyy"
	$date = Get-Date $date -format "MM:dd:yyyy"
	$pass = RandomPassword 4
	$user = RandomPassword 4
	$output = "rad-user $user password 0 $pass group $AccessGroup guest expiry-time $ExpiryTime expiry-date $date start-time $StartTime start-date $date"

	# add user through SSH
	Invoke-ssh $output

	$Response = New-Object PSObject
	Add-Member -InputObject $Response -MemberType NoteProperty -Name "Datum" -Value $date2
	Add-Member -InputObject $Response -MemberType NoteProperty -Name "Gebruikersnaam" -Value $user
	Add-Member -InputObject $Response -MemberType NoteProperty -Name "Wachtwoord" -Value $pass
	$access_codes += $Response

	$i++;
} while ( $i -le $NumDays )

# Save and disconnect SSH
Invoke-ssh "write mem"
Remove-SshSession

# Export to CSV
$access_codes | Export-Csv $OutputCSV

# Helper functions
function RandomPassword ([int]$intPasswordLength)
{
   $strNumbers = "1234567890"
   $strCapitalLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   $strLowerLetters = "abcdefghijklmnopqrstuvwxyz"
   $rand = new-object random

   for ($a=1; $a -le $intPasswordLength; $a++)
      {
         if ($a -gt 3)
           {
      	      $b = $rand.next(0,3) + $a
      	      $b = $b % 3 + 1
      	   } else { $b = $a }
      	 switch ($b)
      	   {
      	      "1" {$b = "$strNumbers"}
      	      "2" {$b = "$strCapitalLetters"}
      	      "3" {$b = "$strLowerLetters"}
      	   }
         $charset = $($b)
         $number = $rand.next(0,$charset.Length)
         $RandomPassword += $charset[$number]
      }
   return $RandomPassword
}

Special thanks to Joel Bennett’s SharpSSH wrapper for PowerShell (located here: http://huddledmasses.org/scriptable-ssh-from-powershell/) which I used to automate the command line commands for the HP WSEM.
This shows the great power of PowerShell for automating virtually anything!

• Loop through a list of Windows 2003 servers in our active directory, only Windows 2003 machines were needed. You can easily modify the search filter though.
• Set pagefile size on those servers, minimum size and maximum size set to “0″ means the pagefile settings will be set on “system managed”

So, here’s the full source of the script:

# Ask for credentials to do remote WMI.
$cred    	= Get-Credential DOMAIN\Administrator

# Filter used for active directory query. Only Windows 2003 is needed, Windows 2008 defaults to system managed pagefile size.
$strFilter 	= "(&(objectClass=computer)(operatingSystem=Windows Server 2003))"

$objDomain 	= New-Object System.DirectoryServices.DirectoryEntry
$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
$objSearcher.SearchRoot = $objDomain
$objSearcher.Filter = $strFilter
$objSearcher.SearchScope = "Subtree"

$colResults = $objSearcher.FindAll()

# Loop through list of servers.
foreach ($objResult in $colresults)
{
	$objItem = $objResult.Properties

	$name = $objItem.name[0]

	Write-Host "Setting pagefile on server: $name"

	try
	{
		$PageFile = Get-WmiObject Win32_PageFileSetting -Credential $cred -ComputerName $objItem.name
		$PageFile.InitialSize = 0
		$PageFile.MaximumSize = 0
		$PageFile.Put()
	}
	catch
	{
		Write-Host "Failed to set pagefile on: $name, no permission or server down?"
		break
	}
	finally
	{
		Write-Host "Pagefile set on: $name"
	}
}

Using default SCOM functionality, this is not possible. This is why we came up with the following idea (special thanks to my colleague Frank):

• Using two seperate subscriptions, one for “new” alerts and one for “closed” alerts.
• On the new alert subscription set a channel with a powershell script to update custom field 1 when a SMS has been sent (this subscription has the 5 minute delay)
• On the closed alert subscription set a condition to check custom field 1 to see wheter a SMS has been sent or not.

This blog post describes how this can be done within SCOM.

1. The Command Notification Channel

First we have to create a “Command Notification Channel”. Go to the “Administration” section of the SCOM management console. Click on Notifications->Channels.
Right click and select “New->Command…”.
The following wizard appears:

Give the channel a name, and click “Next >”

Enter the following settings for the channel:

Full path of the command file:
C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe
Command line parameters:
-Command “& D:\Scripts\UpdateAlertCustomField.ps1 -alertid:”$Data/Context/DataItem/AlertId$”"
Startup folder for the command line:
D:\Scripts

Change D:\Scripts to reflect your PowerShell script location. It should now look like this:

Save the changes by clicking “Finish”

2. The used PowerShell script

To modify alert “custom field 1″, I use a small PowerShell script. The text written into the field is “Notification sent out”
The used script is displayed here, save this script as “UpdateAlertCustomField.ps1″ in the directory specified in the command notification channel above.

# Get alertid parameter
Param($alertid)
$alertid = $alertid.toString()

# Load SCOM snap-inn
add-pssnapin "Microsoft.EnterpriseManagement.OperationsManager.Client";
$server = "localhost"

# Connect to SCOM
new-managementGroupConnection -ConnectionString:$server;
set-location "OperationsManagerMonitoring::";

# Update alert custom field
$alert = Get-Alert -id $alertid
$alert.CustomField1 = "Notification sent out"
$alert.Update("Custom field 1 updated by UpdateAlertCustomField script")

3. A subscriber for the command

The next step is to create a subscriber which has the command notification channel created above assigned as channel.
Go to the “Administration” section of the SCOM management console. Click on Notifications->Subscribers.
Right click and click “New…”

In the “Notification Subscriber Wizard” give the new subscriber a name. In the next step of the wizard, specify your schedule as desired.
On the “Addresses” step, click “Add…” to add a new address.

In the “Subscriber Address” wizard, specify a name for the new subscriber. This can be virtually anything as no e-mails/pages/SMS messages are sent anyway.
Next, specify the “Command” channel type and select the Command channel we created earlier (Update custom field 1).

Specify your schedule as desired, click “Finish” to end the wizard. Click “Finish” again to close the “Notification Subscriber Wizard”.
You should now have a subscriber with the command channel as asigned channel.

4. The subscription for new alerts

Now that we have the command notification channel, powershell script and subscriber ready. We can create a new subscription for new alerts.
Go to the “Administration” section of the SCOM management console. Click on Notifications->Subscriptions.

In the “Notification Subscription Wizard” specify a name for the new subscription. The next wizard step is the step to define criteria for the subscription.
Specify atleast the “with specific resolution state” criteria, offcourse you can add your own other criteria here like you would normally do.

On the next wizard page (Subscribers) add the command subscriber we created in step 3, as shown below.

In the next wizard step (Channels) add the command channel we created in step 1 and specify the desired delay (5 minutes in this case). As shown below:

Click “Next”, in the summary step make sure “Enable this notification subscription” is checked and click “Finish”.
You should now have an subscription ready for new SCOM alerts.

5. Subscription for closed alerts

You can create the subscription channel like you would normally do. The only important step is to get the criteria right. We have to include custom field 1.
This is how the closed subscription criteria look:

NOTE: there is currently a bug in SCOM R2 when using custom fields in a subscription criteria!

For more information about thihs bug visit the following URL:

http://social.technet.microsoft.com/Forums/en/operationsmanagergeneral/thread/260be16a-0f45-4904-8093-7c1caa5ed546

You have to update the xml file each time you change something in either of the notifications!

I used PowerCLI to write a script that does the following:

• Loop through all virtual machines to check if there a snapshots created for a specific virtual machine;
• sum up all of the snapshots for a machine containing snapshots;
• e-mail a report of the above.

Here is the script:

Add-PSSnapin -Name "VMware.VimAutomation.Core"

$VIServer = "yourvirtualcenterserver.test.local"
$VIUsername = "DOMAIN\username"
$VIPassword = "password"

Connect-VIServer -Server $VIServer -User $VIUsername -Password $VIPassword

$AllVirtualMachines = Get-VM

$SmtpClient = new-object system.net.mail.smtpClient
$MailMessage = New-Object system.net.mail.mailmessage 

$SmtpClient.Host = "smtpserver.test.local"
$MailMessage.from = "notification@smtpserver.test.local"
$MailMessage.To.add("address1@test.local")
$MailMessage.To.add("address2@test.local")
$MailMessage.Headers.Add("message-id", "<3BD50098E401463AA228377848493927-1>")
$MailMessage.IsBodyHtml = 1

$MailMessage.Subject = "VMware snapshot overview"
$MailMessage.Body += "<FONT FACE='Arial, Helvetica, Geneva'><h2>VMware snapshot overview:</h2><br>"

foreach ($VirtualMachine in $AllVirtualMachines)
{
	$AllSnapshots=Get-Snapshot -VM $VirtualMachine

	if ($AllSnapshots.count -gt 0)
	{
		$MailMessage.Body += "<b>" + $VirtualMachine + "</b><br>"
		foreach ($Snapshot in $AllSnapshots)
		{
			If ($Snapshot.ID -like "VirtualMachineSnapshot-*")
			{
				$MailMessage.Body += $Snapshot.Created, $Snapshot.Name, $Snapshot.Description + "<br>"
			}
		}
		$MailMessage.Body += "<br>"
	}
}
$MailMessage.Body += "</font>"
$SmtpClient.Send($MailMessage)