| |
Lancelot
Posts: 3
Score: 0
Joined: 10/2/2005
Status: offline
|
'VBScript to Add an Active Directory Global Group to a Local Group on a Computer
'
'Example: Add an Active Directory General Desktop Administrator Group to the Local
' Administrator Group. this can be Used to provide Local Administrator rights
' to AD Users.
'
'MyDomain is in the form e.g Menkaura.com
'Global Group is in form e.g Local Desktop Administrator User Rights
'
'Provided by http://www.Menkaura.com/Forum/index.php
'Visit us to see what else we have on offer.
Option Explicit
On Error Resume Next
'Define Variables
Dim Mydomain
Dim GlobalGroup
Dim oDomainGroup
Dim oLocalAdmGroup
Dim oNet
Dim sComputer
Set oNet = WScript.CreateObject("WScript.Network")
sComputer = oNet.ComputerName
MyDomain = "Place Your Domain Name Here"
GlobalGroup = "Local Desktop Administrator User Rights"
Set oDomainGroup = GetObject("WinNT://" & MyDomain & "/" & GlobalGroup & ",group")
Set oLocalAdmGroup = GetObject("WinNT://" & sComputer & "/Administrators,group")
oLocalAdmGroup.Add(oDomainGroup.AdsPath)
'Nullify Variables
Set Mydomain = Nothing
Set GlobalGroup = Nothing
Set oDomainGroup = Nothing
Set oLocalAdmGroup = Nothing
Set oNet = Nothing
Set sComputer = Nothing
_____________________________
Regards, John
Find me at: http://www.Menkaura.com/Forum/index.php
|
|
Printable Version
Add an Active Directory Global Group to a Local Group o... - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread