WSF multiple scripts start? Newbie question

Question

So I have a script that is called within a VB app. When I let it run alone, there is no problem. However, when I start to click around in Windows, several instances of the script fire. I end up going to task manager to kill jobs. It's as though the scrpit
needs to have complete focus.
What can I do to prevent it from running many different instances of the script.
Below is the beginnings of the script. The extention of the file is vbs.
Option Explicit
On Error Resume Next
Dim WshShell
Set WshShell=CreateObject("WScript.Shell")
WshShell.run "cmd.exe"
WScript.Sleep 1000

Answer 1

Thanks for the response. Below is the code. Like I said before. I will have the VB app in the background. And the Windows script in the foreground running. Then when I click on the form that is in the background, the system goes haywire. Multiple copies
of the Windows script start to run at the same time.
CODE:
Option Explicit
On Error Resume Next
Dim WshShell
Set WshShell=CreateObject("WScript.Shell")
WshShell.run "cmd.exe"
WScript.Sleep 1000
'Note: Enter Unix thru Telnet
WshShell.SendKeys "telnet 10.50.54.57 23"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 2000
WshShell.SendKeys "User ID Entered Here"
WScript.Sleep 1000
WshShell.SendKeys ("{Enter}")
WScript.Sleep 2000
WshShell.SendKeys "Password entered here."
WScript.Sleep 1000
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
'Note: the next line starts Korn Shell Script
WshShell.SendKeys "scripts/maintenance.sh"
WshShell.SendKeys ("{Enter}")
WScript.Sleep 120000
'Note: Exit Unix
WshShell.SendKeys "exit"
WScript.Sleep 1000
WshShell.SendKeys ("{Enter}")
WScript.Sleep 1000
'Note: Exit command prompt
WshShell.SendKeys "exit"
WScript.Sleep 1000
WshShell.SendKeys ("{Enter}")
WScript.Quit