W1nn1ep00h
16-05-2013, 11:49
Windows Script Host пишет ошибку - "Сценарий не указан" - при попытке запустить двойным щелчком или из командной строки
Что делаю не так?
Пробовал по всякому.
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "C:\UsbBoot\USBboot.bat"
Set oShell = CreateObject("WScript.Shell")
strCmd = "cmd /K type C:\UsbBoot\USBboot.bat"
oShell.Run(strCmd)
Set oShell = Nothing
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("C:\UsbBoot\USBboot.bat", 1, True)
P.S. в VBS не разбираюсь брал примеры, но чет не пашет. Все файлы сохранены в кодировке ANSI
Что делаю не так?
Пробовал по всякому.
Sub Run(ByVal sFile)
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.Run Chr(34) & sFile & Chr(34), 1, false
Set shell = Nothing
End Sub
Run "C:\UsbBoot\USBboot.bat"
Set oShell = CreateObject("WScript.Shell")
strCmd = "cmd /K type C:\UsbBoot\USBboot.bat"
oShell.Run(strCmd)
Set oShell = Nothing
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("C:\UsbBoot\USBboot.bat", 1, True)
P.S. в VBS не разбираюсь брал примеры, но чет не пашет. Все файлы сохранены в кодировке ANSI