Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Enable XP remote Desktop with W2k server

Status
Not open for further replies.

8441

Technical User
May 9, 2001
54
GB
I am new to Win 2k server. We have client machines running XP Pro which connect to a Windows 2000 server via VPN. Is it possible to enable remote desktop using the group policy on the Windows 2000 server so we don't have to visit each machine to enable it.

many thanks
Craig
 
Craig,

I don't think you will have much look trying to setup a domain
policy to enable remote desktop on your clients.
I think a visit to each machine is the only way unless you upgrade your server to windows 2003 as this has a lot more options available for policies and better support for xp clients.
 
Hi Craig, yes you can do this with a login script in a Group Policy. Below is a script that I wrote to do it. This script uses a list file of workstation names to do the job. You can of course just remove the parts that get the workstation name and pop this into a policy. Or run it as is from your desktop while logged in as an Admin.


'==========================================================================
'
' NAME: EnableRemote.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: ' DATE : 6/24/2003
'
' COMMENT: Enables remote desktop remotely
'==========================================================================
Const HKEY_LOCAL_MACHINE = &H80000002

On Error Resume Next

'open the file system object
Set oFSO = CreateObject("Scripting.FileSystemObject")
set WSHShell = wscript.createObject("wscript.shell")
'open the data file
Set oTextStream = oFSO.OpenTextFile("wslist.txt")
'make an array from the data file
RemotePC = Split(oTextStream.ReadAll, vbNewLine)
'close the data file
oTextStream.Close

For Each strWorkstation In RemotePC


Set objRegProv = GetObject("winmgmts:{impersonationLevel=Impersonate}" & _
"!\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows Script Host\Settings"
objRegProv.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"Remote","1"

Next



I hope you find this post helpful. Please let me know if it was.

Regards,

Mark
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top