Link to home
Start Free TrialLog in
Avatar of lynx7
lynx7

asked on

start batch and hold script until it finishes

hey,
i'm searching for a way to start a .bat file from a vbs script (which is started by a batch), let the vbs script monitor the batch file and continu only after the batch file has ended. the thing is that this batch file also starts a vbs... ;-)

schematic: bat1 starts vbs1, vbs1 starts bat2 which starts vbs2, vbs1 continues after bat2 (vbs2) has finished.

i tried many things already, amongst others:
A
For Each Process in GetObject( "winmgmts:").InstancesOf( "win32_process" )
but since the parent (vbs) as well as the child (bat) run in a cmd this is not enough...

B
active = WshShell.AppActivate(strTitle)
but this only works when starting ie. calc.exe directly. when i put the calc.exe in a batch-vbs file with a title (start /wait cmd /C "TITLE CalculatorVBS && cscript calc.vbs") it doesn't work no more.

(see the attached zip for examples, remove the txt extensions)

cheers,
S.


wait.zip
Avatar of sirbounty
sirbounty
Flag of United States of America image

How about
Dim objShell : Set objShell=CreateObject("Wscript.Shell")
objShell.Run "c:\folder\yourfile.bat",0,1

 Arguments
object
WshShell object.

strCommand
String value indicating the command line you want to run. You must include any parameters you want to pass to the executable file.

intWindowStyle
Optional. Integer value indicating the appearance of the program's window. Note that not all programs make use of this information.

bWaitOnReturn
Optional. Boolean value indicating whether the script should wait for the program to finish executing before continuing to the next statement in your script. If set to true, script execution halts until the program finishes, and Run returns any error code returned by the program. If set to false (the default), the Run method returns immediately after starting the program, automatically returning 0 (not to be interpreted as an error code).
ref: http://msdn.microsoft.com/en-us/library/d5fk67ky(VS.85).aspx
Thanks SirBounty, I never knew about the WaitOnReturn option of objShell.Run.  I always used objShell.Exec() instead because it waited automatically.  It also captured the output which I may or may not need to do something with.
SOLUTION
Avatar of RobSampson
RobSampson
Flag of Australia image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of lynx7
lynx7

ASKER

hey Sirbounty and RobSampson,

thanks for your tips... for now it works for step 1 of my problem which i described above... (see the dir easy in the attached zip)

now the real situation is that batch2.bat is actually an exe file (made with autoIT), which is the batch2.bat file encrypted to run with admin rights.
as soon as i run this exe file the calling vbs1.vbs.doesn't wait anymore for the ending of the exe.
i tried "objShell.Run strExeFile, 1, True" and "'objShell.exec strExeFile" (as i read somewhere that this method automatically waits for the process to end...) but neither one works.
to test this, these files are located in the test dir in the attached zip.

hope you'll have a solution for this as well...

cheers,
S.


experts.zip
Hi, when I ran your Batch2.exe it just exited straight away, so I wasn't sure what it was doing.

So, I took your VBS2.vbs file, and used PrimalScript professional to compile it to an EXE.  Then, when I renamed that to Batch2.exe and ran your "test" files, that behaved exactly the same way as the VBS version, and VBS1 waited for that EXE to finish.

So it must be that your exe actually launches another process.  While your EXE is running, does it run an executable with a specific name?  Perhaps you could set VBS up with this process monitor, just after you use the objShell.Run command.

Regards,

Rob.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
boolStillRunning = True
Do While boolStillRunning = True
	Set colProcess = objWMIService.ExecQuery ("Select Name from Win32_Process WHERE Name='batch2.exe'")
	boolStillRunning = False
	For Each objProcess in colProcess
		boolStillRunning = True
	Next
	Wscript.Sleep 100
Loop

Open in new window

ASKER CERTIFIED SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of lynx7

ASKER

hey Robsampson,

while pasting the line "RunAs($sUserName, $sDomain, $sPassword, 3, $sBatchFile) " it suddenly struck me, why does this exe terminates so fast? because it does what it does (runas) and finishes of course ;-)...
so i found the runaswait method (haha!) and hoppa... the thing finally works, everything waits for everything as its supposed! i transposed it to my final printer driver installer/remover script and it just works fine!

super thanks for your time and useful input!
it made my day already!

cheers,
S.
Lynx7,

You can just give the whole thing to RobSampson.  There is no reason to split up the points between his two posts.