Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/44: Рейтинг темы: голосов - 44, средняя оценка - 4.93
ruslan_fi
3 / 3 / 0
Регистрация: 29.10.2012
Сообщений: 67
#1

Ошибка - "Предполагается наличие окончания инструкции"

11.01.2014, 14:11. Просмотров 8079. Ответов 2
Метки нет (Все метки)

Есть скрипт:
Visual Basic
1
2
3
4
5
6
7
8
9
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
LotusPath = "C:\Users\" & WshNetwork.UserName & "\Lotus\"
 
'Проверяем наличие папки Lotus в перемещаемом профиле, если такой папки не существует, то создаем ее
If FSO.FolderExists(LotusPath) = False Then
    FSO.CreateFolder(LotusPath)
    robocopy "C:\Program Files (x86)\Lotus" "C:\Users\%USERNAME%\Lotus" "notes.ini"
End If
При запуске ругается:
Строка:8
Символ:42
(это буква "L" после "(x86)\")
Ошибка:Предполагается наличие окончания инструкции

Если эту строчку скопировать и запустить в cmd под тем же пользователем, она без проблем отрабатывается.
Что ОНО хочет от меня?

Добавлено через 18 минут
Поправка!Строка:8
Символ:42
(это первый символ второго параметра: "C:\Users\%USERNAME%\Lotus")
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.01.2014, 14:11
Ответы с готовыми решениями:

Сообщение об ошибке "Ошибка: Предполагается наличие окончания инструкции"
Dim objFSO, objWSh, FoldS, FileS, Tim Set objFSO =...

Ошибка: "Недопустимое использование скобок при вызове процедуры Sub"
Добрый день. Пытаюсь сделать замену внутри цикла, и в итоге при запуске скрипта...

Сообщение "Ошибка: Недопустимый знак" при запуске скрипта
Здравствуйте. С VBS так вплотную не раотаю, по этому если проблема очевидна то...

Виртуальная машина на JScript, ошибка "Неверный дескриптор"
Пытаюсь написать простую виртуальную машину на JScript. Надо придумать свой...

Ошибка "Путь не найден" при запуске кода
Мужики есть такая проблема. Вот скрипт vbs который запускается с неизвестной...

2
Eva Rosalene
T for Trans-
4050 / 1589 / 303
Регистрация: 06.01.2013
Сообщений: 4,179
Завершенные тесты: 2
11.01.2014, 14:46 #2
Цитата Сообщение от ruslan_fi Посмотреть сообщение
Если эту строчку скопировать и запустить в cmd под тем же пользователем, она без проблем отрабатывается.
WSH - не командная строка, там это не заработает. Надо так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WShell = CreateObject("WScript.Shell")
LotusPath = "C:\Users\" & WshNetwork.UserName & "\Lotus\"
 
'Проверяем наличие папки Lotus в перемещаемом профиле, если такой папки не существует, то создаем ее
If FSO.FolderExists(LotusPath) = False Then
    FSO.CreateFolder(LotusPath)
    WShell.Run("robocopy ""C:\Program Files (x86)\Lotus"" ""C:\Users\%USERNAME%\Lotus"" ""notes.ini""", 0)
End If
1
Dragokas
Эксперт WindowsАвтор FAQ
16966 / 7051 / 856
Регистрация: 25.12.2011
Сообщений: 10,861
Записей в блоге: 16
11.01.2014, 22:00 #3
Bash
1
FSO.CopyFile "C:\Program Files (x86)\Lotus\notes.ini",WShell.ExpandEnvironmentStrings("%userprofile%") & "\Lotus\",true
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2014, 22:00

Как скачать с сайта все изображения с графиками "5" и "d"?
Здравствуйте, подскажите как скачать картинки из этого сайта, нужны 5 и D...

Ошибка: "Неправильный сертификат безопасности, необходимый для доступа к этому ресурсу"
Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")...

Сообщение "Ошибка: Неверный дескриптор."
Здравствуйте, есть *.vbs файл который при запуске выдает ошибку Неверный...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru