ankifreeze
01-06-2012, 01:48 AM
hi .....I want running dekstop application/program or closing application using vbscript via web browser but I don't know how to do it...can anyone help me ?
I got these scripts while I browsing but doesn't work....
runnning program
<html>
<head>
<script type="text/vbscript">
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "c:\duel.exe"
</script>
</head>
<body>
</body>
</html>
closing application/program
Set objShell = CreateObject("WScript.Shell")
Set objWmi = GetObject("winmgmts:")
strWmiq = "select * from Win32_Process where name='duel.exe'"
Set objQResult = objWmi.Execquery(strWmiq)
For Each objProcess In objQResult
intRet = objProcess.Terminate(1)
Next
thanks....
I got these scripts while I browsing but doesn't work....
runnning program
<html>
<head>
<script type="text/vbscript">
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "c:\duel.exe"
</script>
</head>
<body>
</body>
</html>
closing application/program
Set objShell = CreateObject("WScript.Shell")
Set objWmi = GetObject("winmgmts:")
strWmiq = "select * from Win32_Process where name='duel.exe'"
Set objQResult = objWmi.Execquery(strWmiq)
For Each objProcess In objQResult
intRet = objProcess.Terminate(1)
Next
thanks....