[Iska]

Код:

Option Explicit

Dim strPattern
Dim objWebBrowser


strPattern = "SERVER"

For Each objWebBrowser In WScript.CreateObject("Shell.Application").Windows
	With objWebBrowser
		If TypeName(.Document) = "IShellFolderViewDual2" Then
			If StrComp(Left(.LocationURL, Len("file://" & strPattern)), "file://" & strPattern, vbTextCompare) = 0 Then
				'WScript.Echo .LocationURL
				.Quit
			End If
		End If
	End With
Next

WScript.Quit 0