VBS/WSH/JS - закрыть все окна explorer с определенным закголовком

[Опиум]

Цитата Опиум:



где может быть косяк?

VBS/WSH/JS - закрыть все окна explorer с определенным закголовком

Дабы не возникло расхождений (как выше), покажите Ваш полный код.

[Опиум]

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