VBS execution pauses until application is closed

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

VBS execution pauses until application is closed

Logged in as: Guest

arrSession:exec spGetSession 2,2,49155

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> VBS execution pauses until application is closed
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

VBS execution pauses until application is closed - 7/7/2007 4:48:22 PM

tokiwoki

Posts: 8
Score: 0
Joined: 3/3/2007
Status: offline

I've written a script that loads a .ppt file then presses F5, but the problem is that VBS doesn't go beyond the line that starts the .ppt file until the file is closed. After that, it proceeds as normal. I'm not too sure why this happens since the code is based on another one I wrote for another application which worked just fine.

Any ideas? Here's the full code

On Error Resume Next
'Option Explicit
Dim objWMIService, objProcess, colProcess, cmdLine, fso
Dim strComputer, processKill, srcPath, srcFileNameRenamed, destPath, srcFileName
Dim sleepTime, n, sleepTimeToPressF5
strComputer = "."
'--------------------------
'begin settings
'--------------------------
srcPath = "pc1" 'path to source directory
destPath = "pc2" 'path to destination directory
srcFileName = "src.ppt" 'name of source file in source directory
processToKill = "'POWERPNT.EXE'" 'name of process to kill on destination pc
sleepTime = 1000 'sleep time between killing and starting the process
n = 6 'number of times 'number of times to attempt pressing F5
sleeptTimetoPressF5 = 200 'frequency of attempts to press F5
'--------------------------
'end settings
'--------------------------
Set CommandShell = createobject("wscript.shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _ 
& strComputer & "\root\cimv2") 
'rename source file to a unique name
srcFileNameRenamed = Replace(Now, "/", "", 1, -1, vbTextCompare)
srcFileNameRenamed = Replace(srcFileNameRenamed, ":", "", 1, -1, vbTextCompare)
srcFileNameRenamed = Replace(srcFileNameRenamed, " ", "_", 1, -1, vbTextCompare)
srcFileNameRenamed = srcFileNameRenamed & ".ppt"
'Call MsgBox(srcFileNameRenamed)
fso.MoveFile srcPath & "\" & srcFileName, srcPath & "\" & srcFileNameRenamed
'copy source file to destination
fso.MoveFile srcPath & "\" & srcFileNameRenamed, destPath & "\" & srcFileNameRenamed
'kill the process on the destination pc
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & processToKill)
For Each objProcess in colProcess
objProcess.Terminate()
Next 
WScript.Sleep(10)
'start the newly copied file
'cmdLine = chr(34) & destPath & "/" & srcFileNameRenamed & chr(34)
cmdLine = destPath & "/" & srcFileNameRenamed
CommandShell.Run cmdline, 1, True
WScript.Sleep(10)
'press F5
'WScript.Sleep(sleepTime)
'Send up to n enters every sleeptTimetoPressF5 ms
Dim i
For i = 0 to n Step 1
WScript.Sleep(sleeptTimetoPressF5)
'CommandShell.AppActivate "Microsoft PowerPoint"
CommandShell.SendKeys "{F5}"
Call MsgBox("pressing F5 now...")
Next

WScript.Quit

Post #: 1

RE: VBS execution pauses until application is closed - 7/8/2007 5:22:46 AM

dm_4ever

Posts: 2663
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

The reason it won't proceed is this

CommandShell.Run cmdline, 1, True 'you're telling it to wait; just take that out or change it to False

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to tokiwoki)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> VBS execution pauses until application is closed

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts