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

    Tuner Compliance using VBS

    Lokanadhan Karthik
      Share This:

      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


                      End If



      With CreateObject("WScript.Shell")

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

      End With


      End If


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