Страница 5 из 7
Добавлено: Вт сен 20, 2011 23:18
angry_dog
это наверное я туплю, но ошибка осталась. Скопировал код, который "на" и вставил в скрипт.
Добавлено: Вт сен 20, 2011 23:27
Flasher
А, это я не туда смотрю.
Из комстроки вызови: %comspec% /k set programdata
Что показывает?
Добавлено: Вт сен 20, 2011 23:37
angry_dog
вставил в комстроку %comspec% /k set programdata - показало путь к активной панели. Не ругайтесь)
Добавлено: Вт сен 20, 2011 23:48
Flasher
angry_dog
И больше ничего? А первой строкой?
Тут может быть только два варианта:
1. Переменная среды programdata не определена
2. ProgramData=<Путь к ProgramData>
Добавлено: Вт сен 20, 2011 23:49
Maximus
angry_dog
Чуть выше пути посмотри
Добавлено: Вт сен 20, 2011 23:49
angry_dog
Flasher, в первой строке: ProgramData=C:\ProgramData
Добавлено: Вт сен 20, 2011 23:57
Flasher
Вот другое дело. В общем, я так думаю, что с переменными порядок.
Попробуем-ка через "Заменить все" (ProgramData поменять на (Trim(ProgramData) и (AppData на (Trim(AppData) .
Добавлено: Ср сен 21, 2011 00:15
angry_dog
колличество замен 2 (Trim(ProgramData) и 2 (Trim(AppData)
Ошибка та же: Переменная не определена: 'AppData'
Добавлено: Ср сен 21, 2011 00:21
Flasher
Значит, не в этом дело. Неужели APPDATA нет? Быть не может.
Её теперь проверь: %comspec% /k set appdata
Добавлено: Ср сен 21, 2011 11:57
angry_dog
APPDATA=C:\Users\Администратор\AppData\Roaming\
F:\X-Art>
Добавлено: Ср сен 21, 2011 20:57
Flasher
Ха-ха... Вот я невнимательный. Там же
Option Explicit стоит. Да и переменные эти лучше не в функцию прописывать.
Короче, надо в строку
дописать
и под неё переместить это
Код: Выделить всё
AppData = WSH.Environment("Process")("APPDATA")
ProgramData = WSH.Environment("Process")("ProgramData")
Добавлено: Чт сен 22, 2011 00:53
angry_dog
Flasher писал(а):Короче, надо в строку
Dim FSO, i, Menu, Buffer, Lnk
Не нашёл такой строки. Нашёл
дописал: " , AppData, ProgramData"
ошибка:
"Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\123.vbs
Строка: 64
Символ: 4
Ошибка: Переменная не определена: 'AUMM'
Код: 800A01F4
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
---------------------------
Добавлено: Чт сен 22, 2011 01:01
Flasher
Упс, я вот на
этот скрипт смотрел.
В последнем надо дописывать к этой строке
А нижние две вставить перед строкой
Код: Выделить всё
If IsNumeric(WScript.Arguments(0)) = True Then
Добавлено: Чт сен 22, 2011 01:14
angry_dog
Flasher
Простите, но я запутался
Flasher писал(а):В последнем надо дописывать к этой строке
что куда вставлять в последнем. Не сердитесь)
Добавлено: Чт сен 22, 2011 01:16
Flasher
angry_dog
Строка целиком должна быть такая:
Код: Выделить всё
Dim StartMenuPath, UnknowTypeIcon, AppData, ProgramData
Следуем контексту
этого поста.