VB

---

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.

Add Domain Group to Local Admin on Multiple Servers

Visual Basic

'========================================================================== ' Author: Murali M Palla ' NAME: Add_Domain_Group_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 Group 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 & ",group" 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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

'========================================================================== ' Author: Murali M Palla ' NAME: Add_Domain_Group_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 Group 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 & ",group"                                                      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

  460 total views, 1 views today

460 total views, 1 views today

---

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.

Add Domain Users to Multiple Server's Local Admin

Visual Basic

'========================================================================== ' 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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

'========================================================================== ' 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

  1,302 total views, 1 views today

1,302 total views, 1 views today

---

Audit Selected Software From Multiple Servers

This script will search for multiple installed software from various computers and creates an excel sheet with the data. it is a VBScript and needs Microsoft Excel installed on the server that this script will run from. Servers.txt needs to be present with a each […]

896 total views, no views today

---

Network Info / inventory

Creates an Excel File with the Network Info / inventory of all the computers that are listed in servers.txt Needs Excel to be installed on the machine that the script will be run from. Queries and reports the listed items: Machine Name [Which is provided […]

1,220 total views, 1 views today

---