Solved

Ping a server and restart services on a different server

Posted on 2008-10-07
3
311 Views
Last Modified: 2010-04-24
I am trying to ping a server at a specified time period lets say from 10-11 am. If the ping is successful, I want to restart services on the current machine. If not successful to continue to ping. Here is what I have so far.  Can anyone tell me if I am on the right track or what else I need to complete.  

Dim strComputer

StrComputer = "."
Set objWMIService = GetObject(_
    "winmgmts:\\" & strComputer & "\root\cimv2")
strServiceName = "WZCSVC"
Set colPings = objWMIService.ExecQuery _
    ("Select * From Win32_PingStatus where Address = '255.255.255.0'")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Service Where Name = '" & strServiceName & "'")


Do While i = 0
For Each objStatus in colPings
    If IsNull(objStatus.StatusCode) _
        or objStatus.StatusCode<>0 Then

    Else
        objItem.StartService(strServiceName)

    End If
Next
Wscript.Sleep (6000)
loop
0
Comment
Question by:earngreen
  • 2
3 Comments
 
LVL 67

Accepted Solution

by:
sirbounty earned 500 total points
ID: 22666145
You're declaring the wmi reference twice...try this:
strServiceName = "WZCSVC"
IP = "255.255.255.0"
 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 
Do While PingResult = False
  wscript.sleep 6000  
Loop
 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service Where Name = '" & strServiceName & "'")
 
For Each objService in colItems
  objService.StartService()
Next
 
Set objWMIService = Nothing
 
Function PingResult()
  On Error Resume Next
  Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & IP & "'")
  For Each objStatus in colPings
    If IsNull(objStatus.StatusCode) or objStatus.StatusCode <> 0 Then 
      PingResult=False
    Else
      PingResult=True
    End If
  Next
End Function

Open in new window

0
 

Author Closing Comment

by:earngreen
ID: 31503880
This works great. Thanks
0
 
LVL 67

Expert Comment

by:sirbounty
ID: 22668485
Happy to help - thanx for the grade! :^)
0

Featured Post

Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Recently I finished a vbscript that I thought I'd share.  It uses a text file with a list of server names to loop through and get various status reports, then writes them all into an Excel file.  Originally it was put together for our Altiris server…
Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question