VBS: Как программно вызвать окно свойств (Properties) файла

Спс )
Код работает как надо. Но только на одном компьютере из трех (

File = "C:\Program Files\Far\Far.exe"
With CreateObject("Scripting.FileSystemObject").GetFile(File)
  Folder = .ParentFolder : Name = .Name
End With

Set wnd = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
With wnd 
  Set Verbs = .document.Application.NameSpace(Folder).ParseName(Name).Verbs
  Verbs.Item(Verbs.Count - 1).DoIt : .ExecWB 45, 2 : .Quit
End With

Windows Server 2008 R2 - отработало как и было задумано

Windows 7 Ultimate SP1 (это критично, на семерках и должно в основном работать, правда есть и машины под XP):

C:\Utils>cscript propert.vbs
Сервер сценариев Windows (Microsoft R) версия 5.8
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.

C:\Utils\propert.vbs(6, 1) Ошибка выполнения Microsoft VBScript: Невозможно создание 
объекта контейнером ActiveX: 'GetObject'

Windows Server 2003 R2 (это не критично, но для общей картины):

C:\Temp>cscript test.vbs
Сервер сценариев Windows (Microsoft R) версия 5.6
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.

C:\Temp\test.vbs(8, 3) (null): Неопознанная ошибка

Подтверждаю (Win XP SP3, IE8).

А я ведь об этом уже говорил:

Соответственно и лечится, например, так

    .Navigate "::{E17D4FC0-5564-11D1-83F2-00A0C90DC849}"

(в окно загружается папка «Результаты поиска», т.к. она первоначально заведомо пустая), если по хорошему, то ещё нужна бы проверка .Busy…
Работает и без

    .ExecWB 45, 2

«Properties» — канонический глагол, не для всех локалей будет «Сво&йства».

FilePath = "C:\Program Files\Far\Far.exe"
With CreateObject("Scripting.FileSystemObject")
    ParentFolderPath = .GetParentFolderName(FilePath)
    FileName = .GetFileName(FilePath)
End With
With GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
    .Navigate "::{E17D4FC0-5564-11D1-83F2-00A0C90DC849}"
    While (.Busy): Sleep 1: Wend
    .Document.Application.NameSpace(ParentFolderPath).ParseName(FileName).InvokeVerb("Properties")
    .Quit ' не обязательно, если окно не делать видимым, оно закроется вместе со скриптом
End With

Так же должен быть запущен Проводник, иначе

GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")

вызовет ошибку

, т.е. затруднителен запуск от имени другого пользователя. Как помнится на XP SP1 с IE6 было достаточно, чтобы существовало хотя бы одно окно Проводника (возможно, запущенного с ключом /SEPARATE) или IE, но сейчас у меня требуется Проводник запущенный в полном наборе (с Рабочим столом).

Да. Wisgest подсказал в чем дело. Ошибка вываливается, когда пытаешься запустить скрип через runas.

Вы имеете ввиду это?

Set wnd = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
With wnd 

Это просто я пытался понять, чего тут написано, и разложил конструкцию на несколько более простых строчек. Знаете, как ребенок предложение целиком не осиливает, а читает по слогам. Я не программер )

Да! А вот вариант с

With CreateObject("Shell.Application")

работает и из-под runas. А Sleep можно и побольше выставить. По крайней мере, это - нормальный рабочий вариант. Спс ))

.Navigate "shell:Desktop"

C:\TEMP\VBS>cscript propert2.vbs
Сервер сценариев Windows (Microsoft R) версия 5.8
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.

C:\TEMP\VBS\propert2.vbs(9, 20) Ошибка выполнения Microsoft VBScript: Несоответствие
типа: 'Sleep'

.Navigate2 "::{E17D4FC0-5564-11D1-83F2-00A0C90DC849}"

C:\TEMP\VBS>cscript propert2.vbs
Сервер сценариев Windows (Microsoft R) версия 5.8
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.

C:\TEMP\VBS\propert2.vbs(8, 5) Ошибка выполнения Microsoft VBScript: Недопустимый вызов или аргумент процедуры

Типичная административная задача (изменение прав доступа на файл или папку). Хотелось бы иметь доступ к этим свойствам без того, чтобы логаутить текущего пользователя и заходить под собой. Конечно, можно запускать через runas командную строку с админскими правами и от туда уже работать с icalcs, но согласитесь, это совсем не удобный вариант.  Просто запустить проводник со своими правами не получается. То есть в новых операционных системах /separate работает не так, как раньше. Вот я вчера и призадумался... А сегодня оказалось, что таки notepad рулит ))

2inock

У меня на общей шаре лежит Total Commander. Его и запускаю на компах пользователей с админскими правами. Далее ВСЕ (все настройки, установку ПО) делаю из него. Ну ОЧЕНЬ удобно.
А что касается прав доступа - тут и TC - лишним будет, т.к. экран пользователя не нужен если Вы, конечно, админ...