works on windows 2000 workstation but not on Windows XP

[vttech]

This script works great on windows 2000 OS but does not work on Windows XP. Can someone help me figure this out??



Using Group Policy and a Script to Remove everyone except the administrator and the domain admins group form the local administrators group of workstations on CHCB domain.


strComputer = "."

Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")

For Each objUser In objGroup.Members
If objUser.Name <> "Administrator" and objUser.Name <> "Domain Admins" Then
objGroup.Remove(objUser.AdsPath)
End If
Next

 

[conan3]

I tried the following on mine (XP SP2) and it worked fine.

I didn't let it remove anything, but I don't see why it would not work..

David

strComputer = "."
strMessage = ""
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")

For Each objUser In objGroup.Members
If objUser.Name <> "Administrator" and objUser.Name <> "Domain Admins" Then

'Remove Remark Below to Actually remove them pesky users
' objGroup.Remove(objUser.AdsPath)

strMessage = strMessage + objUser.Name & ", "
wscript.echo "The ADS Path for the last user is" & objUser.AdsPath
End If
Next

Wscript.echo "The Following Pesky Non Admin Users were Removed from the local admin group" & Vbcrlf & Vbcrlf & strMessage

 

[vttech]

Sorry I didn't put all the info. It works on XP when you login as account and run the script. But when I


Created an OU in active diretory users and computers call TestEnviroment.
Created a GPO called "RemoveUsers"

Computer Configuration --> Windows Settings --> Scripts(Startup/Shutdown) --> Startup

added localaccount.vbs script

when my windows 2000 clients boot it works. But the script does not work with my Windows XP cleints..

 

[weezy6902]

windowsxp doesnt use "winnt" as the system folder isnt it "windows"

so you want %system% or something like that?


Ben