[ActiveDir] RDP Script

[Adeel Ansari]

AD Gurus,

 

I am trying to create a script that adds TS accounts for W2K AD domain.
 
I have tried eolwtscom and wts_admin.dll with no luck.

 

I am looking for something like this below but this one only works in 2003
server.

 

http://www.microsoft.com/technet/scriptcenter/scripts/ts/users/tsusvb01.mspx

 

"Const GUEST_ACCESS = 0

 

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer &
"\root\cimv2")

 

Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_TSPermissionsSetting")

 

For Each objItem in colItems
    errResult = objItem.AddAccount("fabrikam\bob", GUEST_ACCESS)
Next"

 

Can someone please help?
Adeel