VBS/WHS/JS

Busla · Отправлено: **13:46, 05-08-2008** | #2

А чего тут убиваться? - Нет такого оператора в VBS. Или ты категорией ошибся?

Ramzes_ · Конфигурация компьютера

On error goto 0

Все, по другому не напишешь.

Dr.Dark · Отправлено: **20:06, 05-08-2008** | #4

Не я вроде не ошибся. Странно.

Цитата Ramzes_:

Все, по другому не напишешь »

И чё ваще в случае ошибки нельзя перейти на метку? Я вроде гдето видел что моно. Может спутал с VBA.

Ramzes_ · Конфигурация компьютера

Нет, нельзя. Может и спутал с VBA. Можно только отключать обработку ошибок, выполнять какие то действия, а потом проверять, была ли при этом сгенерирована ошибка.

Dr.Dark · Отправлено: **20:31, 25-08-2008** | #6

Ладно, не отходя от кассы, что бы не создавать новую тему спрошу, как сделать так чтобы VBS скрипт по умолчанию запускался из CScript.exe, т.е. где-то видел что добавляешь какую-то строчку в начале и скрипт запускается из Cscript

Busla · Отправлено: **22:26, 25-08-2008** | #7

Dr.Dark, одна проблема - одна тема

Ramzes_ · Конфигурация компьютера

Цитата Dr.Dark:

Ладно, не отходя от кассы, что бы не создавать новую тему спрошу, как сделать так чтобы VBS скрипт по умолчанию запускался из CScript.exe, т.е. где-то видел что добавляешь какую-то строчку в начале и скрипт запускается из Cscript »

Выполнить один раз

Код:

cscript //H:CScript

Dr.Dark · Отправлено: **11:42, 26-08-2008** | #9

Решил проблему так:

Код:

Dim WSH  Set FSO = CreateObject("Scripting.FileSystemObject")  Set WSH = CreateObject("WScript.Shell")  if FSO.GetFileName(Wscript.FullName)="WScript.exe" then   WSH.Run "Cscript.exe "&Wscript.ScriptFullName,"1"   Wscript.Quit  end if