[Kazun]

PowerShell:

Код:

(New-Object -Com Shell.Application).Windows() | Where LocationUrl -like "*//Server/*" | Foreach Quit

[Опиум]

сорри, не уточнил... на wsh бы...

[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

[Опиум]

Iska, я речь веду не про не про браузер, а про windows explorer...

[Iska]

Опиум, я тоже. Браузер — это «HTMLDocument», Проводник — «IShellFolderViewDual2».

[Опиум]

Iska, просто у меня твой скрипт не отработал почемуто. Плотно не разбирался.

[Опиум]

Цитата Iska:
Проводник — «IShellFolderViewDual2». »
а что тогда такое IShellFolderViewDual3 ?)

который у меня (поэтому твой скрипт и не аллё)

я заменил Left на конструкцию

Код:

Instr(TypeName(.Document),"IShellFolderViewDual")=1

и заработало.
Кстати. почему вы используете Left хотя Instr(....)=1 проще?

[Iska]

Проводник — «IShellFolderViewDual2». » а что тогда такое IShellFolderViewDual3 ?) который у меня (поэтому твой скрипт и не аллё) »

Опиум, у Вас какая ОС?

я заменил Left на конструкцию Код: Instr(TypeName(.Document),"IShellFolderViewDual")=1 »

У меня нет там функции «Left()»:

Код: If TypeName(.Document) = "IShellFolderViewDual2" Then »

Кстати. почему вы используете Left хотя Instr(....)=1 проще? »

Проще… и неправильно. Если речь про:

Код: If StrComp(Left(.LocationURL, Len("file://" & strPattern)), "file://" & strPattern, vbTextCompare) = 0 Then »

[Опиум]

у Вас какая ОС? »

Microsoft Windows [Version 6.1.7601] w7 eng ent sp1

Проще… и неправильно. Если речь про: »

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