Delete Schedul Task from multiple servers 1

[Junbron]

heres a script to delete an specific task in a machine..
can anyone please be able to help to add a script for me to be able to delete that specific Task from multiple servers..
I have a list of the server in txt file..

Thanks


Dim objShell As Object

Set objShell = CreateObject("Wscript.Shell")
objShell.Exec ("schtasks /delete /tn ""MyTaskName""")
Set objShell = Nothing

 

[Geates]

[tt]schtasks[/tt] has a /system switch to specify on what machine the command should execute. Use the File System Object to open you server text file, read the contents one server at a time, and plug the servername into the command. Here's a small example

list.txt

serverA
serverB
serverC

deleteTask.vbs

[COLOR=#CC0000]set objFSO = CreateObject("Scripting.FileSystemObject")[/color]
set objShell = CreateObject("WScript.Shell")

[COLOR=#CC0000]set objStream = objFSO.OpenTextFile("C:\list.txt", 1)[/color]
do while not objStream.AtEndOfStream
   [COLOR=#729FCF]strServer = trim(objStream.ReadLine)[/color]
   [COLOR=#73D216]strCommand = "schtasks /delete /s " & strServer " /tn ""MyTaskName"""[/color]
   objShell.exec strCommand
loop
msgbox "done"

-Geates

http://ns7.webmasters.com/caspdoc/html/vbscript_language_reference.htm