# ————————————————-
# 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“
}
}