'Remote Desktop Autosetup by RJ Novack
'Last modified 25 May 2006 by RJ Novack

'This script automates the settings changes needed to enable Remote Desktop on
'a typical Ross School of Business office workstation.


Dim oShell, sOSVersion
Set oShell = CreateObject("Wscript.Shell")

  YorN = MsgBox ("This will enable the Remote Desktop Service. Continue?  ", 1, "Enable Remote Desktop")

  If YorN = VbCancel Then
    WScript.Quit 1
  End If

  sOSVersion = oShell.RegRead(_
    "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")

  If sOSVersion <> "5.1" Then
    Msgbox "Your machine is not running Windows XP." & VbCr & VbCr & "Please contact the Helpdesk for assistance." & VbCr & "helpdesk@bus.umich.edu or 734-615-3000 opt. 3",,"No Remote Desktop For You!"
    WScript.Quit 1
  End If

  v = oShell.RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber","7678","REG_DWORD")

  v = oShell.RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List\7678:TCP","7678:TCP:*:Enabled:Tweaked Remote Desktop","REG_SZ")

  v = oShell.RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\fDenyTSConnections","0","REG_DWORD")

  YorN = MsgBox ("You must reboot your machine for changes to take affect.  " & VbCr & VbCr & "                          Reboot now?",52,"Reboot?")

  If YorN = VbYes Then
    Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 

    for each OpSys in OpSysSet 
        OpSys.Reboot() 
    next
  Else
    MsgBox "Please remember to reboot!  ", 64, "Remember!"
  End If