«

»

Dub 12

PS-Zapnutí RDP na vzdálených počítačích

# ————————————————-

# Script: Remote Run Service RDP all domain computer

# Autor: Bock Ondrej Bc., Pernikar David

# Version: 1.0 (12.4.2014)

# ————————————————-

$Path = „Dc=pernikar,DC=cz“

$Sluzba = ‚RemoteRegistry‘

Set-ExecutionPolicy Unrestricted

Import-Module activedirectory

$Comps = Get-ADComputer -Filter * -SearchBase „$Path“ | foreach {$_.Name}

foreach ($Comp in $Comps)

{

$Comps2 = $Comp

if (Test-Connection -ComputerName $Comps2 -Count 1 -ea 0) #-BufferSize 16 -Count 1 -ea 0 -Quiet)

{

Start-Service -InputObject $(Get-Service -Computer $Comps2 -Name „$Sluzba“) #Nastartuje službu RomoteRegistry

Set-Service -ComputerName $Comps2 -Name $Sluzba -StartupType Automatic #Nastavuje automatické spuštění služby

Write-Host „OK – $Comps2 – $Sluzba „

Write-Verbose „Zapnu RDP pomocí vdzáleného registru: $Comps2“

                        $reg = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey(‚LocalMachine‘, $Comps2)

                        $regkey = $reg.OpenSubKey(„SYSTEM\\CurrentControlSet\\Control\\Terminal Server“,$true)

                        $regkey.SetValue(‚fDenyTSConnections‘,’0′,’DWord‘)

                        Write-Host „OK – $Comps2 – RDP „

}

else

{Write-Host „ERROR – $Comps2 – Vypnuto“

}

}