Programming Forums > Web Development and Design > JavaScript and Client-Side Browser Scripting

randum77 · Aug 2nd, 2006, 1:40 PM

Ok, presently this is the method I use for running an external *.exe from within a vbscript.

strComputer = "."
	Hidden_Window=5
	Set objWMIService = GetObject ("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	set objStartup = objWMIService.Get("Win32_ProcessStartup") 
	Set objConfig = objStartup.SpawnInstance_ 
	objConfig.ShowWindow = Hidden_Window
	Set objProcess = GetObject ("winmgmts:root\cimv2:Win32_Process")
	errReturn = objProcess.Create("D:\ISRA\COSS\Filewatch.exe", null, objConfig, intProcessID)

Is there a better way to run an external *.exe from within a VBScript? I need to run it, then kill it. I search for a bit but couldn't find anything useable. Thanks in advanced.

melbolt · Aug 2nd, 2006, 6:54 PM

Hi, give this a try.

 vbnet Syntax (Toggle Plain Text) 
<script language = "vbscript">
sub launcherSub()
dim progName
progName = "D:\ISRA\COSS\Filewatch.exe"
set oShell = createobject("wscript.shell") 'create a shell
 
'***use the line below to call your app, defined above with the "progName" variable:
oShell.run(progName)
end sub
</script>
<script language = "vbscript">
sub launcherSub()
dim progName
progName = "D:\ISRA\COSS\Filewatch.exe"
set oShell = createobject("wscript.shell") 'create a shell

'***use the line below to call your app, defined above with the "progName" variable:
oShell.run(progName)
end sub
</script>

check out this page for additonal parameters you can use with the run method. http://www.devguru.com/Technologies/...shell_Run.html

melbolt · Aug 2nd, 2006, 7:28 PM

oh, and you wanted to kill the process too.

 vbnet Syntax (Toggle Plain Text) 
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'Filewatch.exe'"
 
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
 
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
 
WScript.Quit
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'Filewatch.exe'"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next

WScript.Quit

basically it queries running processes for the desired one and terminates it.

note: I'm not sure if this is being performed on the local machine or on a remote machine, the code above is for local, if you want to kill on remote machine, check the link below.

all this code was stolen from here, i take no credit but i did test them personally and they work
http://www.computerperformance.co.uk...ocess_stop.htm

Aug 2nd, 2006, 1:40 PM	#1
randum77 Programmer Join Date: Jun 2006 Location: Fayettehell, NC Posts: 56 Rep Power: 3	There has got to be a better way..... Ok, presently this is the method I use for running an external .exe from within a vbscript. (Toggle Plain Text) strComputer = "." Hidden_Window=5 Set objWMIService = GetObject ("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") set objStartup = objWMIService.Get("Win32_ProcessStartup") Set objConfig = objStartup.SpawnInstance_ objConfig.ShowWindow = Hidden_Window Set objProcess = GetObject ("winmgmts:root\cimv2:Win32_Process") errReturn = objProcess.Create("D:\ISRA\COSS\Filewatch.exe", null, objConfig, intProcessID) strComputer = "." Hidden_Window=5 Set objWMIService = GetObject ("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") set objStartup = objWMIService.Get("Win32_ProcessStartup") Set objConfig = objStartup.SpawnInstance_ objConfig.ShowWindow = Hidden_Window Set objProcess = GetObject ("winmgmts:root\cimv2:Win32_Process") errReturn = objProcess.Create("D:\ISRA\COSS\Filewatch.exe", null, objConfig, intProcessID) Is there a better way to run an external .exe from within a VBScript? I need to run it, then kill it. I search for a bit but couldn't find anything useable. Thanks in advanced. __________________ _Marshall_ "America has bred a society that is innocent and incapable of accepting responsibility, but yet, is able to place blame on others without guilt."

Aug 2nd, 2006, 6:54 PM	#2
melbolt Professional Programmer Join Date: Feb 2005 Location: PA, USA Posts: 253 Rep Power: 4	Hi, give this a try. vbnet Syntax (Toggle Plain Text) <script language = "vbscript"> sub launcherSub() dim progName progName = "D:\ISRA\COSS\Filewatch.exe" set oShell = createobject("wscript.shell") 'create a shell '*use the line below to call your app, defined above with the "progName" variable: oShell.run(progName) end sub </script> <script language = "vbscript"> sub launcherSub() dim progName progName = "D:\ISRA\COSS\Filewatch.exe" set oShell = createobject("wscript.shell") 'create a shell 'use the line below to call your app, defined above with the "progName" variable: oShell.run(progName) end sub </script> check out this page for additonal parameters you can use with the run method. http://www.devguru.com/Technologies/...shell_Run.html __________________ I have never let my schooling interfere with my education. -Mark Twain- Xbox live gamertag: melbolt Last edited by melbolt; Aug 2nd, 2006 at 7:13 PM.*

Aug 2nd, 2006, 7:28 PM	#3
melbolt Professional Programmer Join Date: Feb 2005 Location: PA, USA Posts: 253 Rep Power: 4	oh, and you wanted to kill the process too. vbnet Syntax (Toggle Plain Text) Option Explicit Dim objWMIService, objProcess, colProcess Dim strComputer, strProcessKill strComputer = "." strProcessKill = "'Filewatch.exe'" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " & strProcessKill ) For Each objProcess in colProcess objProcess.Terminate() Next WScript.Quit Option Explicit Dim objWMIService, objProcess, colProcess Dim strComputer, strProcessKill strComputer = "." strProcessKill = "'Filewatch.exe'" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " & strProcessKill ) For Each objProcess in colProcess objProcess.Terminate() Next WScript.Quit basically it queries running processes for the desired one and terminates it. note: I'm not sure if this is being performed on the local machine or on a remote machine, the code above is for local, if you want to kill on remote machine, check the link below. all this code was stolen from here, i take no credit but i did test them personally and they work http://www.computerperformance.co.uk...ocess_stop.htm __________________ I have never let my schooling interfere with my education. -Mark Twain- Xbox live gamertag: melbolt

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Web Development and Design > JavaScript and Client-Side Browser Scripting

There has got to be a better way.....