[Iska]

фича №2 состоит в том, что сделать это надо ШТАТНЫМ набором средств -.- »

Попробуйте так:

Код:

Option Explicit

Dim strUrl


strUrl = "http://www.nirsoft.net/utils/shexview.zip"

With WScript.CreateObject("Microsoft.XMLHTTP")
	.open "HEAD", strUrl, False
	.setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
	.send
	
	If .status = 200 Then
		If WScript.CreateObject("WScript.Shell").Popup( _
			"Now you going to site «ShellExView - Shell Extensions Manager»" , 15, "File [" & strUrl & "] exists on server", vbOKCancel + vbInformation _
		) <> vbCancel Then
			
			WScript.CreateObject("Shell.Application").ShellExecute "http://www.nirsoft.net/utils/shexview.html"
		End If
	Else
		'WScript.Echo "File [" & strUrl & "] not exists on server"
	End If
End With

WScript.Quit