Windows & DOS: Issues & Discussions

 
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList

to
 
Dim objWMIService, objProcess, colProcess,WshShell 
Dim strComputer, strList,Found

 
 
set WshShell = Nothing

C:\Documents and Settings\Fareedm\Desktop>Blat -install 192.168.100.204 3 FROMME
 25
SMTP server set to 192.168.100.204 on port 25 with user 3, retry FROMME time(s)
C:\Documents and Settings\Fareedm\Desktop>cscript.exe check.vbs
Microsoft (R) Windows Script Host Version 5.7
Copyright (C) Microsoft Corporation. All rights reserved.

C:\Documents and Settings\Fareedm\Desktop>

msgbox Found

 
For Each objProcess in colProcess
'''''''''''''Check the Process Name'''''''''
WSCript.Echo objProcess.Name
IF trim(objProcess.Name) = "YOUR_PROCESS_NAME" THEN
Found="YES"
END IF
'''''''''''''END'''''''''

C:\Documents and Settings\Fareedm\Desktop>cscript.exe check.vbs
Microsoft (R) Windows Script Host Version 5.7
Copyright (C) Microsoft Corporation. All rights reserved.
System Idle Process
System
smss.exe
csrss.exe
winlogon.exe
services.exe
lsass.exe
svchost.exe
svchost.exe
MsMpEng.exe
svchost.exe
svchost.exe
svchost.exe
spoolsv.exe
svchost.exe
tomcat5.exe
svchost.exe
svchost.exe
winvnc4.exe
WLIDSVC.EXE
YahooAUService.exe
CcmExec.exe
wmiprvse.exe
explorer.exe
igfxsrvc.exe
hkcmd.exe
igfxpers.exe
msseces.exe
SearchProtection.exe
ctfmon.exe
Ymsgr_tray.exe
OUTLOOK.EXE
OSPPSVC.EXE
WLIDSVCM.EXE
wmiprvse.exe
TOAD.exe
iexplore.exe
iexplore.exe
iexplore.exe
notepad.exe
iexplore.exe
putty.exe
notepad.exe
firefox.exe
plugin-container.exe
notepad.exe
cmd.exe
notepad.exe
plugin-container.exe
cmd.exe
wuauclt.exe
wmiprvse.exe
cscript.exe

 
IF trim(objProcess.Name) = "YOUR_PROCESS_NAME" THEN

c:\> tasklist

dim WshShell
dim f,fso,Filename
Const ForReading = 1
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
'run the command and redirect
WshShell.Run "cmd /c tasklist.exe |sort > C:\\tlist.txt", 2, True
Filename = "C:\\tlist.txt"
Set f = fso.OpenTextFile(FileName, ForReading, True)
FileText = f.ReadAll
f.close
IF InStr(FileText,"oracle.exe") = 0 Then
 'Trigger the email - use blat or bmail utility
 Set WshShell = WScript.CreateObject("WScript.Shell")
 WshShell.Run "blat -to abcd@xyz.com -subject ""SQL Server process not running"" -body ""SQL Server process not running""", 1, True
 'clear out wshshell variable
 set wshShell = Nothing
END IF
WScript.Quit