Member Avatar for mathbalaji

Hi, I am a kinda new to VB. I was wondering if I could get an email report of the windows services status (may be a few services) that is running on a remote machine. I wrote the following code with the help of many websites, still getting an error on the sixth line:

strComputer = "computername"
Set OutlookApp = CreateObject("Outlook.Application")
Set OutLookMail = OutlookApp.CreateItem(0)
OutLookMail.To = "mathbalaji@gmail.com"
OutLookMail.Subject = "Service Report!"
Set objSWbemService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServices = objSWbemService.ExecQuery _
 ("SELECT DisplayName,State FROM Win32_Service WHERE Displayname like '%Info%'")
For Each objService in colServices
OutLookMail.Body = "Wscript.Echo objService.DisplayName & " = " & objService.State"
OutLookMail.Send
Set OutlookApp = Nothing
Set OutLookMail = Nothing
Next

Any help is highly appreciated.

  • 1 Contributor
  • 1 Reply
  • 75 Views
  • 4 Days Discussion Span
  • Latest Post Latest Post by mathbalaji
Member Avatar for mathbalaji

any update on this?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.