I am looking for some assistance in locating who to or perhaps some sample
script for closing a running program. I am having difficulty with people
shutting down app's when they go home for the evening. Perhaps something
that I can Task Schedule to run every evening.
What apps? Oddly enough, while it's easy to run an app using a VB script, I
find no method to easily exit an app. But here's one example of a kludge
that will work for some apps. Using calculator as an example (calc needs to
already be open):
dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "calculator"
WshShell.SendKeys "%{f4}"
WScript.Quit
Problem is, to identify the application and activate it requires the name of
the app as it appears in the title bar, or the Process ID. I'm not sure how
to obtain a Process ID, but that's what you'd want. Using the title of the
app is not useful in many cases, because it varies. For example, while the
title bar for Calculator is always the same, apps like Word and IE list the
open document's name, followed by the app's name, like this: "My Test
Document - Microsoft Word".
I'm curious: Why it's important that the apps be closed in the first place.
"116" <116@discussions.microsoft.com> wrote in message
news:4B36897E-3D5E-4FED-8E20-E1ABD840DF51@microsoft.com...
>I am looking for some assistance in locating who to or perhaps some sample
> script for closing a running program. I am having difficulty with people
> shutting down app's when they go home for the evening. Perhaps something
> that I can Task Schedule to run every evening.
>
> Thanks
> David
Thanks for the assist. I will give this a try. Reason being, there certain
DB utilities I run on a weekly basis. And with users still login into the DB
I have to go to each work station, or remote in to log them out.
"Gary S. Terhune" wrote:
> What apps? Oddly enough, while it's easy to run an app using a VB script, I
> find no method to easily exit an app. But here's one example of a kludge
> that will work for some apps. Using calculator as an example (calc needs to
> already be open):
>
> dim WshShell
> set WshShell = WScript.CreateObject("WScript.Shell")
> WshShell.AppActivate "calculator"
> WshShell.SendKeys "%{f4}"
> WScript.Quit
>
> Problem is, to identify the application and activate it requires the name of
> the app as it appears in the title bar, or the Process ID. I'm not sure how
> to obtain a Process ID, but that's what you'd want. Using the title of the
> app is not useful in many cases, because it varies. For example, while the
> title bar for Calculator is always the same, apps like Word and IE list the
> open document's name, followed by the app's name, like this: "My Test
> Document - Microsoft Word".
>
> I'm curious: Why it's important that the apps be closed in the first place.
>
> --
> Gary S. Terhune
> MS-MVP Shell/User
> www.grystmill.com
>
> "116" <116@discussions.microsoft.com> wrote in message
> news:4B36897E-3D5E-4FED-8E20-E1ABD840DF51@microsoft.com...
> >I am looking for some assistance in locating who to or perhaps some sample
> > script for closing a running program. I am having difficulty with people
> > shutting down app's when they go home for the evening. Perhaps something
> > that I can Task Schedule to run every evening.
> >
> > Thanks
> > David
>
>
>
You can obtain the process ID of an active task, e.g. for
Firefox, with this command:
for /f "tokens=2" %a in ('tasklist ^| find /i "Firefox"') do echo %a
Here is the script equivalent:
Option Explicit
Const App = "FIREFOX"
Dim ObjWshShell, ObjExec
Dim ComSpec, SystemRoot, line
Set ObjWshShell = WScript.CreateObject("WScript.Shell")
ComSpec = ObjWshShell.Environment("PROCESS")("ComSpec")
Set ObjExec = ObjWshShell.Exec(ComSpec & " /c tasklist.exe")
line = ObjExec.StdOut.ReadLine
line = ObjExec.StdOut.ReadLine
While Len(line) > 0
If InStr(UCase(line), App) > 0 Then
line=LTrim(Right(line, Len(line) - InStr(line," ")))
WScript.Echo("Process ID for """ & App & """ is " &
Left(line,InStr(line," ")))
End If
line = ObjExec.StdOut.ReadLine
Wend
http://www.stadt-solothurn.ch/de/akt...&info_id=54610
"Gary S. Terhune" <none> wrote in message
news:emtBqhU4HHA.600@TK2MSFTNGP05.phx.gbl...
> What apps? Oddly enough, while it's easy to run an app using a VB script,
> I find no method to easily exit an app. But here's one example of a kludge
> that will work for some apps. Using calculator as an example (calc needs
> to already be open):
>
> dim WshShell
> set WshShell = WScript.CreateObject("WScript.Shell")
> WshShell.AppActivate "calculator"
> WshShell.SendKeys "%{f4}"
> WScript.Quit
>
> Problem is, to identify the application and activate it requires the name
> of the app as it appears in the title bar, or the Process ID. I'm not sure
> how to obtain a Process ID, but that's what you'd want. Using the title of
> the app is not useful in many cases, because it varies. For example, while
> the title bar for Calculator is always the same, apps like Word and IE
> list the open document's name, followed by the app's name, like this: "My
> Test Document - Microsoft Word".
>
> I'm curious: Why it's important that the apps be closed in the first
> place.
>
> --
> Gary S. Terhune
> MS-MVP Shell/User
> www.grystmill.com
>
> "116" <116@discussions.microsoft.com> wrote in message
> news:4B36897E-3D5E-4FED-8E20-E1ABD840DF51@microsoft.com...
>>I am looking for some assistance in locating who to or perhaps some sample
>> script for closing a running program. I am having difficulty with people
>> shutting down app's when they go home for the evening. Perhaps something
>> that I can Task Schedule to run every evening.
>>
>> Thanks
>> David
>
>
"116" <116@discussions.microsoft.com> wrote in message
news:59AA4BD3-6BF9-49DD-96F0-B3E9837FF97A@microsoft.com...
> Thanks for the assist. I will give this a try. Reason being, there
> certain
> DB utilities I run on a weekly basis. And with users still login into the
> DB
> I have to go to each work station, or remote in to log them out.
>
> "Gary S. Terhune" wrote:
>
>> What apps? Oddly enough, while it's easy to run an app using a VB script,
>> I
>> find no method to easily exit an app. But here's one example of a kludge
>> that will work for some apps. Using calculator as an example (calc needs
>> to
>> already be open):
>>
>> dim WshShell
>> set WshShell = WScript.CreateObject("WScript.Shell")
>> WshShell.AppActivate "calculator"
>> WshShell.SendKeys "%{f4}"
>> WScript.Quit
>>
>> Problem is, to identify the application and activate it requires the name
>> of
>> the app as it appears in the title bar, or the Process ID. I'm not sure
>> how
>> to obtain a Process ID, but that's what you'd want. Using the title of
>> the
>> app is not useful in many cases, because it varies. For example, while
>> the
>> title bar for Calculator is always the same, apps like Word and IE list
>> the
>> open document's name, followed by the app's name, like this: "My Test
>> Document - Microsoft Word".
>>
>> I'm curious: Why it's important that the apps be closed in the first
>> place.
>>
>> --
>> Gary S. Terhune
>> MS-MVP Shell/User
>> www.grystmill.com
>>
>> "116" <116@discussions.microsoft.com> wrote in message
>> news:4B36897E-3D5E-4FED-8E20-E1ABD840DF51@microsoft.com...
>> >I am looking for some assistance in locating who to or perhaps some
>> >sample
>> > script for closing a running program. I am having difficulty with
>> > people
>> > shutting down app's when they go home for the evening. Perhaps
>> > something
>> > that I can Task Schedule to run every evening.
>> >
>> > Thanks
>> > David
>>
>>
>>
After fixing the line return problems in the script, engendered by NG
transfer, I can't make it work. I get a command window flashing by, then
nothing. I'm using Calculator as a test, rather than Firefox, which I don't
have installed. Tried it in a command window, also, with no return. Tried
with Calc open and with it closed.
Using the command line in a command window, I get "'Tasklist'" is not a
recognized internal or external command, operable program or batch file."
"Pegasus (MVP)" <I.can@fly.com> wrote in message
news:OjM25fb4HHA.1184@TK2MSFTNGP04.phx.gbl...
> You can obtain the process ID of an active task, e.g. for
> Firefox, with this command:
> for /f "tokens=2" %a in ('tasklist ^| find /i "Firefox"') do echo %a
>
> Here is the script equivalent:
> Option Explicit
> Const App = "FIREFOX"
> Dim ObjWshShell, ObjExec
> Dim ComSpec, SystemRoot, line
>
> Set ObjWshShell = WScript.CreateObject("WScript.Shell")
> ComSpec = ObjWshShell.Environment("PROCESS")("ComSpec")
>
> Set ObjExec = ObjWshShell.Exec(ComSpec & " /c tasklist.exe")
>
> line = ObjExec.StdOut.ReadLine
> line = ObjExec.StdOut.ReadLine
> While Len(line) > 0
> If InStr(UCase(line), App) > 0 Then
> line=LTrim(Right(line, Len(line) - InStr(line," ")))
> WScript.Echo("Process ID for """ & App & """ is " &
> Left(line,InStr(line," ")))
> End If
> line = ObjExec.StdOut.ReadLine
> Wend
>
>
> http://www.stadt-solothurn.ch/de/akt...&info_id=54610
> "Gary S. Terhune" <none> wrote in message
> news:emtBqhU4HHA.600@TK2MSFTNGP05.phx.gbl...
>> What apps? Oddly enough, while it's easy to run an app using a VB script,
>> I find no method to easily exit an app. But here's one example of a
>> kludge that will work for some apps. Using calculator as an example (calc
>> needs to already be open):
>>
>> dim WshShell
>> set WshShell = WScript.CreateObject("WScript.Shell")
>> WshShell.AppActivate "calculator"
>> WshShell.SendKeys "%{f4}"
>> WScript.Quit
>>
>> Problem is, to identify the application and activate it requires the name
>> of the app as it appears in the title bar, or the Process ID. I'm not
>> sure how to obtain a Process ID, but that's what you'd want. Using the
>> title of the app is not useful in many cases, because it varies. For
>> example, while the title bar for Calculator is always the same, apps like
>> Word and IE list the open document's name, followed by the app's name,
>> like this: "My Test Document - Microsoft Word".
>>
>> I'm curious: Why it's important that the apps be closed in the first
>> place.
>>
>> --
>> Gary S. Terhune
>> MS-MVP Shell/User
>> www.grystmill.com
>>
>> "116" <116@discussions.microsoft.com> wrote in message
>> news:4B36897E-3D5E-4FED-8E20-E1ABD840DF51@microsoft.com...
>>>I am looking for some assistance in locating who to or perhaps some
>>>sample
>>> script for closing a running program. I am having difficulty with
>>> people
>>> shutting down app's when they go home for the evening. Perhaps
>>> something
>>> that I can Task Schedule to run every evening.
>>>
>>> Thanks
>>> David
>>
>>
>
>
Tasklist.exe is a standard WinXP command. It resides in the
System32 folder. If I had to resolve this issue then I would
perform these steps from a Command Prompt:
- Check if tasklist.exe exists in the System32 folder.
- Invoke it from the Command Prompt.
- Ensure that the path includes the System32 folder.
- Check if the batch file version works.
"Gary S. Terhune" <none> wrote in message
news:O2jEiwc4HHA.4676@TK2MSFTNGP05.phx.gbl...
> After fixing the line return problems in the script, engendered by NG
> transfer, I can't make it work. I get a command window flashing by, then
> nothing. I'm using Calculator as a test, rather than Firefox, which I
> don't have installed. Tried it in a command window, also, with no return.
> Tried with Calc open and with it closed.
>
> Using the command line in a command window, I get "'Tasklist'" is not a
> recognized internal or external command, operable program or batch file."
>
> --
> Gary S. Terhune
> MS-MVP Shell/User
> www.grystmill.com
>
> "Pegasus (MVP)" <I.can@fly.com> wrote in message
> news:OjM25fb4HHA.1184@TK2MSFTNGP04.phx.gbl...
>> You can obtain the process ID of an active task, e.g. for
>> Firefox, with this command:
>> for /f "tokens=2" %a in ('tasklist ^| find /i "Firefox"') do echo %a
>>
>> Here is the script equivalent:
>> Option Explicit
>> Const App = "FIREFOX"
>> Dim ObjWshShell, ObjExec
>> Dim ComSpec, SystemRoot, line
>>
>> Set ObjWshShell = WScript.CreateObject("WScript.Shell")
>> ComSpec = ObjWshShell.Environment("PROCESS")("ComSpec")
>>
>> Set ObjExec = ObjWshShell.Exec(ComSpec & " /c tasklist.exe")
>>
>> line = ObjExec.StdOut.ReadLine
>> line = ObjExec.StdOut.ReadLine
>> While Len(line) > 0
>> If InStr(UCase(line), App) > 0 Then
>> line=LTrim(Right(line, Len(line) - InStr(line," ")))
>> WScript.Echo("Process ID for """ & App & """ is " &
>> Left(line,InStr(line," ")))
>> End If
>> line = ObjExec.StdOut.ReadLine
>> Wend
>>
>>
>> http://www.stadt-solothurn.ch/de/akt...&info_id=54610
>> "Gary S. Terhune" <none> wrote in message
>> news:emtBqhU4HHA.600@TK2MSFTNGP05.phx.gbl...
>>> What apps? Oddly enough, while it's easy to run an app using a VB
>>> script, I find no method to easily exit an app. But here's one example
>>> of a kludge that will work for some apps. Using calculator as an example
>>> (calc needs to already be open):
>>>
>>> dim WshShell
>>> set WshShell = WScript.CreateObject("WScript.Shell")
>>> WshShell.AppActivate "calculator"
>>> WshShell.SendKeys "%{f4}"
>>> WScript.Quit
>>>
>>> Problem is, to identify the application and activate it requires the
>>> name of the app as it appears in the title bar, or the Process ID. I'm
>>> not sure how to obtain a Process ID, but that's what you'd want. Using
>>> the title of the app is not useful in many cases, because it varies. For
>>> example, while the title bar for Calculator is always the same, apps
>>> like Word and IE list the open document's name, followed by the app's
>>> name, like this: "My Test Document - Microsoft Word".
>>>
>>> I'm curious: Why it's important that the apps be closed in the first
>>> place.
>>>
>>> --
>>> Gary S. Terhune
>>> MS-MVP Shell/User
>>> www.grystmill.com
>>>
>>> "116" <116@discussions.microsoft.com> wrote in message
>>> news:4B36897E-3D5E-4FED-8E20-E1ABD840DF51@microsoft.com...
>>>>I am looking for some assistance in locating who to or perhaps some
>>>>sample
>>>> script for closing a running program. I am having difficulty with
>>>> people
>>>> shutting down app's when they go home for the evening. Perhaps
>>>> something
>>>> that I can Task Schedule to run every evening.
>>>>
>>>> Thanks
>>>> David
>>>
>>>
>>
>>
>
>
Doh... There's the problem. TASKLIST.EXE doesn't exist on this system,
anywhere. Weird. But then again neither do this user's TIF index.dat or
History index.dat files (referring to another thread), but part of that may
be because when I set it up, I changed the TIF directory to a different
partition. (It's my wife's business machine and I don't dare mess with it
too much now.)
Guess I'll have to wait till I get back to my own machines to get any
****her.
"Pegasus (MVP)" <I.can@fly.com> wrote in message
news:eNcYkpd4HHA.1188@TK2MSFTNGP04.phx.gbl...
> Tasklist.exe is a standard WinXP command. It resides in the
> System32 folder. If I had to resolve this issue then I would
> perform these steps from a Command Prompt:
> - Check if tasklist.exe exists in the System32 folder.
> - Invoke it from the Command Prompt.
> - Ensure that the path includes the System32 folder.
> - Check if the batch file version works.
>
>
> "Gary S. Terhune" <none> wrote in message
> news:O2jEiwc4HHA.4676@TK2MSFTNGP05.phx.gbl...
>> After fixing the line return problems in the script, engendered by NG
>> transfer, I can't make it work. I get a command window flashing by, then
>> nothing. I'm using Calculator as a test, rather than Firefox, which I
>> don't have installed. Tried it in a command window, also, with no return.
>> Tried with Calc open and with it closed.
>>
>> Using the command line in a command window, I get "'Tasklist'" is not a
>> recognized internal or external command, operable program or batch file."
>>
>> --
>> Gary S. Terhune
>> MS-MVP Shell/User
>> www.grystmill.com
>>
>> "Pegasus (MVP)" <I.can@fly.com> wrote in message
>> news:OjM25fb4HHA.1184@TK2MSFTNGP04.phx.gbl...
>>> You can obtain the process ID of an active task, e.g. for
>>> Firefox, with this command:
>>> for /f "tokens=2" %a in ('tasklist ^| find /i "Firefox"') do echo %a
>>>
>>> Here is the script equivalent:
>>> Option Explicit
>>> Const App = "FIREFOX"
>>> Dim ObjWshShell, ObjExec
>>> Dim ComSpec, SystemRoot, line
>>>
>>> Set ObjWshShell = WScript.CreateObject("WScript.Shell")
>>> ComSpec = ObjWshShell.Environment("PROCESS")("ComSpec")
>>>
>>> Set ObjExec = ObjWshShell.Exec(ComSpec & " /c tasklist.exe")
>>>
>>> line = ObjExec.StdOut.ReadLine
>>> line = ObjExec.StdOut.ReadLine
>>> While Len(line) > 0
>>> If InStr(UCase(line), App) > 0 Then
>>> line=LTrim(Right(line, Len(line) - InStr(line," ")))
>>> WScript.Echo("Process ID for """ & App & """ is " &
>>> Left(line,InStr(line," ")))
>>> End If
>>> line = ObjExec.StdOut.ReadLine
>>> Wend
>>>
>>>
>>> http://www.stadt-solothurn.ch/de/akt...&info_id=54610
>>> "Gary S. Terhune" <none> wrote in message
>>> news:emtBqhU4HHA.600@TK2MSFTNGP05.phx.gbl...
>>>> What apps? Oddly enough, while it's easy to run an app using a VB
>>>> script, I find no method to easily exit an app. But here's one example
>>>> of a kludge that will work for some apps. Using calculator as an
>>>> example (calc needs to already be open):
>>>>
>>>> dim WshShell
>>>> set WshShell = WScript.CreateObject("WScript.Shell")
>>>> WshShell.AppActivate "calculator"
>>>> WshShell.SendKeys "%{f4}"
>>>> WScript.Quit
>>>>
>>>> Problem is, to identify the application and activate it requires the
>>>> name of the app as it appears in the title bar, or the Process ID. I'm
>>>> not sure how to obtain a Process ID, but that's what you'd want. Using
>>>> the title of the app is not useful in many cases, because it varies.
>>>> For example, while the title bar for Calculator is always the same,
>>>> apps like Word and IE list the open document's name, followed by the
>>>> app's name, like this: "My Test Document - Microsoft Word".
>>>>
>>>> I'm curious: Why it's important that the apps be closed in the first
>>>> place.
>>>>
>>>> --
>>>> Gary S. Terhune
>>>> MS-MVP Shell/User
>>>> www.grystmill.com
>>>>
>>>> "116" <116@discussions.microsoft.com> wrote in message
>>>> news:4B36897E-3D5E-4FED-8E20-E1ABD840DF51@microsoft.com...
>>>>>I am looking for some assistance in locating who to or perhaps some
>>>>>sample
>>>>> script for closing a running program. I am having difficulty with
>>>>> people
>>>>> shutting down app's when they go home for the evening. Perhaps
>>>>> something
>>>>> that I can Task Schedule to run every evening.
>>>>>
>>>>> Thanks
>>>>> David
>>>>
>>>>
>>>
>>>
>>
>>
>
>
The command line reference a-z supplied with WXP tells you about
tasklist.exe. On my computer it resides in my system32 folder.
-Paul Randall
"Gary S. Terhune" <none> wrote in message
news:O2jEiwc4HHA.4676@TK2MSFTNGP05.phx.gbl...
> After fixing the line return problems in the script, engendered by NG
> transfer, I can't make it work. I get a command window flashing by, then
> nothing. I'm using Calculator as a test, rather than Firefox, which I
> don't have installed. Tried it in a command window, also, with no return.
> Tried with Calc open and with it closed.
>
> Using the command line in a command window, I get "'Tasklist'" is not a
> recognized internal or external command, operable program or batch file."
>
> --
> Gary S. Terhune
> MS-MVP Shell/User
> www.grystmill.com
>
> "Pegasus (MVP)" <I.can@fly.com> wrote in message
> news:OjM25fb4HHA.1184@TK2MSFTNGP04.phx.gbl...
>> You can obtain the process ID of an active task, e.g. for
>> Firefox, with this command:
>> for /f "tokens=2" %a in ('tasklist ^| find /i "Firefox"') do echo %a
>>
>> Here is the script equivalent:
>> Option Explicit
>> Const App = "FIREFOX"
>> Dim ObjWshShell, ObjExec
>> Dim ComSpec, SystemRoot, line
>>
>> Set ObjWshShell = WScript.CreateObject("WScript.Shell")
>> ComSpec = ObjWshShell.Environment("PROCESS")("ComSpec")
>>
>> Set ObjExec = ObjWshShell.Exec(ComSpec & " /c tasklist.exe")
>>
>> line = ObjExec.StdOut.ReadLine
>> line = ObjExec.StdOut.ReadLine
>> While Len(line) > 0
>> If InStr(UCase(line), App) > 0 Then
>> line=LTrim(Right(line, Len(line) - InStr(line," ")))
>> WScript.Echo("Process ID for """ & App & """ is " &
>> Left(line,InStr(line," ")))
>> End If
>> line = ObjExec.StdOut.ReadLine
>> Wend
>>
>>
>> http://www.stadt-solothurn.ch/de/akt...&info_id=54610
>> "Gary S. Terhune" <none> wrote in message
>> news:emtBqhU4HHA.600@TK2MSFTNGP05.phx.gbl...
>>> What apps? Oddly enough, while it's easy to run an app using a VB
>>> script, I find no method to easily exit an app. But here's one example
>>> of a kludge that will work for some apps. Using calculator as an example
>>> (calc needs to already be open):
>>>
>>> dim WshShell
>>> set WshShell = WScript.CreateObject("WScript.Shell")
>>> WshShell.AppActivate "calculator"
>>> WshShell.SendKeys "%{f4}"
>>> WScript.Quit
>>>
>>> Problem is, to identify the application and activate it requires the
>>> name of the app as it appears in the title bar, or the Process ID. I'm
>>> not sure how to obtain a Process ID, but that's what you'd want. Using
>>> the title of the app is not useful in many cases, because it varies. For
>>> example, while the title bar for Calculator is always the same, apps
>>> like Word and IE list the open document's name, followed by the app's
>>> name, like this: "My Test Document - Microsoft Word".
>>>
>>> I'm curious: Why it's important that the apps be closed in the first
>>> place.
>>>
>>> --
>>> Gary S. Terhune
>>> MS-MVP Shell/User
>>> www.grystmill.com
>>>
>>> "116" <116@discussions.microsoft.com> wrote in message
>>> news:4B36897E-3D5E-4FED-8E20-E1ABD840DF51@microsoft.com...
>>>>I am looking for some assistance in locating who to or perhaps some
>>>>sample
>>>> script for closing a running program. I am having difficulty with
>>>> people
>>>> shutting down app's when they go home for the evening. Perhaps
>>>> something
>>>> that I can Task Schedule to run every evening.
>>>>
>>>> Thanks
>>>> David
>>>
>>>
>>
>>
>
>
Like I said, tasklist doesn't exist on this system. Turns out it's Home
Edition. I'd forgotten about that. SysInternals' Process Explorer gives the
info, but the PID varies for any one app. Assuming Tasklist.exe on the OP's
system, he would have to use your script to return the PID and then use my
SendKeys example to terminate it (or maybe a better method exists.)
Even then, while it works with calc, my experimentation using WinWord for
some reason fails. The app activates, but the SendKeys doesn't work...Odd...
There's also the issue of dealing with any possible prompts for things like
unsaved files...
"Paul Randall" <paulr901@cableone.net> wrote in message
news:uv551Ce4HHA.4400@TK2MSFTNGP06.phx.gbl...
> The command line reference a-z supplied with WXP tells you about
> tasklist.exe. On my computer it resides in my system32 folder.
>
> -Paul Randall
>
> "Gary S. Terhune" <none> wrote in message
> news:O2jEiwc4HHA.4676@TK2MSFTNGP05.phx.gbl...
>> After fixing the line return problems in the script, engendered by NG
>> transfer, I can't make it work. I get a command window flashing by, then
>> nothing. I'm using Calculator as a test, rather than Firefox, which I
>> don't have installed. Tried it in a command window, also, with no return.
>> Tried with Calc open and with it closed.
>>
>> Using the command line in a command window, I get "'Tasklist'" is not a
>> recognized internal or external command, operable program or batch file."
>>
>> --
>> Gary S. Terhune
>> MS-MVP Shell/User
>> www.grystmill.com
>>
>> "Pegasus (MVP)" <I.can@fly.com> wrote in message
>> news:OjM25fb4HHA.1184@TK2MSFTNGP04.phx.gbl...
>>> You can obtain the process ID of an active task, e.g. for
>>> Firefox, with this command:
>>> for /f "tokens=2" %a in ('tasklist ^| find /i "Firefox"') do echo %a
>>>
>>> Here is the script equivalent:
>>> Option Explicit
>>> Const App = "FIREFOX"
>>> Dim ObjWshShell, ObjExec
>>> Dim ComSpec, SystemRoot, line
>>>
>>> Set ObjWshShell = WScript.CreateObject("WScript.Shell")
>>> ComSpec = ObjWshShell.Environment("PROCESS")("ComSpec")
>>>
>>> Set ObjExec = ObjWshShell.Exec(ComSpec & " /c tasklist.exe")
>>>
>>> line = ObjExec.StdOut.ReadLine
>>> line = ObjExec.StdOut.ReadLine
>>> While Len(line) > 0
>>> If InStr(UCase(line), App) > 0 Then
>>> line=LTrim(Right(line, Len(line) - InStr(line," ")))
>>> WScript.Echo("Process ID for """ & App & """ is " &
>>> Left(line,InStr(line," ")))
>>> End If
>>> line = ObjExec.StdOut.ReadLine
>>> Wend
>>>
>>>
>>> http://www.stadt-solothurn.ch/de/akt...&info_id=54610
>>> "Gary S. Terhune" <none> wrote in message
>>> news:emtBqhU4HHA.600@TK2MSFTNGP05.phx.gbl...
>>>> What apps? Oddly enough, while it's easy to run an app using a VB
>>>> script, I find no method to easily exit an app. But here's one example
>>>> of a kludge that will work for some apps. Using calculator as an
>>>> example (calc needs to already be open):
>>>>
>>>> dim WshShell
>>>> set WshShell = WScript.CreateObject("WScript.Shell")
>>>> WshShell.AppActivate "calculator"
>>>> WshShell.SendKeys "%{f4}"
>>>> WScript.Quit
>>>>
>>>> Problem is, to identify the application and activate it requires the
>>>> name of the app as it appears in the title bar, or the Process ID. I'm
>>>> not sure how to obtain a Process ID, but that's what you'd want. Using
>>>> the title of the app is not useful in many cases, because it varies.
>>>> For example, while the title bar for Calculator is always the same,
>>>> apps like Word and IE list the open document's name, followed by the
>>>> app's name, like this: "My Test Document - Microsoft Word".
>>>>
>>>> I'm curious: Why it's important that the apps be closed in the first
>>>> place.
>>>>
>>>> --
>>>> Gary S. Terhune
>>>> MS-MVP Shell/User
>>>> www.grystmill.com
>>>>
>>>> "116" <116@discussions.microsoft.com> wrote in message
>>>> news:4B36897E-3D5E-4FED-8E20-E1ABD840DF51@microsoft.com...
>>>>>I am looking for some assistance in locating who to or perhaps some
>>>>>sample
>>>>> script for closing a running program. I am having difficulty with
>>>>> people
>>>>> shutting down app's when they go home for the evening. Perhaps
>>>>> something
>>>>> that I can Task Schedule to run every evening.
>>>>>
>>>>> Thanks
>>>>> David
>>>>
>>>>
>>>
>>>
>>
>>
>
>
Closing a program with script... 
Linear Mode
