Серый форум — VBS: Запуск mshta.exe от имени

Re: VBS: Запуск mshta.exe от имени

null@example.com (dab00) — Fri, 15 Jul 2011 08:04:34 +0000

в том то и дело, что пристарте XXX.hta пытается подключиться к локальному WMI, а локальное подключение возможно только от имени текущего пользователя... и не смотря на то, что я выбираю текущего, все равно косяк...
в общем не получится ничего
короче щас запостю темку с ссылкой на это чудо-приложение
приглашаю тестировать

Re: VBS: Запуск mshta.exe от имени

null@example.com (Spy00000) — Fri, 15 Jul 2011 06:48:26 +0000

-2147024891 вроде-бы означает "отказано в доступе".
Вы от чьего имени HTA запускаете и к WMI на каком компьютере (на локальном или по сети) подключаетесь?

Re: VBS: Запуск mshta.exe от имени

null@example.com (dab00) — Thu, 14 Jul 2011 17:38:53 +0000

спасибо Spy00000, пробел был лишний, сэкономил пару часов
только вот теперь другой косяк: при запуске от имени XXX.hta не удается подключиться к WMI
код ошибки: -2147024891
похоже с подключением от имени ничего не получится...

Re: VBS: Запуск mshta.exe от имени

null@example.com (Spy00000) — Thu, 14 Jul 2011 17:11:39 +0000

Для objShellApp.ShellExecute аргументы для файла вторым параметром передаются.
Вот так вот должно работать:


Set objShellApp = CreateObject("Shell.Application")
Set wshShell = CreateObject("WScript.Shell")
objShellApp.ShellExecute "mshta.exe" , Chr(34) & wshShell.CurrentDirectory & "\" & "XXX.hta" & Chr(34), "", "runas",1

VBS: Запуск mshta.exe от имени

null@example.com (dab00) — Thu, 14 Jul 2011 14:32:54 +0000

Не получается запустить mshta.exe от имени
Код:

Set objShellApp = CreateObject("Shell.Application")
Set wshShell = CreateObject("WScript.Shell")
objShellApp.ShellExecute "mshta.exe " & Chr(34) & wshShell.CurrentDirectory & "\" & "XXX.hta" & Chr(34), "", "", "runas",1

Пишет Windows не удалось найти 'mshta.exe "C:\Temp\XXX.hta"'
Подскажите, пожалуйста, как решить вопрос.
Через wshShell.Run - без проблем. А очень хочется через objShellApp.ShellExecute.

А если просто:

objShellApp.ShellExecute Chr(34) & wshShell.CurrentDirectory & "\" & "XXX.hta" & Chr(34), "", "", "runas",1

то пишет Приложение, выполняющее эту операцию указанному файлу не сопоставлено.

В path system32 есть
assoc .hta: .hta = htafile
...