Question

Need vbscript that can pop up alert when services go down on a remote computer

VBScript, Scripting, Windows scripting

Hi,

I have tried many scripts at my local machine. It gave pop up when service for one particular application went down. But the same thing is not happening for the remote computer. Please look at the script below:

strComputer = "."
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = FALSE

Set objAdminSettings = objPolicy.RemoteAdminSettings
objAdminSettings.Enabled = TRUE

Set oWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & sComputerName& "\root\cimv2")
Set colRunningServices = oWMIService.ExecQuery _
("SELECT * FROM Win32_Service)

For Each oService in colRunningServices
Wscript.Echo oService.DisplayName & VbTab & oService.State
Next

I have tried without the firewal and admin rights settings as well in the above code and giving the IP address of the remote computer in strcomputer="IP Address"

It doesn't work. Could you please help me out in knowing the problem with the above or give me some code which can do the purpose.
Awaiting eagerly for your response.

Many Thanks.
Naaz.

Naaz,

There were a couple things wrong. You didn't have Select * from Win32_Service terminated with a quote and there were several variations of variables dor the "computer name" (strComputer, sComputerName, etc). I also don't know that you need to use HNetCfg.FwMgr nessisarily, I've disabled it in the code by remarking the two lines that change the settings-- you can unremark them if you need to-- but it seems to work with out it on my system

I've fixed the code and it is below:

Option explicit
Dim sComputer, objFirewall, ObjPolicy, objAdminSettings
Dim oService, oWMIService, colRunningServices

sComputer = "."
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
'objPolicy.FirewallEnabled = FALSE

Set objAdminSettings = objPolicy.RemoteAdminSettings
'objAdminSettings.Enabled = TRUE

Set oWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2")
Set colRunningServices = oWMIService.ExecQuery _
("SELECT * FROM Win32_Service")

For Each oService in colRunningServices
Wscript.Echo oService.DisplayName & VbTab & oService.State
Next


This doesn't help. Please see the discussion below