View previous topic :: View next topic |
Author |
Message |
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Tue Sep 20, 2011 23:18 Post subject: |
|
|
это наверное я туплю, но ошибка осталась. Скопировал код, который "на" и вставил в скрипт. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Sep 20, 2011 23:27 Post subject: |
|
|
А, это я не туда смотрю.
Из комстроки вызови: %comspec% /k set programdata
Что показывает? |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Tue Sep 20, 2011 23:37 Post subject: |
|
|
вставил в комстроку %comspec% /k set programdata - показало путь к активной панели. Не ругайтесь) |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Sep 20, 2011 23:48 Post subject: |
|
|
angry_dog
И больше ничего? А первой строкой?
Тут может быть только два варианта:
1. Переменная среды programdata не определена
2. ProgramData=<Путь к ProgramData> |
|
Back to top |
|
|
Maximus
Joined: 07 Apr 2005 Posts: 927 Location: Украина, Кировоградская обл., г. Знаменка
|
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Tue Sep 20, 2011 23:49 Post subject: |
|
|
Flasher, в первой строке: ProgramData=C:\ProgramData |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Sep 20, 2011 23:57 Post subject: |
|
|
Вот другое дело. В общем, я так думаю, что с переменными порядок.
Попробуем-ка через "Заменить все" (ProgramData поменять на (Trim(ProgramData) и (AppData на (Trim(AppData) . |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Wed Sep 21, 2011 00:15 Post subject: |
|
|
колличество замен 2 (Trim(ProgramData) и 2 (Trim(AppData)
Ошибка та же: Переменная не определена: 'AppData' |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Sep 21, 2011 00:21 Post subject: |
|
|
Значит, не в этом дело. Неужели APPDATA нет? Быть не может.
Её теперь проверь: %comspec% /k set appdata |
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Wed Sep 21, 2011 11:57 Post subject: |
|
|
APPDATA=C:\Users\Администратор\AppData\Roaming\
F:\X-Art> |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Sep 21, 2011 20:57 Post subject: |
|
|
Ха-ха... Вот я невнимательный. Там же Option Explicit стоит. Да и переменные эти лучше не в функцию прописывать.
Короче, надо в строку Code: | Dim FSO, i, Menu, Buffer, Lnk | дописать Code: | , AppData, ProgramData | и под неё переместить это Code: | AppData = WSH.Environment("Process")("APPDATA")
ProgramData = WSH.Environment("Process")("ProgramData") |
|
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Thu Sep 22, 2011 00:53 Post subject: |
|
|
Flasher wrote: | Короче, надо в строку
Dim FSO, i, Menu, Buffer, Lnk |
Не нашёл такой строки. Нашёл
Code: | Dim F, AUSM, CUSM, AUSP, CUSP, Menu, n, i |
дописал: " , AppData, ProgramData"
ошибка:
"Windows Script Host
---------------------------
Сценарий: D:\Downloads\Temp\123.vbs
Строка: 64
Символ: 4
Ошибка: Переменная не определена: 'AUMM'
Код: 800A01F4
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
--------------------------- |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Sep 22, 2011 01:01 Post subject: |
|
|
Упс, я вот на этот скрипт смотрел.
В последнем надо дописывать к этой строке Code: | Dim StartMenuPath, UnknowTypeIcon |
А нижние две вставить перед строкой Code: | If IsNumeric(WScript.Arguments(0)) = True Then |
|
|
Back to top |
|
|
angry_dog
Joined: 21 Nov 2009 Posts: 143 Location: Питер
|
(Separately) Posted: Thu Sep 22, 2011 01:14 Post subject: |
|
|
Flasher
Простите, но я запутался
Flasher wrote: | В последнем надо дописывать к этой строке |
что куда вставлять в последнем. Не сердитесь) |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Sep 22, 2011 01:16 Post subject: |
|
|
angry_dog
Строка целиком должна быть такая: Code: | Dim StartMenuPath, UnknowTypeIcon, AppData, ProgramData |
Следуем контексту этого поста. |
|
Back to top |
|
|
|