1

Get-VM | Select Name,@{label="VlanID";expression={($_.VirtualNetworkAdapters).VlanID}}

Get-VM | Select Name,@{label="VlanID";expression={($_.VirtualNetworkAdapters).VlanID}}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

$Servers = Get-Content C:\Servers.txt
Foreach ($Server in $Servers)
{
	$Groups = Get-WmiObject Win32_GroupUser –Computer $Server
	$LocalAdmins = $Groups | Where GroupComponent –like '*"Administrators"'
	$LocalUsers = $Groups | Where GroupComponent –like '*"Users"'
	$RDPUsers = $Groups | Where GroupComponent –like '*"Remote Desktop Users"'
 
	Write-Host "Server: $Server"
	Write-Host " "
	Write-Host "Local Admins:"
	$LocalAdmins |% {  
	$_.partcomponent –match ".+Domain\=(.+)\,Name\=(.+)$" > $nul  
	$matches[1].trim('"') + "\" + $matches[2].trim('"')
	}
	Write-Host " "
	Write-Host "Local Users:"
	$LocalUsers |% {  
	$_.partcomponent –match ".+Domain\=(.+)\,Name\=(.+)$" > $nul  
	$matches[1].trim('"') + "\" + $matches[2].trim('"')
	}
	Write-Host " "
	Write-Host "Remote Desktop Users:"
	$RDPUsers |% {  
	$_.partcomponent –match ".+Domain\=(.+)\,Name\=(.+)$" > $nul  
	$matches[1].trim('"') + "\" + $matches[2].trim('"')
	}
	Write-Host " " 
}

$Servers = Get-Content C:\Servers.txt Foreach ($Server in $Servers) { $Groups = Get-WmiObject Win32_GroupUser –Computer $Server $LocalAdmins = $Groups | Where GroupComponent –like '*"Administrators"' $LocalUsers = $Groups | Where GroupComponent –like '*"Users"' $RDPUsers = $Groups | Where GroupComponent –like '*"Remote Desktop Users"' Write-Host "Server: $Server" Write-Host " " Write-Host "Local Admins:" $LocalAdmins |% { $_.partcomponent –match ".+Domain\=(.+)\,Name\=(.+)$" > $nul $matches[1].trim('"') + "\" + $matches[2].trim('"') } Write-Host " " Write-Host "Local Users:" $LocalUsers |% { $_.partcomponent –match ".+Domain\=(.+)\,Name\=(.+)$" > $nul $matches[1].trim('"') + "\" + $matches[2].trim('"') } Write-Host " " Write-Host "Remote Desktop Users:" $RDPUsers |% { $_.partcomponent –match ".+Domain\=(.+)\,Name\=(.+)$" > $nul $matches[1].trim('"') + "\" + $matches[2].trim('"') } Write-Host " " }