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