Script for giving a domain group local admin right on workstations

Comments Off

Posted on 3rd June 2010 by admin in Windows 2003

option Explicit

Dim objGroup
Dim strComputer

On Error Resume Next

strComputer = “.”
Set objGroup = GetObject(“WinNT://” & strComputer & “/Administrators,group”)

objGroup.add(“WinNT://yourdomain/yourgroup,group”)
Set objGroup = Nothing