Set Wshell=WScript.CreateObject("WScript.Shell")
do
dim OK
squid = False
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='squid.exe'")
For Each id In pipe
squid = True:wscript.quit
Next
If not OK Then
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='Squid' and State='Stopped'")
for each Service in ServiceSet
Service.StartService()
Set objEmail = CreateObject("CDO.Message")
objEmail.From = lzy821218@yahoo.com.cn
objEmail.To = lzy821218@yahoo.com.cn
objEmail.Subject = " Smart Card service down"
objEmail.Textbody = "Smart Card service has restarted."
objEmail.Send
next
End If
wscript.sleep 2000
loop