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

                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