[Опиум]

Iska, Код ваш, я просто заменил left на instr

Код:

Option Explicit

Dim strPattern,s,c
Dim objWebBrowser


strPattern = ""
c=0

For Each objWebBrowser In WScript.CreateObject("Shell.Application").Windows
	With objWebBrowser
                'WScript.Echo  TypeName(.Document)
		'If TypeName(.Document) = "IShellFolderViewDual3" Then
		If Instr(TypeName(.Document),"IShellFolderViewDual")=1 Then
			'If StrComp(Left(.LocationURL, Len("file://" & strPattern)), "file://" & strPattern, vbTextCompare) = 0 Then
			s=.LocationURL
			'проверяем, если открыт сетевой ресурс \\****
			If (Instr(s,"file://")=1) and (mid(s,8,1)<>"/")Then
				'WScript.Echo .LocationURL
				c=c+1
				.Quit
			End If
		End If
	End With
Next
WScript.Echo "Closed:" & c
WScript.Quit 0