[Iska]

Код:

For Each objItem in colItems
    Count = Count + 1
Next
If Count = 0 Then
    Set WshShell = CreateObject("WScript.Shell") 
    WshShell.Run ("""\\путь до установочника"" /quiet /norestart")

End If

Код:

If colItems.Count = 0 Then
    Set WshShell = CreateObject("WScript.Shell") 
    WshShell.Run ("""\\путь до установочника"" /quiet /norestart")
End If