Вверх ↑
Ответов: 672
Рейтинг: 141
#1: 2023-02-19 07:39:07 ЛС | профиль | цитата
vovs писал(а):
Попытался запустить файл replace.ps1, ругается: "... выполнение сценариев отключено в этой системе".
Win 8.1, куда копать?

1. У тебя работает вторая схема из этого сообщения - https://forum.hiasm.com/post/312774?
2. Если работает, то правой кнопкой мыши на скрипте >>> выбрать 'свойства' >>> поставить галочку 'разблокировать' >>> нажать кнопку 'применить' и запустить схему ещё раз.
Разблокировать файл скрипта 2.PNG
3. Если не работает, то запусти эту схему.
Add(MainForm,2953706,154,105)
{
link(onCreate,7960161:doString,[])
}
Add(FormatStr,7960161,217,119)
{
Mask="Dim oRegistry, oFSO, sKey, sAppExe, sValue, sAppVersion\r\nConst HKEY_LOCAL_MACHINE = &H80000002\r\n\r\nSet oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}//./root/default:StdRegProv")\r\nSet oFSO = CreateObject("Scripting.FileSystemObject")\r\nsKey = "Software\Microsoft\Windows\CurrentVersion\App Paths"\r\nsAppExe = "excel.exe"\r\noRegistry.GetStringValue HKEY_LOCAL_MACHINE, sKey & "\" & sAppExe, "", sValue\r\nsys.onEvent "Версия Excel - " & oFSO.GetFileVersion(sValue)\r\nSet oFSO = Nothing\r\nSet oRegistry = Nothing"
link(onFString,7794985:##SetScript,[])
}
Add(VBJScript,7794985,280,119)
{
WorkPoints=#11:##SetScript|
EventPoints=#7:onEvent|
Script=#0:|0:|
UseName=0
link(onEvent,1086786:doAdd,[])
}
Add(Memo,1086786,336,119)
{
Left=550
Top=160
Align=5
Font=[MS Sans Serif,15,0,0,1]
ScrollBars=3
}

Какая версия Excel у тебя установлена?
карма: 14

0
Редактировалось 1 раз(а), последний 2023-02-19 07:46:11