SHOW:
|
|
- or go back to the newest paste.
| 1 | - | Option Explicit |
| 1 | + | |
| 2 | ||
| 3 | - | Dim objShell |
| 3 | + | |
| 4 | - | Dim objFSO |
| 4 | + | |
| 5 | - | Dim objFile |
| 5 | + | |
| 6 | - | Dim strRemoteFile |
| 6 | + | |
| 7 | - | Dim strCentralRepository |
| 7 | + | If objFSO.FileExists(strRemoteFile) Then |
| 8 | - | Dim strCmd03 |
| 8 | + | |
| 9 | - | Dim objArgs, strSourceComputer, strDestinationComputer, intArg |
| 9 | + | |
| 10 | - | Dim strToSplit, strSplitted, strSplitElement, myArray |
| 10 | + | |
| 11 | - | dim error, error1 |
| 11 | + | |
| 12 | error1 = MsgBox("Check " & strDestinationComputer & " is online",16,"Error")
| |
| 13 | - | Set objFSO = CreateObject("Scripting.FileSystemObject")
|
| 13 | + | |
| 14 | - | Set objShell = WScript.CreateObject("WScript.Shell")
|
| 14 | + | |
| 15 | - | Set objFile = objFSO.OpenTextFile("C:\USMTScript\loadstatemachines.txt")
|
| 15 | + | Else |
| 16 | wscript.sleep 6000 | |
| 17 | - | strCentralRepository = "\\192.168.1.120\USMTScript\USMTCentralRepository" |
| 17 | + | |
| 18 | document.write(error) | |
| 19 | - | Do Until objFile.AtEndOfStream |
| 19 | + | End If |
