[Iska]

Во-первых, убрать «On Error Resume Next». Во-вторых, обязательно использовать «Option Explicit». В-третьих, я бы предпочёл:

читать дальше »

Код:

Option Explicit

Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

With CreateObject("InternetExplorer.Application")
	MsgBox objFSO.GetFileVersion(.FullName)
	
	.Quit
End With

Set objFSO = Nothing

Не могу найти как сделать поиск в VBS поиск на компьютере нужного обновление. »

Выбирайте: Scripts to query installed Service Packs, Patches/updates and Hotfixes - PatchAholic...The WSUS Blog!

Если по-простому, то так:

читать дальше »

Код:

Option Explicit

Dim strHotFixID
Dim strServicePackInEffect


Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx


strHotFixID            = "KB952011"
strServicePackInEffect = "SP3"

strComputer = "."

Set objSWbemLocator    = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery( _
	"SELECT HotFixID, ServicePackInEffect, Description FROM Win32_QuickFixEngineering " & _
	"WHERE HotFixID = '" & strHotFixID & "' AND ServicePackInEffect = '" & strServicePackInEffect & "'" _
)

If collSWbemObjectSet.Count > 0 Then
	MsgBox "Installed."
	
	For Each objSWbemObjectEx In collSWbemObjectSet
		MsgBox objSWbemObjectEx.Description & vbCrLf & _
			objSWbemObjectEx.HotFixID & vbCrLf & _
			objSWbemObjectEx.ServicePackInEffect
	Next
Else
	MsgBox "Not installed."
End If

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0