'Orgs = array("311HSW","337 AESG","77AESW")
'Orgs = array("FASW","LRSSW","YJ-WP")
'Container = ",OU=ASC,OU=WP,DC=WRIGHTPATTERSON,DC=AFMC,DC=DS,DC=AF,DC=Mil"
Orgs = array("337 AESG,OU=ASC","77AESW,OU=ASC","77 AESW,OU=Computers-Vista")
Container = ",OU=WP,DC=WRIGHTPATTERSON,DC=AFMC,DC=DS,DC=AF,DC=Mil"
Dim arrCompNames()
'--------------------------------------------
'---- Begin Validation of First Argument ----
'--------------------------------------------
Usage = False
sn=left(WScript.ScriptName, inStr(WScript.Scriptname, ".")-1 )
If Wscript.Arguments.Count = 0 Then
Usage = True
Else
CommandLine = False
NewLog = True
GCQuery = False
DoServers = False
NewLogOnly = False
NoGo = False
strUseFileName = sn & "-0Comps.Log"
If left(WScript.Arguments(0), 1) <> "/" And left(WScript.Arguments(0), 1) <> "?" Then
CommandLine = True
NewLog = False
ReDim arrCompnames(0)
arrCompNames(0) = WScript.Arguments(0)
Else
Select Case UCase(WScript.Arguments(0))
Case "/AD"
GCQuery = True
Case "/ADS"
GCQuery = True
DoServers = True
Case "/NL"
NewLogOnly = True
Case "/NOGO"
NoGo = True
Case "/?", "?"
Usage = True
Case Else
If left(WScript.Arguments(0), 1) = "/" Then
strUseFileName = Right(WScript.Arguments(0), len(WScript.Arguments(0)) - 1)
Else
WSCript.Echo:WScript.Echo:Wscript.Echo "Invalid First Argument!!!":WScript.Echo
Usage = True
End If
End Select
End If
End If
If Usage Then ShowUsage
'---------------------------------------------
'---- End Validation of First Arguments ----
'---------------------------------------------
'--------------------------------------------------------
'---- Begin File Copy Check and Build Task Arguments ----
'--------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
IssueCopyTask = False
LastTaskArg = Wscript.Arguments.Count - 1
strFile = ""
strFolder = ""
IssueRemoteCommand = False
strTask = ""
If len(WScript.Arguments(LastTaskArg)) > 6 Then
If WScript.Arguments.Named.Item("File") = right(WScript.Arguments(LastTaskArg), len(WScript.Arguments(LastTaskArg)) - 6) Then
If instr(1, WScript.Arguments.Named.Item("File"), " ", 1) = 0 Then strFile=WScript.Arguments.Named.Item("File") _
Else strFile = Chr(34) & WScript.Arguments.Named.Item("File") & Chr(34)
End If
End If
If len(WScript.Arguments(LastTaskArg)) > 8 Then
If WScript.Arguments.Named.Item("Folder") = right(WScript.Arguments(LastTaskArg), len(WScript.Arguments(LastTaskArg)) - 8) Then
If instr(1, WScript.Arguments.Named.Item("Folder"), " ", 1) = 0 Then strFolder=WScript.Arguments.Named.Item("Folder") _
Else strFolder = Chr(34) & WScript.Arguments.Named.Item("Folder") & Chr(34)
End If
End If
If strFile <> "" Or strFolder <> "" Then
IssueCopyTask = True
Set objNet = CreateObject("WScript.Network")
LastTaskArg = LastTaskArg - 1
If strFile <> "" Then
If Not objFSO.FileExists(strFile) Then WScript.Echo:WScript.Echo " The File Specified (" & strFile & ") Does Not Exist":WSCript.Echo:Wscript.Quit
Else
If Not objFSO.FolderExists(strFolder) Then WScript.Echo:WScript.Echo " The Folder Specified (" & strFolder & ") Does Not Exist":WSCript.Echo:Wscript.Quit
End If
If objFSO.DriveExists("Z:") Then objNet.RemoveNetworkDrive("Z:")
End If
If LastTaskArg > 0 Then
IssueRemoteCommand = True
If instr(1, WScript.Arguments(1), " ", 1) = 0 Then strTask=WScript.Arguments(1) Else strTask = Chr(34) & WScript.Arguments(1) & Chr(34)
If LastTaskArg > 1 Then
For i = 2 to LastTaskArg
If instr(1, WScript.Arguments(i), " ", 1) = 0 Then strTask = strTask & " " & WScript.Arguments(i) _
Else strTask = strTask & " " & Chr(34) & WScript.Arguments(i) & Chr(34)
Next
End If
End If
If NoGo Then
Set objCmdFile = objFSO.OpenTextFile(sn & "-0CmdLine.Log", 1)
IssueCopyTask = objCmdFile.ReadLine
strFile = objCmdFile.ReadLine
strFolder = objCmdFile.ReadLine
IssueRemoteCommand = objCmdFile.ReadLine
strTask = objCmdFile.ReadLine
objCmdFile.Close
End If
'--------------------------------------------------------
'---- End File Copy Check and Build Task Arguments ----
'--------------------------------------------------------
'-------------------------
'---- Begin Log Files ----
'-------------------------
PrintHeader=True
If NewLog Then
If objFSO.FileExists(sn & "-9.Log") Then objFSO.DeleteFile sn & "-9.Log"
If objFSO.FileExists(sn & "-9Comps.Log") Then objFSO.DeleteFile sn & "-9Comps.Log"
If objFSO.FileExists(sn & "-9Success.Log") Then objFSO.DeleteFile sn & "-9Success.Log"
If objFSO.FileExists(sn & "-9NoGo.Log") Then objFSO.DeleteFile sn & "-9NoGo.Log"
If objFSO.FileExists(sn & "-9CmdLine.Log") Then objFSO.DeleteFile sn & "-9CmdLine.Log"
For i = 8 To 0 Step -1
If objFSO.FileExists(sn & "-" & i & ".Log") Then objFSO.MoveFile sn & "-" & i & ".Log", sn & "-" & i+1 & ".Log"
If objFSO.FileExists(sn & "-" & i & "Comps.Log") Then objFSO.MoveFile sn & "-" & i & "Comps.Log", sn & "-" & i+1 & "Comps.Log"
If objFSO.FileExists(sn & "-" & i & "Success.Log") Then objFSO.MoveFile sn & "-" & i & "Success.Log", sn & "-" & i+1 & "Success.Log"
If objFSO.FileExists(sn & "-" & i & "NoGo.Log") Then objFSO.MoveFile sn & "-" & i & "NoGo.Log", sn & "-" & i+1 & "NoGo.Log"
If objFSO.FileExists(sn & "-" & i & "CmdLine.Log") Then objFSO.MoveFile sn & "-" & i & "CmdLine.Log", sn & "-" & i+1 & "CmdLine.Log"
Next
Set objLogFile = objFSO.CreateTextFile(sn & "-0.Log", False)
Else
If objFSO.FileExists(sn & "-0.Log") Then PrintHeader=False
Set objLogFile = objFSO.OpenTextFile(sn & "-0.Log", 8, True)
End If
If PrintHeader Then
'-------
WScript.Echo "Time" & chr (9) & "Computer Name" & chr (9) & "Ping" & chr (9) & "Map" & chr (9) & "Copy" & chr (9) & "Connect" & chr (9) & "Command" & chr (9) & "PID"
objLogFile.Writeline "Time" & chr (9) & "Computer Name" & chr (9) & "Ping" & chr (9) & "Map" & chr (9) & "Copy" & chr (9) & "Connect" & chr (9) & "Command" & chr (9) & "PID"
'-------
End If
If NewLogOnly Then WSCript.QUit(0)
If Not CommandLine Then
Set objCmdFile = objFSO.OpenTextFile(sn & "-0CmdLine.Log", 8, True)
objCmdFile.Writeline IssueCopyTask
objCmdFile.Writeline strFile
objCmdFile.Writeline strFolder
objCmdFile.Writeline IssueRemoteCommand
objCmdFile.Writeline strTask
objCmdFile.Close
End If
'-------------------------
'---- End Log Files ----
'-------------------------
'------------------------
'---- Begin AD Query ----
'------------------------
If GCQuery Then
Set objCompsFile = objFSO.CreateTextFile(sn & "-0Comps.Log", False)
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
'**** TechNet/MSDN search on "ADsDSOObject"
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 2000
objCommand.Properties("Searchscope") = 2 'ADS_SCOPE_SUBTREE
For i = O to UBound(Orgs)
y = Len("Please Wait... (Retrieving data from " & Orgs(i) & Container & ")")
WScript.Stdout.Write "Please Wait... (Retrieving data from " & Orgs(i) & Container & ")"
objCommand.CommandText = "SELECT Name FROM 'LDAP://OU=" & Orgs(i) & Container & "' WHERE objectCategory='Computer' ORDER By Name"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
For x = 1 To y
WScript.StdOut.Write Chr(8) & " " & Chr(8)
Next
If DoServers OR StrComp(right(left(objRecordSet.Fields("Name"),5),1),"Z",1) = 0 Then
y = Len(objRecordSet.Fields("Name"))
WScript.StdOut.Write objRecordSet.Fields("Name")
objCompsFile.Writeline objRecordSet.Fields("Name")
End If
objRecordSet.MoveNext
Loop
For x = 1 To y
WScript.StdOut.Write Chr(8) & " " & Chr(8)
Next
Next
objConnection.Close
objCompsFile.Close
End If
'------------------------
'---- End AD Query ----
'------------------------
'----------------------------------------------------------
'---- Begin Input (and NoGo) and Output Computer Files ----
'----------------------------------------------------------
If Not CommandLine Then
If NoGo Then objFSO.CopyFile sn & "-1NoGo.Log", sn & "-0Comps.Log"
If strUseFileName <> sn & "-0Comps.Log" Then objFSO.CopyFile strUseFileName, sn & "-0Comps.Log"
Set objCompsFile = objFSO.OpenTextFile(sn & "-0Comps.Log", 1, False)
Set objSuccessFile = objFSO.CreateTextFile(sn & "-0Success.Log", False)
Set objNoGoFile = objFSO.CreateTextFile(sn & "-0NoGo.Log", False)
intArrSize = 0
Do While objCompsFile.AtEndOfStream <> True
ReDim Preserve arrCompNames(intSize)
arrCompNames(intSize) = objCompsFile.Readline
intSize=intSize + 1
Loop
objCompsFile.Close
End If
'----------------------------------------------------------
'---- End Input (and NoGo) and Output Computer Files ----
'----------------------------------------------------------
'WScript.Echo " Usage - " & Usage
'WScript.Echo "CommandLine - " & CommandLine
'WScript.Echo " NewLog - " & NewLog
'WScript.Echo " GCQuery - " & GCQuery
'WScript.Echo " DoServers - " & DoServers
'WScript.Echo " NewLogOnly - " & NewLogOnly
'WScript.Echo " NoGo - " & NoGo
'WScript.Echo "strUseFileName - " & strUseFileName
'WScript.Echo
'Wscript.Echo
'WScript.Echo "IssueCopyTask - " & IssueCopyTask
'WScript.Echo " strFile - " & strFile
'WScript.Echo " strFolder - " & strFolder
'WScript.Echo
'WScript.Echo "IssueRemoteCommand - " & IssueRemoteCommand
'WScript.Echo " strTask - " & strTask
'WScript.Echo
'If uBound(arrCompNames) = 0 Then WScript.Echo arrCompNames(0) Else WScript.Echo "Issueing on " & uBound(arrCompNames) & " Systems"
'Wscript.Quit
'-----------------------------------------------------------------------
'---- Begin Ping, Map Drive, Copy File/Folders, and Execute Command ----
'-----------------------------------------------------------------------
On Error Resume Next
for i = 0 to Ubound(arrCompNames)
WScript.stdOut.Write Now & Chr(9) & arrCompNames(i) & Chr(9)
objLogFile.Write Now & Chr(9) & arrCompNames(i) & Chr(9)
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & arrCompNames(i) & "' AND timeout=500")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
If IsNull(objStatus.StatusCode) And objStatus.PrimaryAddressResolutionStatus = 11001 Then
NoPingResponse = "No DNS"
ElseIf objStatus.StatusCode = 11010 And objStatus.PrimaryAddressResolutionStatus = 0 Then
NoPingResponse = "Down"
Else
NoPingResponse = "Ping Error (Status Code - " & objStatus.StatusCode & ", Resolution Status - " & objStatus.PrimaryAddressResolutionStatus & ")"
End If
WScript.StdOut.WriteLine NoPingResponse
objLogFile.WriteLine NoPingResponse
If CommandLine then
Select Case NoPingResponse
Case "No DNS" WScript.Quit(800)
Case "Down" WScript.Quit(700)
Case Else WScript.Quit(900)
End Select
Else
objNoGoFile.WriteLine arrCompNames(i)
End If
Else
WScript.StdOut.Write "Up" & Chr(9)
objLogFile.Write "Up" & Chr(9)
If IssueCopyTask Then
If objFSO.DriveExists("Z:") Then objNet.RemoveNetworkDrive("Z:")
objNet.MapNetworkDrive "Z:", "\\" & arrCompNames(i) & "\C$"
If Err.Number <> 0 Then
WScript.StdOut.WriteLine "Error Mapping " & Chr(34) & "Z:" & Chr(34) & " To \\" & arrCompNames(i) & "\C$ (" & objStatus.ProtocolAddress & ") [Err #" & Err.Number & ", "& Err.Description & "]"
objLogFile.WriteLine "Error Mapping " & Chr(34) & "Z:" & Chr(34) & " To \\" & arrCompNames(i) & "\C$ (" & objStatus.ProtocolAddress & ") [Err #" & Err.Number & ", "& Err.Description & "]"
If CommandLine then WScript.Quit(600)
Else
WScript.StdOUt.Write "OK" & Chr(9)
objLogFile.Write "OK" & Chr(9)
If strFile = "" Then
objFSO.CopyFolder strFolder, "Z" & right(strFolder, len(strFolder)-1 )
Else
objFSO.CopyFile strFile, "Z" & right(strFile, len(strFile)-1 )
End If
End If
If Err.Number <> 0 Then
If strFile = "" Then
strCopyError = "Folder (" & strFolder & ") to Z" & right(strFolder, len(strFolder)-1 ) & "[Err #" & Err.Number & ", "& Err.Description & "]"
Else
strCopyError = "File (" & strFile & ") to Z" & right(strFile, len(strFile)-1 ) & " [Err #" & Err.Number & ", "& Err.Description & "]"
End If
WScript.StdOut.WriteLine "Error Copying " & strCopyError
objLogFile.WriteLine "Error Copying " & strCopyError
If CommandLine then WScript.Quit(500)
Else
WScript.StdOUt.Write "OK" & Chr(9)
objLogFile.Write "OK" & Chr(9)
End If
Else
WScript.StdOUt.Write "N/A" & Chr(9) & "N/A" & Chr(9)
objLogFile.Write "N/A" & Chr(9) & "N/A" & Chr(9)
End If
If Err.Number = 0 AND IssueRemoteCommand Then
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & arrCompNames(i) & "\root\cimv2:Win32_Process")
If Err.Number <> 0 Then
Wscript.StdOut.WriteLine "Cannot connect through WMI (Error: " & CStr(Err.Number) & " - " & Err.Description & ")"
objLogFile.WriteLine "Cannot connect through WMI (Error: " & CStr(Err.Number) & " - " & Err.Description & ")"
If CommandLine then WScript.Quit(400)
Else
WScript.stdOut.Write "Connected" & Chr(9)
objLogFile.Write "Connected" & Chr(9)
WScript.stdOut.Write strTask & Chr(9)
objLogFile.Write strTask & Chr(9)
Error = objWMIService.Create(strTask, "C:\Temp", null, intProcessID)
If Error <> 0 Then
WScript.stdOut.WriteLine "Could Not Start (Error: " & Error & ")"
objLogFile.WriteLine "Could Not Start (Error: " & Error & ")"
If CommandLine then WScript.Quit(300)
Else
WScript.stdOut.WriteLine "Started (PID" & intProcessID & ")"
objLogFile.WriteLine "Started (PID" & intProcessID & ")"
' Set ProcFile = objFSO.CreateTextFile("ExecProc.Log", True)
' ProcFile.Write intProcessID
' ProcFile.Close
End If
End If
Else
If Not CommandLine Then
WScript.stdOut.WriteLine "N/A" & Chr(9) & "N/A" & Chr(9) & "N/A"
objLogFile.WriteLine "N/A" & Chr(9) & "N/A" & Chr(9) & "N/A"
End If
End If
If Not CommandLine Then
If Err.Number <> 0 Or Error <> 0 Then
objNoGoFile.WriteLine arrCompNames(i)
Else
objSuccessFile.WriteLine arrCompNames(i)
End If
End If
End If
Next
Err.Clear
Next
'----------------------------------------------------------------------
'---- End Ping Map Drive, Copy File/Folders, and Execute Command ----
'----------------------------------------------------------------------
If Not CommandLine Then ObjNoGoFile.Close:ObjSuccessFile.Close
ObjLogFile.Close
WScript.Quit(0)
Function ShowUsage()
WScript.Echo "Can either run the command line specified on remote machine(s) specified by the"
WScript.Echo "first argument, and/or can copy a file (or folder) to the remote system, or"
WScript.Echo "both. Can also be used to check the (ping) status of computer(s). All valid"
WScript.Echo "instances of it running are logged to 'script_name0.Log' (i.e. Execute.Log)."
WScript.Echo
WScript.Echo "Usage - CScript //E:VBS Execute.Txt [ /NL ]"
WScript.Echo " Or [ Remote_Computer_Name | /AD
| /file_of_Comps.Txt | /NoGo ]"
WScript.Echo " And/Or [ Driveath\Program and Arguments to Execute ]"
WScript.Echo " And/Or [/File:<Drive:\Path\Name> | /Folder:<Drive:\Path\Folder> ]"
WScript.Echo
WScript.Echo
WScript.Echo " /NL - NewLog: deletes scriptname'9.Log', increments each '#.Log' by one,"
WScript.Echo " creates new '0.Log'. No other actions are taken."
WScript.Echo " This is the DEFAULT for all except a single computer as the first argument"
WScript.Echo
WScript.Echo " Remote_Computer_Name - Name of remote computer"
WScript.Echo
WScript.Echo " /AD - Get computers from Active Directory specified by the 'Orgs' array in"
WScript.Echo " the first lines of the code. The query is recursive to all sub OU's"
WScript.Echo " of the OU and only retrieves computers with the fifth character of the"
WScript.Echo " computer name being a 'Z'."
WScript.Echo
WScript.Echo " /ADS - Same as /AD except retrieves all computers, irregardless of the fifth"
WScript.Echo " character being a 'Z' (i.e. includes servers)."
WScript.Echo
WScript.Echo " /File_of_Comps.Txt - Path and File Name of file containing names or addresses"
WScript.Echo
WScript.Echo " /NoGo - Invoke previous run on systems that failed the previous run"
WScript.Echo
WScript.Echo " /File:<Drive:\Path\Name> - file to be copied to same location on the remote"
WScript.Echo " /Folder:<Drive:\Path\Folder - folder to be copied to same location on remote"
WScript.Echo
WScript.Echo "WARNING: Copy File/Folder will overwrite existing files without read-only"
WScript.Echo " attribute set, whereas it will then fail during the copy. Wildcards are"
WScript.Echo " allowed and if folder is specified, the copy is recursive."
WScript.Echo
WScript.Echo "Comments: Enclose in quotes paths and file/folder names that contain spaces."
WScript.Echo " All arguments between the first (computer(s)) and the last (or '/File:' or"
WScript.Echo " '/Folder:') are considered to be command line arguments for the remote"
WScript.Echo " command and will be performed exactly as entered. If nothing is specified"
WScript.Echo " after the computer(s) the script will perform a ping status check. A file"
WScript.Echo " named 'Complete.Log' is generated for computers that the remote command"
WScript.Echo " and/or file copy was issued successfully upon (this does not imply that the"
WScript.Echo " command completed successfully, but, only that it was successfully issued."
WScript.Echo " A file named 'NoGo.Log' is generated for computers that at some point failed"
WScript.Echo
WScript.Echo " Command Line Exit Codes:"
WScript.Echo " 1000 - Show Usage"
Wscript.Echo " 900 - WinSock Error During Ping"
WScript.Echo " 800 - No DNS Entry Found"
WScript.Echo " 700 - No Response to Ping"
WScript.Echo " 600 - Error Mapping"
WScript.Echo " 500 - Error Copying"
WScript.Echo " 400 - Error Connecting through WMI"
WScript.Echo " 300 - Error Starting remote process"
WScript.Quit(1000)
End Function
'-----------------------------------------------------------------------------------------------------------------------------------
'23456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012
' 1 2 3 4 5 6 7 8 9 10 11 12 13
'-----------------------------------------------------------------------------------------------------------------------------------
'For PrimaryAddressResolutionStatus see "Windows Socket Error Codes" at http://msdn2.microsoft.com/en-us/library/ms740668.aspx
'0 Success
'11001 Host not found (in database - DNS), No such host is known
'----------------------------------------------
'Win32_Pingstatus Status Codes
'Value Description
'0 Success
'11001 Buffer Too Small
'11002 Destination Net Unreachable
'11003 Destination Host Unreachable
'11004 Destination Protocol Unreachable
'11005 Destination Port Unreachable
'11006 No Resources
'11007 Bad Option
'11008 Hardware Error
'11009 Packet Too Big
'11010 Request Timed Out
'11011 Bad Request
'11012 Bad Route
'11013 TimeToLive Expired Transit
'11014 TimeToLive Expired Reassembly
'11015 Parameter Problem
'11016 Source Quench
'11017 Option Too Big
'11018 Bad Destination
'11032 Negotiating IPSEC
'11050 General Failure
'----------------------------------------------
'Win32_Process.Create Return Codes
'Value Description
' 0 Successful Completion
' 2 Access Denied
' 3 Insufficient Privilege
' 8 Unknown failure
' 9 Path Not Found
' 21 Invalid Parameter