Vbs завершение сценария

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

I have looked on Google and the answer is not there!

First things first. WScript.Quit DOES NOT WORK! I have no idea what «WScript» is but it clearly has nothing to do with client side scripting for a web page. I have seen this «WScript» thing somewhere before and it just produces errors (maybe obsolete or something) so please do not suggest it…

Anyway… all I wish to do is completely stop the script in the event of a condition not being met. Obviously I don’t want «Exit Sub» because the code would then carry on running if that sub is embedded!

I am aware of the «stop» command but I am under the impression that it is only used for debugging.

Hopefully a very simple question.

UPDATE and Conclusion: Before I close this subject I will just expand a little on what I was trying to do…

I had a number of main subs that were being started by a button click. In order to make it so that I did not have to edit each individual sub I embedded a universal sub within each one that did a preliminary check.

Part of that preliminary check was to stop the program in the case of an incorrect user input. If an error was detected I wanted to halt all progress from that point on. An «exit sub» would obviously just skip the rest of that preliminary sub and the main sub would carry on executing.

In the end it was just a case of writing in an error flag (that is checked in the main subs) or incorporating the error condition operation in each main procedure. In that way you exit the main sub and the problem is solved.

It was not laziness — I just wanted to reduce the amount of code. Thank you for the responses anyway.

Приветствую всех пользователей блога scriptcoding.ru. В этой статье мы рассмотрим основные свойства – их восемь и методы – sleep, quit и echo объекта WScript.

Данный объект является главным, он загружается автоматически и позволяет подключать остальные компоненты объектной модели Windows Script Host: как внутренние, так и внешние. Я решил не рассматривать все его методы и свойства, так как некоторые из них требуют отдельной статьи. Тут мы рассмотрим восемь основных свойств – их стоит знать, так как они позволяют получить информацию, как о самом сценарии, так и о сервере Windows Script Host в целом. Основные WScript методы – quit,sleep и echo, позволяют производить выход из сценария, задавать задержку и выводить данные.

И так, давайте рассмотрим все подробно.

Свойства

Name – Как правило, данное свойство содержит строку «Сервер сценариев Windows«.

FullName – Содержит полный путь к исполняемому файлу, который обрабатывает текущий сценарий, например, wscript_exe или cscript_exe.

ScriptName – Имя текущего сценария.

ScriptFullNmae – Полный путь к текущему скрипту.

Path – Путь к системному каталогу.

Version – Собственно, версия сервера Windows Script Host.

Timeout – Свойство доступно как для чтения, так и для записи. Определяет время в секундах, через которое сценарий должен завершить работу. По умолчанию значение ровно 0.

BuildVersion – Содержит номер сборки сервера сценариев Windows Script Host.

Методы

Quit(code) – Текущий метод производит выход из сценария с кодом, который задан параметром code, если код выхода не задан, он устанавливается в ноль. Стоит помнить, что как только будет выполнена последняя строка кода в скрипте, он автоматически завершит свою работу.

Sleep(time) – Позволяет задать задержку в миллисекундах.

Echo(str1, str2,… ) – Пожалуй, самый простой оператор вывода данных. Ему можно передавать как строковые параметры, заключенные в кавычки, так и имена переменных.

И так, с теоретической частью мы закончили, теперь можно приступить к программированию. Для начала рассмотрим такой пример на языке vbscript:

' ***********************************************************' Класс Wscript методы и свойства' wscript echo, wscript sleep и wscript quit' wscript_obj.vbs' ***********************************************************OptionExplicit Dim Msg Msg = "Свойства класса_WScript" & vbCrLf & vbCrLf With WScript     Msg = Msg & "Name: " & .Name & vbCrLf & "FullName: " & .FullName & vbCrLf     Msg = Msg & "ScriptName: " & .ScriptName & vbCrLf & "ScriptFullName: " & .ScriptFullName & vbCrLf     Msg = Msg & "Path: " & .Path & vbCrLf & "Version: " & .Version & vbCrLf     Msg = Msg & "Application: " & .Application & vbCrLf & "Timeout: " & .Timeout & vbCrLf & "BuildVersion: " & .BuildVersion      'используем функцию Wscript Echo для вывода данных     .Echo Msg     'Создаем задержку в 2000 миллисекунд с помощью Wscript Sleep     .Sleep 2000     'устанавливаем время выхода через 2 секунды     .Timeout = 2                               .Echo "Это окно закроется через 2 секунды"     ' Wscript Quit - завершение работы     .QuitEndWith

Давайте подробно рассмотрим программный код скрипта. В данном примере мы сначала составляем список свойств, который будет храниться в переменной Msg. Вывод списка осуществляется с помощью функции Wscript Echo. Потом происходит вызов метода Wscript Sleep со значением параметра в 2000 миллисекунд. Сразу после этого мы присваиваем свойству Timeout значение 2 – количество секунд, через которое сценарий прекратит работу. И в конце идет снова вывод диалогового окна с помощью метода Wscript Echo. Как только диалоговое окно появится, и, если мы не нажмем на кнопку, то оно автоматически закроется через 2 секунды благодаря строке WScript Quit. Обратите внимание, что бы не писать лишний раз имя объекта, мы использовали конструкцию With… End With, тем самым нам достаточно указать имена свойств и методов.

А вот аналогичный пример, но уже на языке JScript:

// ***********************************************************// Класс Wscript методы и свойства// wscript echo, wscript sleep и wscript quit// wscript_obj.js// *********************************************************** var Message; Message ="Свойства класса_WScript"+"nn";with(WScript){     Message+="Name: "+ Name +"nFullName: "+ FullName +"n";     Message+="ScriptName: "+ ScriptName +"nScriptFullName: "+ ScriptFullName +"n";     Message+="Path: "+ Path +"nVersion: "+ Version +"n";     Message+="Application: "+ Application +"nTimeout: "+ Timeout +"nBuildVersion: "+ BuildVersion;      //используем функцию WScript Echo для вывода данных     Echo (Message);     //Создаем задержку в 2000 миллисекунд с помощью Wscript Sleep     Sleep (2000);     //устанавливаем время выхода через 2 секунды     Timeout =2;     Echo ("Это окно закроется через 2 секунды");     // Wscript Quit - завершение работы     Quit();}

Скачать архив с примерами

В данном примере приводятся аналогичные действия, но, стоит всегда обращать внимание на правила синтаксиса языка. Видим, что язык jscript требует наличие точки с запятой в конце каждого оператора и наличие круглых скобок после метода, в которых прописываются параметры. Также не стоит забывать про то, что сам язык чувствителен к регистру. Обратите внимание, что список хранится в переменной Message, как и с языком vbscript, тут для сокращения программного кода мы использовали оператор with.

И так, давайте подытожим: в этой статье мы рассмотрели базовые свойства класса_WScript, а также три метода: wscript echo, wscript quit и wscript sleep.

Вы можете попробовать CloseMainWindow и Close методы на процесс, как описано на MSDN, как:

Sub KillingMeSoftly(processName)

    'partly copied from http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/processes/    
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
    Set colProcessList = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = '" & processName & "'")
    For Each objProcess in colProcessList
        objProcess.CloseMainWindow
        objProcess.Close
    Next

End Sub

это был плохой ответ

ОБНОВИТЬ
В поисках ответа я только что обнаружил, что запуск скрипта с параметром //T:nn вызывает событие Terminate для объектов:

class Foo
    sub class_terminate
        msgbox "Gracefull termination"
        ' Put your own termination code here.        
    end sub
end class

dim bar
set bar = new Foo

do 
loop ' makes the script run forever

Сохраните это как c:endless.vbs

Запуск этого сценария никогда не вызовет событие завершения, потому что он будет зависать в бесконечном цикле, но если вы запустите сценарий с тайм-аутом, он будет; Запустите скрипт из командной строки:
C:>wscript endless.vbs //T:5

Вы увидите, что через 5 секунд появится окно сообщения с надписью «Изящное завершение».

Это полезно, когда вы хотите выйти из сценария через определенное время и запустить очистку, если она не была завершена сама по себе. Я не знаю, охватывает ли это решение, которое вы ищете.

Situation:

To keep it simple: I got multiple shortcuts on a network share that starts an VMwareclient application that connects to a console of a virtual machine. The shortcut looks something like this:

\sharevmware-vmrc.exe -h HOST -u USER -p PASS "[LocalStorage] NAME/NAME.vmx"

But i like to know if someone is already using this console connection, so i can avoid starting this shortcut and choose another machine. So i made an script to do this and changed the shortcut to:

C:WindowsSystem32wscript.exe \sharestart.vbs NAME "[LocalStorage] NAME/NAME.vmx"

This opens a vbscript that runs an batch file silent, so it is not visible for the user.

arg = " " & WScript.Arguments.UnNamed(0) & " """ & WScript.Arguments.UnNamed(1) & """"
CreateObject("Wscript.Shell").Run "client.cmd" & arg ,0,False

This opens client.cmd that operates the launch of the VMwareclient and connects to the given virtual machine and writes a logfile to log which user has the Virtual Machine in use.

@echo off
pushd "%~dp0"
set TIMESTAMP=%TIME:~0,2%:%TIME:~3,2%
set CLIENT=%1

:start
IF EXIST logs%client% goto msg
echo %username% since %TIMESTAMP% on %DATE% >logs%client%
start /wait c:vmwareclientvmware-vmrc.exe -h HOST -u USER -p PASS %2
del logs%client%
goto exit

:msg
for /f "delims=" %%x in ('type logs%client%') do set "type=%%x"
echo wscript.quit MsgBox ("%client% is in use by %type%. Do you like to continue?", 4, "%client% is in use") > yesno.vbs
wscript //nologo yesno.vbs
set value=%errorlevel%
del yesno.vbs
if "%value%"=="6" start /wait c:vmwareclientvmware-vmrc.exe -h HOST -u USER -p PASS %2
if "%value%"=="7" goto exit
goto exit

:exit
popd

The variable %client% contains the first parameter given in the shortcut, it represents NAME.

This all works fine. But there is one problem, at «start /wait :..» the scripts waits till the client application is closed. But when the user logs off or shuts down Windows it force closes the script and it doesn’t continue the script to delete the logfile. That causes the logs to be irrelevant because some users who logged off or force closed the script are still present in the logfile as if the virtual machine is still in use.

Problem:

«start /wait» waits till the application is closed, but when a user shuts down windows or logs off the script is force closed and doesn’t continue.

Question:

Is there a solution to detect such force close in batch? (probably not)
Do i need to switch to VBscript or an other program/script language to accomplish this?