Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Не работают скрипты, нужен совет.

 
Post new topic   Reply to topic    Total Commander Forum Index -> Программное обеспечение printer-friendly view
View previous topic :: View next topic  
Author Message
Roz



Joined: 14 Jan 2005
Posts: 9

Post (Separately) Posted: Mon Sep 12, 2005 23:18    Post subject: Не работают скрипты, нужен совет. Reply with quote

Вот так ругается как исправить можно?
Script: C:\Program Files\Total Commander\Data.vbs
Line: 9
Char: 1
Error: ActiveX component can't create object: 'Scripting.FileSystemObject'
Code: 800A01AD
Source: Microsoft VBScript runtime error
Back to top
View user's profile Send private message
Rulchik
Особист


Joined: 29 Jun 2005
Posts: 36
Location: Санкт-Петербург

Post (Separately) Posted: Tue Sep 13, 2005 10:24    Post subject: Reply with quote

Roz
Э-э-э... А что за скрипт-то вообще?..
Back to top
View user's profile Send private message
Roz



Joined: 14 Jan 2005
Posts: 9

Post (Separately) Posted: Tue Sep 13, 2005 14:22    Post subject: Reply with quote

Дело не в скрипте на втором компе все работает отлично.
Наприм.
Code:
'=====================================================================
' Создание папки с именем системной даты

' В параметрах вызова из TC должно быть прописано:
' %P
'=====================================================================

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim MyPath, MyDate, NewFold, M1
MyPath = WScript.Arguments(0)
MyDate = Date
NewFold = MyPath & MyDate
If Not FSO.FolderExists(NewFold) Then
  FSO.CreateFolder(NewFold)
  M1 = MsgBox("Создана папка:" & chr(13) & NewFold, vbOKOnly + vbInformation, "Результат")
Else
  M1 = MsgBox("Папка" & chr(13) & NewFold & chr(13) & "уже существует", vbOKOnly + vbExclamation, "Внимание!")
End If
Set FSO = Nothing
Wscript.Quit

Обидно просто, даже где искать ошибку незнаю. Embarassed
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Tue Sep 13, 2005 17:33    Post subject: Reply with quote

Roz wrote:
Обидно просто, даже где искать ошибку незнаю. Embarassed

На твоем компе есть какие-то проблемы с установкой WSH (а у тебя часом не 95 или 98 первая редакция?). Лучше не париться, а скачать и установить самый свежак, {лежит вот тут} . Там совсем небольшой дистрибутив, выбери только под свою ось и свой язык.
Back to top
View user's profile Send private message
Roz



Joined: 14 Jan 2005
Posts: 9

Post (Separately) Posted: Tue Sep 13, 2005 19:37    Post subject: Reply with quote

Volniy
Quote:
(а у тебя часом не 95 или 98 первая редакция?)

XP pro sp 2
Quote:
Лучше не париться, а скачать и установить самый свежак
Спасибо все работает.
Back to top
View user's profile Send private message
Aleks431



Joined: 23 May 2011
Posts: 74

Post (Separately) Posted: Tue Feb 07, 2017 16:37    Post subject: Reply with quote

Добрый день! Подскажите, пожалуйста, нам на работе (бесправный ПК) похоже "групповой политикой" заблокировали выполнение скриптов. А ими я постоянно пользуюсь, особенно при отправке автоматически заполняемых шаблонов по почте, да и другого много чего.
Можно ли как-нибудь это обойти? Запуск с правами admin я думаю не пройдет, как-то уже пробовал, да и не известен логин и пароль администратора.
Может, например, скопировать/дублировать внутрь ТС нужные системные файлы Visual Basic с системного диска (cscript.exe и др. файлы и библиотеки, какие не знаю) чтобы кнопка обращалась к ним минуя ТО ЧТО ЗАБЛОКИРОВАЛИ.

Вот пример грубонедоделаной кнопки.

Code:
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Scripts\cscript.exe "%COMMANDER_PATH%\Scripts\Outlook.vbs"
%P%N %L
TOTALCMD.EXE,37
Создать письмо
%COMMANDER_PATH%\Scripts\
1
-1
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Feb 07, 2017 18:01    Post subject: Reply with quote

Aleks431
Насчёт грубонедоделанности поточнее.
Понятно, что если WSH запрещён политиками, то никакой перенос файлов не поможет. Только компиляция. Какое окно выдаёт?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Aleks431



Joined: 23 May 2011
Posts: 74

Post (Separately) Posted: Tue Feb 07, 2017 18:29    Post subject: Reply with quote

Окно с ошибкой.
Windows Script Host.
Ошибка при выполнении сервера сценариев Windows. (Эта программа заблокирована групповой политикой. За дополнительными сведениями обращайтесь к системному администратору.)
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Feb 07, 2017 19:19    Post subject: Reply with quote

Понятно. Если доступа к политикам и реестру нет, то особо тут ловить нечего. Компиляция с текущей GUI-версией тоже не вариант, всё равно ошибку выдаст, с консольной этой проблемы не было, но она не поддерживала параметры.
Если другие компиляторы не заблокированы, то остаётся переписать то, что идёт с параметрами, на них. Ну, %P ещё обойти можно, остальное вряд ли.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Aleks431



Joined: 23 May 2011
Posts: 74

Post (Separately) Posted: Tue Feb 07, 2017 22:31    Post subject: Reply with quote

А имея/получив права админа (на некоторое время, до перезагрузки) можно что-нибудь придумать? Что-то изменив, после перезагрузки, я думаю, удаленно снова настройки "групповых политик" заблокируются. У нас при загрузке стираются все админы, настройки ИЕ, хранителя экрана и другое.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Tue Feb 07, 2017 22:48    Post subject: Reply with quote

Из комстроки: secpol.msc /s и см. "Политика управления приложениями" > AppLocker > Исполняемые плавила/Правила сценариев. Находим в списке нужное с "Запретить", меняем, перезагружаемся.

Ещё есть вариант блокировки расширений через диспетчер ресурсов файлсервера. В этом случае можно прибегнуть к переносу wscript.exe с манифестом и вызову скриптов с незарегистрированным в системе расширением вместо vbs. Но, судя по сообщению, это к делу вряд ли относится.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Aleks431



Joined: 23 May 2011
Posts: 74

Post (Separately) Posted: Wed Feb 08, 2017 10:35    Post subject: Reply with quote

Flasher wrote:
Из комстроки... Исполняемые плавила/Правила сценариев. Находим в списке нужное с "Запретить"...

Зашел под админом. Никаких правил вообще нет. Видимо просто появляется стандартное окно со стандартной записью, а заблокировано как-то по другому.
Про "манифест" можно поподробнее?
Back to top
View user's profile Send private message
CaptainFlint



Joined: 14 Dec 2004
Posts: 6161
Location: Москва

Post (Separately) Posted: Tue Feb 14, 2017 01:45    Post subject: Reply with quote

 !  CaptainFlint:
Поскольку обсуждение не относится к TC, тема из Общих вопросов переносится в Программное обеспечение.

_________________
Почему же, ё-моё, ты нигде не пишешь "ё"?
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Программное обеспечение All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group