Add Domain User to Local Admin on Multiple Servers
Add Domain User to Local Admin on Multiple Servers
Upon multiple requests, uploading my Old Script to Add Domain User to Local Admin on Multiple Servers.
'==========================================================================
' Author: Murali M Palla
' NAME: Add_Domain_User_to_Local_Administrators.vbs
' DATE : 2012-Nov-08
' COMMENT: Takes the file servers.txt and outputs results to Job_Status.csv
' Version: V2
'==========================================================================
On Error Resume Next
Const ForReading = 1
Const ForAppending = 8
domain = InputBox("Enter the Domain Name ")
myGroup = InputBox ("What NT DOMAIN User do you wish to add to the Local Administrator Group?")
UserConfirmation= MsgBox ("You Entered : "&Domain&"\"&mygroup,vbYesNo)
If UserConfirmation = vbYes Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set SrvList = objFSO.OpenTextFile("servers.txt", ForReading)
Set Reportfile = objFSO.CreateTextFile ("Job_Status.csv",True)
Reportfile.WriteLine "Server Name" &"," & " Status "
Do Until SrvList.AtEndOfStream
strComputer = lcase(srvlist.readline)
strDomainGroup = "WinNT://" & domain & "/" & myGroup & ",user"
Set objDomainGroup = GetObject(strDomainGroup)
Set objNetwork = CreateObject("Wscript.Network")
Set objLocalGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
If Err.Number <> 0 Then
Reportfile.writeline UCase(strComputer) &","& Err.Number &"," & Err.Description
Err.Clear
Else
If objLocalGroup.IsMember(objDomainGroup.AdsPath) Then
Reportfile.WriteLine UCase(strComputer) &"," & Domain & "\" & myGroup &"," & " Is Already A Member of the Local Admin"
Else
objLocalGroup.Add(objDomainGroup.AdsPath)
Reportfile.WriteLine UCase(strComputer) &"," & Domain & "\" & myGroup &"," & " Added to Local Admin"
End If
End if
Loop
WScript.Echo "Done, Please check Job_Status.csv"
Else
MsgBox ("Script Stoping per your confirmation")
End If