Передайте несколько входов в командное окно, вызывая оболочку в vbscript
Я ищу, чтобы установить файл .exe через командную строку, во время выполнения каждого этапа он будет запрашивать такие детали,как имя компьютера, пароль и т.д., которые я хочу передать через Vbscript с помощью командной строки оболочки. Вот мой сценарий.
Я использую ";" для разделения команды, каждая команда должна выполняться после успешного выполнения предыдущей commend. Этот метод не работает. Может ли кто-нибудь мне помочь?
Что я уже пробовал:
Dim ObjWB,ObjWS,ObjXL,CompName,Pasword
Set WShell = CreateObject("WScript.Ракушка")
Dim shell : Set shell = CreateObject("Shell.Приложение")
Set ObjXL = CreateObject("Excel.Приложение")
Set ObjWB = ObjXL.Workbooks.open(путь к файлу)
Установите ObjWS = ObjWB.Рабочие листы(1)
Server = msgbox("Is it a Server",vbYesNo,"Environment Details")
Выбор сервера
дело "6"
Wshell.выполнить("амп УМК /c:\temp\run.exe к&;";"&амп; CompName &ампер;";"&усилителя; пароль )
Конец Выбрать
Richard MacCutchan
- Этот метод не работает."
Это все равно что позвонить в гараж и сказать механику: "моя машина не работает".
ZurdoDev
По крайней мере, они не позвонили на почту, чтобы сказать им, что машина не работает. :)
Dave Kreskowiak
Я сомневаюсь, что этот код даже компилируется из-за действительно плохо отформатированной строки, которую вы передаете в Wshell.Run().