Hi,
This vbscript will be helpful for run remotely any batch file.
You can be enter system host name in computer.txt and run vbs file.
I have tested my organization and successfully remove the Symantec antivirus hardware id and replace the syslink file.
Note: kindly copy PsExec.exe freeware tool download for http://technet.microsoft.com/en-us/sysinternals/bb897553 and for copy c:\windows\system32\ after run the vbscript.
**************************************************Script *****************************************************************
Option Explicit
Const ForReading = 1
Const ForWriting = 2
Const OverwriteExisting = TRUE
Dim objFSO, strComputer, objFile, filesys, testfile, strPSExec, strCmd, objShell, strUser, strPass
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Computer.txt") 'Change the name and location of the output file as needed
Set filesys = CreateObject("Scripting.FileSystemObject")
Set testfile = filesys.CreateTextFile("c:\scripts\ScriptFeedback.txt", True) 'Change the name and location of the output file as needed
strUser = InputBox("Please Enter Your Username: " & (Chr(13) & Chr(10)) & "(Format:domain\username) ")
strPass = InputBox("Please Enter Your password: ")
Do Until objFile.AtEndOfStream
On Error Resume Next
strComputer = objFile.ReadLine
Set objShell = CreateObject("Wscript.Shell")
strPSExec = "c:\windows\system32\psexec.exe"
strCmd = strPSExec & " -d " & " -u " & strUser & " -p " & strPass & " \\" & strComputer & " cmd /c " & "\\systemname\c$\Scripts\Delete.bat" 'Change to reflect location of batch file in network
objShell.Run strCmd, 0, False
If Err.Number <> 0 Then
testfile.WriteLine strComputer
Err.Clear
End If
Set objFSO = Nothing
Loop
testfile.Close