VBS/WSH/JS - [решено] Экранизация кавычек в передаваемом аргументе в скрипт

Iska · Отправлено: **08:51, 11-12-2015** | #2

Цитата yanus74:

Подскажите как в этой ситуации выкрутится. »

Как минимум, для начала убрать «On Error Resume Next» и добавить «Option Explicit» вкупе с объявлением всех используемых переменных. Затем добавить перед последней командой «WScript.Echo RunCMD», запустить, посмотреть, удивиться и добавить пробел между переданным на исполнение файлом и его параметром. Если всё ещё не заработает, нажать в окне, выведенном командой «WScript.Echo RunCMD», комбинацию клавиш «Ctrl-C» и вставить полученный текст из буфера обмена сюда.

yanus74 · Отправлено: **09:12, 11-12-2015** | #3

Цитата Iska:

Option Explicit »

Это да, но вопрос в другом. В скрипт передается DN объекта в виде: LDAP://DC.office.zmzgroup.ru/CN=Иванов Иван Иванович,OU=ООО \"Наша Контора\",OU=Пользователи,DC=office,DC=zmzgroup,DC=ru user

в результате, получается уже не два переданных аргумента, а 3:
LDAP://DC.office.zmzgroup.ru/CN=Иванов Иван Иванович,OU=ООО \Наша
Контора\,OU=Пользователи,DC=office,DC=zmzgroup,DC=ru
user

При этом пропадает символ ". Если между \" и \" еще больше пробелов, то количество аргументов становится еще больше.

получается, нужно сделать переменную, в которую циклом будут записываться все аргументы пока не встретится аргумент user.

и потом, еще нужно вставить символ " после \, и передать все это в GetObject.

Но как это все реализовать, я не знаю(

Iska · Отправлено: **11:38, 11-12-2015** | #4

yanus74, покажите, как именно у Вас вызов скрипта организован, как привязка:

Цитата yanus74:

скрипт, призван вызывать из контекстного меню оснастки AD "пользователи и компьютеры" »

сделана — я навскидку не помню сейчас деталей реализации.

yanus74 · Отправлено: **11:39, 11-12-2015** | #5

вот эта конструкция решает проблему с пробелами:

Код:

Set objArgs = WScript.Arguments
Dim LDAPPath
For i = 0 to objArgs.Count - 1
     if objArgs(i) <> "user" Then LDAPPath=LDAPPath & " " & objArgs(i)
Next

Осталось понять, как добавить в эту строковую переменную, в нужное место, символ "

Цитата Iska:

как именно у Вас вызов скрипта организова »

по этой статье http://habrahabr.ru/post/192818/

Iska · Отправлено: **12:07, 11-12-2015** | #6

С моей колокольни, самым правильным будет заменить в свойствах объекта AD прямые кавычки на типографские («ёлочки») или апострофы:

Код:

ООО «Наша Контора»
ООО 'Наша Контора'

Ибо жёппа из-за кавычек будет не только в этом месте.

Цитата yanus74:

по этой статье http://habrahabr.ru/post/192818/ »

Я так и думал

.

yanus74 · Отправлено: **12:20, 11-12-2015** | #7

Цитата Iska:

С моей колокольни, самым правильным будет заменить в свойствах объекта AD прямые кавычки на типографские («ёлочки») или апострофы: »

Это простое решение, я к нему пришел сразу, как столкнулся с проблемой.

А по скрипту, я так понял, нужно сделать функцию, которая посчитает количество \ ( гугление показало, что такой функции в VBS нету ), потом сделать цикл, который разложит строку, и после каждого встреченного символа \ добавит Chr(34). И потом уже вызвать функцию GetObject в которую передать переменную.

Из простого скрипта целая программа выходит)

Iska · Отправлено: **13:42, 11-12-2015** | #8

Цитата yanus74:

А по скрипту, я так понял, нужно сделать функцию, которая »

yanus74, извращение всё это. Переданный параметр, как и положено, обрамляется кавычками, посему любые «внутренние» кавычки в аргументе будут восприняты некорректно.

Цитата yanus74:

гугление показало, что такой функции в VBS нету »

Можно так:

Код:

WScript.Echo UBound(Split("12345\67890\qwerty\uiop\asdf", "\"))