How do I make this script run 5 times and then end.

I have tried putting in a Do script but haven't been able to make it run 5 times and then quit. Can somebody help me with it....


On Error Resume Next

' EXCEPTION PROGRAM TERMINATION
Dim arrExceptions(1)
Set fso = CreateObject("scripting.FileSystemObject")
Set wshnetwork = CreateObject("wscript.network")
On Error Resume Next


arrExceptions(0)="EXCEPTED CPU"

exception=False
For each name in arrExceptions
     If ucase(wshNetwork.Computername) = ucase(name) Then
          WScript.Quit(0)
          exception=True
     Else
     End If
next

If exception Then
Else
     Call KillProcess(wshnetwork.computername)
'     Call ListSoftware(wshnetwork.computername)
End If


Function KillProcess(strComputer)
dim arrProcessList(4)
arrProcessList(0) = "TSWebSvc.exe"
arrProcessList(1) = "Worun32.exe"
arrProcessList(2) = "Worun32.exe"
arrProcessList(3) = "Worun32.exe"

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")


For Each objProcess In colProcesses
     For Each strBadProcess In arrProcessList
          If ucase(objProcess.name)=ucase(strBadProcess) Then
               term=objprocess.terminate()
               If term=0 Then
' "Terminated Process "
               Else  
' " Found and NOT terminated"  

               End If      
          Else      
          End If
     Next
Next
End Function  

wscript.sleep 1000

WScript.Quit(0)Start Free Trial