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

    Tuner Compliance using VBS

    Lokanadhan Karthik

      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