9 Replies Latest reply on Aug 29, 2014 1:49 AM by Gregory Rodrigues

    Tuner Compliance using VBS

    Lokanadhan Karthik
      Share:|

      We have few issues in our environment where few machines do not have Tuners and few Machine's Tuner service is stopped.

       

      We have tried to re mediate using a Vb Script below.

       

      But the issue is when a Tuner is not present it is installing a Tuner from a shared Folder, but when a tuner is stopped we are unable to start the Tuner.

       

      strComputer = "."

      Set objWMIService = GetObject("winmgmts:" _

          & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

       

      Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service where Name='Tuner'")

      nItems = colRunningServices.Count

       

      If nItems > 0 Then

          For Each objItem in colRunningServices

             If objItem.State = "Stopped" Then

                objItem.startservice()

                      End If

          Next

      Else

      With CreateObject("WScript.Shell")

          .Run "\\10.18.23.132\Tuner\Tuner.exe"

      End With

       

      End If

       

      Can you please check or suggest alternative for the issue Gregory Rodrigues