script for W7 / to enable rdp and from older client

gogiants1998

New member
Local time
10:47 AM
Messages
2
Is there a script to enable rdp on w7 machines and also to allow older os's like wxp to rdp to w7 machines?

thanks
 

My Computer My Computer

At a glance

w7
OS
w7
Hi gogiants1998,

Here's an article about enabling Remote Desktop in Windows 7 & Vista. I hope it's helpful to you.

Cheers,

Walker
 

My Computer My Computer

At a glance

Windows 7 Home Premium (64-bit) *** Windows X...AMD Athlon Neo X2 1.6GHz *** Intel Core i7 Qu...4.00 GB *** 4.00 GBATI Radeon HD 3200, 384MB *** ATI Radeon HD 4...
Computer Manufacturer/Model Number
HP Pavilion dm3 (netbook) *** 27" iMac (Dual-Boot)
OS
Windows 7 Home Premium (64-bit) *** Windows XP SP3 (32-bit), OSX 10.6
CPU
AMD Athlon Neo X2 1.6GHz *** Intel Core i7 Quad Core 2.8GHz
Memory
4.00 GB *** 4.00 GB
Graphics Card(s)
ATI Radeon HD 3200, 384MB *** ATI Radeon HD 4850, 1GB
Sound Card
ATI High Definition Audio *** ATI High Definition Audio
Monitor(s) Displays
LG Flatron W2053TX
Screen Resolution
1600 x 900 (monitor), 1266 x 768 (laptop) *** 2560 x 1440
Hard Drives
300 GB SATA (internal), 500 GB HP SimpleSave (external) *** 1 TB SATA (internal), 160 GB LaCie (external)
Mouse
Logitech Cordless Optical Mouse for Notebooks
Internet Speed
Broadband
Hello

Yes, I knew about that. I am looking for a way to do it remotely meaning with a script, batch file etc that I could run on target desktops W7 OS and enable it.
thanks
 

My Computer My Computer

At a glance

w7
OS
w7
Code:
 Const ENABLE_CONNECTIONS = 1   strComputer = "." Set objWMIService = GetObject("winmgmts:" _     & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")  Set colItems = objWMIService.ExecQuery _     ("Select * from Win32_TerminalServiceSetting")  For Each objItem in colItems     errResult = objItem.SetAllowTSConnections(ENABLE_CONNECTIONS) Next
change strComputer="." to whatever machine you're trying to enable it on. "." is local machine.
 

My Computer My Computer

At a glance

7 Pro
OS
7 Pro
Back
Top