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

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

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

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

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

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

Сам 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"

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

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

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

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

Спасибо Dennis.