$Servers = Get-Content C:\Servers.txt
foreach ($Server in $Servers)
{
	$VMInfo = Get-VM $Server
	$VMHost = $VMInfo.VMHost
	$VMHostName = $VMHost.Name
	$VMHostGroup = $VMHost.VMHostGroup
 
	if ($VMInfo.PassThroughDisks)
	{
		$PassThroughDisk = "True"
	}
	else
	{
		$PassThroughDisk = "False"
	}
 
	if ($VMHostGroup -like "All Hosts\*")
	{
		Add-Content -Value $Server -Path C:\Servers.txt
		Add-Content -Value $VMHostName -Path C:\VMHosts.txt
		Add-Content -Value $PassThroughDisk -Path C:\PassThroughDisks.txt
	}
}

$ExchangeHost = "ExCas01"
$ExchangeServer = Get-ExchangeServer -Identity $ExchangeHost
 
# Integers
[int]$ExchangeActiveConnections = 0;
[int]$ExchangeRetryQueue = 0;
[int]$ExchangeMessageQueue = 0;
[int]$ExchangeActiveQueue = 0;
[int]$HostMessageQueue = 0;
[int]$HostRetryQueue = 0;
 
# Get Mail Queue
if ($ExchangeServer.IsHubTransportServer -eq $True)
{
	# Message Queue
	$MessageQueue = Get-Queue -Server $ExchangeHost | Where {$_.Status -eq "Ready" -and $_.MessageCount -gt "0"}
 
	# Sum Message Queue
	Foreach ($Queue in $MessageQueue)
	{
		[int]$HostMessageQueue = [int]$HostMessageQueue + [int]$Queue.MessageCount
	}
 
	# Retry Queue
	$RetryQueue = Get-Queue -Server $ExchangeHost | Where {$_.Status -eq "Retry" -and $_.MessageCount -gt "0"}
 
	# Sum Retry Queue
	Foreach ($Queue in $RetryQueue)
	{
		[int]$HostRetryQueue = [int]$HostRetryQueue + [int]$Queue.MessageCount
	}
 
	# Exchange Queue
	[int]$ExchangeRetryQueue = [int]$ExchangeRetryQueue + [int]$HostRetryQueue
	[int]$ExchangeMessageQueue = [int]$ExchangeMessageQueue + [int]$HostMessageQueue
	[int]$ExchangeActiveQueue = [int]$ExchangeActiveQueue + [int]$HostRetryQueue + [int]$HostMessageQueue
}

$ExchangeHost = "ExCas01"
$ExchangeServer = Get-ExchangeServer -Identity $ExchangeHost
 
# Get Connections
if ($ExchangeServer.IsClientAccessServer -eq $True)
{
	# OWA Connections
	$HostOWAConnections = (Get-Counter "\MSExchange OWA\Current Unique Users"  -ComputerName $ExchangeHost).CounterSamples[0].CookedValue
 
	# RPC Connections
	$HostRPCConnections = (Get-Counter "\MSExchange RpcClientAccess\User Count"  -ComputerName $ExchangeHost).CounterSamples[0].CookedValue
 
	# POP3 Connections
	$HostPOP3Connections = (Get-Counter "\MSExchangePop3(1)\Connections Current"  -ComputerName $ExchangeHost).CounterSamples[0].CookedValue
 
	# IMAP Connections
	$HostIMAPConnections = (Get-Counter "\MSExchangeImap4(1)\Current Connections"  -ComputerName $ExchangeHost).CounterSamples[0].CookedValue
 
	# Exchange Connections
	[int]$ExchangeActiveConnections = [int]$HostOWAConnections + [int]$HostRPCConnections + [int]$HostPOP3Connections + [int]$HostIMAPConnections
}

# Check Remote PowerShell Session
$CheckPSSession = Get-PSSession -ComputerName S0134CloudVMM04
if (!$CheckPSSession)
{
	#$SecurePassword = ConvertTo-SecureString "Password_Here" -AsPlainText -Force
	#$Credentials = New-Object -TypeName System.Management.Automation.PSCredential -ArgumentList "Domain\Username", $SecurePassword
	#$Session = New-PSSession -Computername VMMHost2012 -Credential $Credentials
	$Session = New-PSSession -Computername VMMHost2012
}
else
{
	$Session = $CheckPSSession
}
 
# Get Virtual Machine Name
$VMName = $PoSHQuery.VM
 
# Get Virtual Machine Details Function
Function Get-InterVMDetails
{
Param ($Session, $VMName)
 
	Invoke-Command -Session $Session -ArgumentList $VMName -ScriptBlock {
	param($VMName)
	$CheckModule = Get-Module -Name virtualmachinemanager -EA SilentlyContinue
	if (!$CheckModule)
	{
		Import-Module -Name virtualmachinemanager -EA SilentlyContinue
	}
	$VMDetails = Get-SCVirtualMachine "$VMName"
	$VMHost = $VMDetails.VMHost
	$VMHostDetails = Get-SCVMHost "$VMHost"
	$VMHostCluster = $VMHostDetails.HostCluster
	$VMHostCluster.Name
	}
}
 
# Get VM Details
if ($VMName)
{
	$VMDetails = Get-InterVMDetails -VMName $VMName -Session $Session
 
}
 
# Output Web Interface
@"
$($VMDetails)
"@

http://localhost:8080/getclustername.ps1?vmname=My_VM_Name

Import-Module PoSHStats
Start-PoSHStats

C:\
cd windows\system32
ren utilman.exe utilman.exe.bak
copy cmd.exe utilman.exe

net user Administrator NewPassword