[ArtyomGl]

Код:

On Error Resume Next
strComputer = "."
Count = 0
WScript.Sleep 30000
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_Product WHERE Caption Like 'Adobe Acrobat%' OR Caption Like 'Adobe Reader%'",,48)
For Each objItem in colItems
    Count = Count + 1
Next
If Count = 0 Then
    Set WshShell = CreateObject("WScript.Shell") 
    WshShell.Run ("""\\путь до установочника"" /quiet /norestart")

End If

Вот так решил проблему.