1 Тема от wildwolf007

  • wildwolf007
  • Участник
  • Неактивен

Тема: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

При запуске внешних приложений иногда необходимо использовать 2 слеша.

Как запустить внешнее приложение если необходимо производить запуск относительно UNC пути ?
Например  в коде имеется:

"D:\\OSR\\1\\qwerty.exe"

А нужно запустить через UNC:

\\Master\OSR\1\qwerty.exe

Как это сделать с учетом 2х слешей?

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

"D:\\OSR\\1\\qwerty.exe"

Зачем два слэша для VBScript?

3 Ответ от wildwolf007

  • wildwolf007
  • Участник
  • Неактивен

Re: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

Запуск будет празводится через сеть 


MsgBox chr(34)

Var_1 = "D:\\OSR\\sign_s\\qwerty.exe"
Var_2 = "F:\\" &"s9001218.rtf"
Var_0 = Var_1 &" " &"/p" &" " &Var_2

MsgBox Var_0
Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run (Var_0,0,True)
MsgBox "Обработка завершена! Код возврата - " & RetC

4 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

Ещё раз спрашиваю: зачем два слэша:

Var_1 = "D:\\OSR\\sign_s\\qwerty.exe"
Var_2 = "F:\\" &"s9001218.rtf"

для VBScript?

5 Ответ от wildwolf007

  • wildwolf007
  • Участник
  • Неактивен

Re: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

Да для vbs. Прошу прощения думал указал в теме этого достаточно.

6 Ответ от omegastripes (изменено: omegastripes, 2014-02-17 22:15:58)

  • omegastripes
  • Разработчик
  • Неактивен

Re: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

wildwolf007 пишет:

А нужно запустить через UNC:

\\Master\OSR\1\qwerty.exe

Как это сделать с учетом 2х слешей?

Replace("\\Master\OSR\1\qwerty.exe", "\", "\\")

Иными словами, судя по всему, Вам нужно 4 слэша.

alexii пишет:

Ещё раз спрашиваю: зачем два слэша:

Var_1 = "D:\\OSR\\sign_s\\qwerty.exe"
Var_2 = "F:\\" &"s9001218.rtf"

для VBScript?

И все-таки. Зачем два слэша для VBScript?

Щт Уккщк Куыгьу Туче
’ҐЄгй п Є®¤®ў п бва Ёж : 1251

7 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

Да для vbs. Прошу прощения думал указал в теме этого достаточно.

wildwolf007, Вы, очевидно, никак не поймёте суть вопроса.

Для VBScript не нужны два слэша. Это не JScript. Достаточно:

Var_1 = "D:\OSR\sign_s\qwerty.exe"
Var_2 = "F:\" &"s9001218.rtf"

Точно так же достаточно и этого:

\\Master\OSR\1\qwerty.exe

где «Master» — имя удалённого сервера, «OSR» — имя разделённого ресурса, «1» — путь и «qwerty.exe» — имя исполняемого файла.

8 Ответ от wildwolf007 (изменено: wildwolf007, 2014-02-17 23:46:16)

  • wildwolf007
  • Участник
  • Неактивен

Re: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

Наверное я неправильно объяснил я запускают экзклерк,  а для экзешника необходимо производить запуск с 2мя слешами. Тему по запуску данного экзешника я уже поднимал

Тема
http://forum.script-coding.com/viewtopic.php?id=9203

9 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

Расстановка знаков препинания и соблюдение падежей способствуют пониманию смысла фраз.

10 Ответ от wildwolf007 (изменено: wildwolf007, 2014-02-18 22:37:18)

  • wildwolf007
  • Участник
  • Неактивен

Re: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

Прошу прощения ехал в маршрутке  Т9 подвело.

Проще говоря так работает, когда указываем пути через диск Var_1 = "F:\\auto\\qwerty.exe"

Dim  Var_0, Var_1, Var_2, RetCode
Var_1 = "F:\\auto\\qwerty.exe"
Var_2 = "F:\\" &"12345678.123"
RetCode = qwertyCheck

Function qwertyCheck()
Set WshShell = CreateObject("WScript.Shell")
Var_0 = Var_1 &" " &"/p" &" " &Var_2
RetCode = WshShell.Run(Var_0, 0, True) 
qwertyCheck = RetCode
End Function

А вот так не работает при использовании пути Var_1 = "\\\\Master\\auto\\qwerty.exe"

Dim  Var_0, Var_1, Var_2, RetCode
Var_1 = "\\\\Master\\auto\\qwerty.exe"
Var_2 = "F:\\" &"12345678.123"
RetCode = SbersignCheck


Function qwertyCheck()
Set WshShell = CreateObject("WScript.Shell")
Var_0 = Var_1 &" " &"/p" &" " &Var_2
RetCode = WshShell.Run(Var_0, 0, True) 
qwertyCheck = RetCode
End Function

Видимо путь UNC нужно как-то по-другому прописывать.
qwerty.exe находится на сетевом ресурсе \\Master\auto\qwerty.exe"

11 Ответ от wildwolf007

  • wildwolf007
  • Участник
  • Неактивен

Re: VBS: UNC. Запуск внешних приложений с учетом 2х слешей

Тема закрыта, разобрался.