C:\blat182_b>blat -to fareedm@xxx.xx -subject ""SQL Server process not runni
ng"" -body ""SQL Server process not running""", 1, True
-to does not exist

 
C:\blat182_b>tasklist
Image Name                   PID Session Name     Session#    Mem Usage
========================= ====== ================ ======== ============
System Idle Process            0 Console                 0         28 K
System                         4 Console                 0        240 K
smss.exe                     648 Console                 0        444 K
csrss.exe                    696 Console                 0      4,752 K
winlogon.exe                 724 Console                 0      3,864 K
services.exe                 768 Console                 0      3,660 K
lsass.exe                    780 Console                 0      2,128 K
svchost.exe                  956 Console                 0      5,640 K
svchost.exe                 1024 Console                 0      4,820 K
MsMpEng.exe                 1120 Console                 0     45,216 K
svchost.exe                 1156 Console                 0     30,956 K
svchost.exe                 1248 Console                 0      3,780 K
svchost.exe                 1368 Console                 0      4,204 K
spoolsv.exe                 1540 Console                 0      5,072 K
svchost.exe                 1716 Console                 0      3,924 K
tomcat5.exe                 1852 Console                 0    146,180 K
svchost.exe                 1876 Console                 0      3,116 K
svchost.exe                 1896 Console                 0      3,092 K
winvnc4.exe                 2036 Console                 0      3,788 K
WLIDSVC.EXE                  228 Console                 0     12,564 K
YahooAUService.exe           548 Console                 0      6,220 K
CcmExec.exe                  596 Console                 0     29,844 K
wmiprvse.exe                 256 Console                 0      5,920 K
wmiprvse.exe                2488 Console                 0      5,384 K
WLIDSVCM.EXE                2552 Console                 0      2,252 K
explorer.exe                2616 Console                 0     21,908 K
hkcmd.exe                    604 Console                 0      3,604 K
igfxpers.exe                 632 Console                 0      3,232 K
msseces.exe                 2480 Console                 0     13,216 K
igfxsrvc.exe                3268 Console                 0      3,472 K
SearchProtection.exe        3284 Console                 0      1,504 K
ctfmon.exe                  3304 Console                 0      4,152 K
Ymsgr_tray.exe              4016 Console                 0      5,952 K
OSPPSVC.EXE                 3504 Console                 0     10,704 K
notepad.exe                 3904 Console                 0      2,000 K
OUTLOOK.EXE                 1296 Console                 0     17,208 K
firefox.exe                 2268 Console                 0    124,400 K
plugin-container.exe        2528 Console                 0     41,948 K
notepad.exe                 2276 Console                 0        452 K
mstsc.exe                    444 Console                 0      2,356 K
putty.exe                   1424 Console                 0        940 K
putty.exe                   1460 Console                 0        996 K
iexplore.exe                2216 Console                 0      2,788 K
iexplore.exe                2416 Console                 0     53,204 K
notepad.exe                 2156 Console                 0        648 K
plugin-container.exe        3528 Console                 0     10,292 K
cmd.exe                     2116 Console                 0        896 K
iexplore.exe                2316 Console                 0    121,044 K
notepad.exe                 2648 Console                 0      4,024 K
tasklist.exe                2212 Console                 0      4,708 K
wmiprvse.exe                1508 Console                 0      6,056 K

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 "C:\\blat182_b\\blat -to fareedm@xxx.xx -subject ""SQL Server process not running"" -log blat.log -body ""SQL Server process not running""", 1, True
 'clear out wshshell variable
 set wshShell = Nothing
END IF
msgbox Found
WScript.Quit