set-admin-password.ps1, Powershell script to reset the admin password for Eucalyptus instances

gistfile1.txt

param( 
[int] $len = 6,
[string] $chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_"
)
$bytes = new-object "System.Byte[]" $len
$rnd = new-object System.Security.Cryptography.RNGCryptoServiceProvider
$rnd.GetBytes($bytes)
$result = ""
for( $i=0; $i -lt $len; $i++ )
{
	$result += $chars[ $bytes[$i] % $chars.Length ]	
}
Write-Host "Administrator password reset to $result"

net user administrator $result

$port= new-Object System.IO.Ports.SerialPort COM1
$port.open()
$port.write("** Access Credentials **`n`nUsername: administrator`nPassword: $result`n")
$port.close()