Helping ending a scrips

[bowflyer]

This is my script so far (thanks to those who have helped)


Dim pcName
pcName = Inputbox("Enter Computer Name","Enter Target for Copy")
Set WShell = CreateObject("WScript.Shell")
WShell.Run "c:\Powerpush\copy.bat " & pcName
intAnswer = _
Msgbox("Do you want to do another?", _
vbYesNo, "Kris Rules")
If intAnswer = vbYes Then
Msgbox "You answered yes."
Else
Msgbox "You answered no."
End If


questions:
1. when done, and i hit yes...how do I get it to start over so I can do another PC?
2. if I hit cancle instead of entering a PC name...how do I get it to just close and not continue


thanks for your help

 

[PHV]

One way:
Dim pcName, intAnswer
Set WShell = CreateObject("WScript.Shell")
Do
pcName = Inputbox("Enter Computer Name","Enter Target for Copy")
If Trim(pcName) = "" Then Exit Do
WShell.Run "c:\Powerpush\copy.bat " & pcName
intAnswer = _
Msgbox("Do you want to do another?", _
vbYesNo, "Kris Rules")
Loop While intAnswer = vbYes

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[bowflyer]

That was beautiful!!!

thanks you