Код 800А0046. Разрешение отклонено

[Alex3]

Перестали запускаться VBS-файлы. Пишет "Ошибка: Разрешение отклонено.
Код: 800А0046. Источник: Ошибка выполнения Microsoft VBScript"

[Dennis]

Точнее пожалуйста, домен, рабочаю группа? что устанавливалось в последнее время? Что в этой строке, где у вас ошибка?
Проверьте синхронизацию времени с контроллером в случае домена...
Либо нет прав на выполнение кода...

[Alex3]

Без доменов.
Рабочая группа - "Группа пользователей 1С", но не могу запустить под Админом.
Ничего не устанавливал, только убрал одного ненужного пользователя, на что и грешу. Да вот восстановить его не могу.

Строка: Set IniFile = FSO.CreateTextFile("fpr.prm")

"fpr.prm"
[General]
UnloadData = 1
Quit = 1
[UnloadData]
UnloadToFile = "20.10.2005.zip"
IncludeUserDef=1

[Alex3]

Сам VBS-файл:

Dim WSH 'Объект "WScript.Shell"
Set WSH = CreateObject("WScript.Shell")
Dim FSO 'Объект "Scripting.FileSystemObject"
Set FSO = CreateObject("Scripting.FileSystemObject")

'Создание файла параметров 1С для выгрузки данных
Set IniFile = FSO.CreateTextFile("fpr.prm")
IniFile.WriteLine "[General]"
IniFile.WriteLine "UnloadData = 1"
IniFile.WriteLine "Quit = 1"
'IniFile.WriteLine "Output = """ & TempPath & "UnLoad.log"""
IniFile.WriteLine "[UnloadData]"
IniFile.WriteLine "UnloadToFile = """ & date & ".zip"""
IniFile.WriteLine "IncludeUserDef=1"
IniFile.Close

WSH.Run "C:\Progra~1\1Cv77\BIN\1cv7s.exe config /@D:\BACKUP\BAYKAL\fpr.prm /dD:\Base\BAYKAL\ /nAdmin /pDg6rw23R5"

[Dennis]

Alex3
FSO.CreateTextFile("fpr.prm")
Так понимаю, что файл этот существует... Проверьте его атрибуты безопасности, кто владелец, кто имеет какие на него права...

[Alex3]

Проверил. Все впорядке. Но не работает. Выдает ту же ошибку...

[Alex3]

Подскажите.. Можно ли переустановить Microsoft VBScript не переустанавливая Винду и как это сделать?

[Dennis]

Просто скачайте с microsoft whs последней версии (5.6) для вашего языка (! обязательно) и установите.

[Alex3]

Спасибо Dennis.