Windows XPPost your Windows XP related questions here.
Mission Statement
WindowsBBS is an online community dedicated to easily accessible technical support for those using Microsoft operating systems and other Windows software.
Our goal is to become the leading resource for computer users that require assistance with their day-to-day computer usage, including full support for networking PC's, virus & malware removal, system upgrades and general support questions.
It actually pretty easy. Just copy that script they offer and paste it into a Notepad session. Then edit it to change the example programs they used to conform to your programs. You will probably have to include the full path on your programs where their .exe programs are listed. Then save it as a .vbs file.
If you need help doing it, post back with the full paths of your programs and I'll script it for you.
It actually pretty easy. Just copy that script they offer and paste it into a Notepad session. Then edit it to change the example programs they used to conform to your programs. You will probably have to include the full path on your programs where their .exe programs are listed. Then save it as a .vbs file.
If you need help doing it, post back with the full paths of your programs and I'll script it for you.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
errResult = objWMIService.Create("C:\Program Files\Outlook Express\msimn.exe", null, null, intMsimnID)
errResult = objWMIService.Create("C:\Program Files\Cloudmark\spamnet\OE\snoe.exe ", null, null, intSnoeID)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecNotificationQuery _
("Select * From __InstanceDeletionEvent " _
& "Within 1 Where TargetInstance ISA 'Win32_Process'")
Do Until i = 999
Set objProcess = colProcesses.NextEvent
If objProcess.TargetInstance.ProcessID = intMsimnID Then
Exit Do
End If
Loop
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process Where ProcessID = " & intSnoeID)
For Each objProcess in colProcesses
objProcess.Terminate()
Next
Copy that and paste it into a Notepad session and save it as YouNameIt.vbs.
If you want, I can post that file to my web space and you can download it. It's no trouble.
EDIT, I gotta run so I'll post the file for you to download in case you need it:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
errResult = objWMIService.Create("C:\Program Files\Outlook Express\msimn.exe", null, null, intMsimnID)
errResult = objWMIService.Create("C:\Program Files\Cloudmark\spamnet\OE\snoe.exe ", null, null, intSnoeID)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecNotificationQuery _
("Select * From __InstanceDeletionEvent " _
& "Within 1 Where TargetInstance ISA 'Win32_Process'")
Do Until i = 999
Set objProcess = colProcesses.NextEvent
If objProcess.TargetInstance.ProcessID = intMsimnID Then
Exit Do
End If
Loop
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process Where ProcessID = " & intSnoeID)
For Each objProcess in colProcesses
objProcess.Terminate()
Next
Copy that and paste it into a Notepad session and save it as YouNameIt.vbs.
If you want, I can post that file to my web space and you can download it. It's no trouble.
EDIT, I gotta run so I'll post the file for you to download in case you need it:
Hey I was also looking for similar thing, only diff is I want to open 5-6 applications together and close all of them together if either of them is closed.
ie. If any one is closed all should closed.
can this script be modified to serve me ??
Thanks in advance
