[Anonymоus]

Перевод строки:

Код:

var WSHShell = WScript.CreateObject("WScript.Shell"); 
WSHShell.Popup(" Нажмите ОК \n для перехода", 20, "test");

По остальным вопросам - ожидайте, пока вам кто-то более знающий ответит, я в JS\VBS совсем не разбираюсь.

[Iska]

вот, а мну необходимо чтобы сообщение содержало более 1 строки »

На VBScript аналогично — разве что используются встроенные константы:

Код:

WScript.Echo "Hello" & vbCrLf & "World!"

возможно ли силами скрипта сделать две кнопки »

Используйте тот же самый метод Popup или MsgBox (под VBScript). Примеры смотрите по ссылке.

желательно чтобы после запуска сообщения окно (Cscript.exe) сворачивалось в трей»

Невозможно — в WSH нет встроенных средств для работы с окнами и трэем. Используйте в качестве хоста «wscript.exe» — окна консоли не будет.

[OSArev]

С тремя кнопками пойдёт?

Код:

result = MsgBox ("Пример работы кнопок." & Chr(10) & "Нажмите любую кнопку.", vbYesNoCancel, "Smart Box")
Select Case result
 Case vbYes 
  WScript.echo "Была нажата кнопка ""Да""" 
 Case vbNo 
  WScript.echo "Была нажата кнопка ""Нет"""
 Case vbCancel 
  WScript.echo "Была нажата кнопка ""Отмена""" 
End Select

Iska, извиняюсь. Не видел, что Вы уже дали ответ...

[zion87]

Iska, запустил в качестве хоста «wscript.exe» окно не появилось - отлично
OSArev, я так понял, что кол-во кнопок неизменно в этом коде??
и раз нет средств работы с окнами то привязать к кнопке закрытие программы не получиться?

[OSArev]

Кнопок можно и поменьше, и прогу можно вырубить

Код:

Set oShell = CreateObject("WScript.Shell")
oShell.Exec("calc.exe")

result = MsgBox ("Вырубить Калькулятор?", vbYesNo, "ProcessClose")
Select Case result
 Case vbYes 
   ProcessClose("calc.exe")
 Case vbNo 
  WScript.Quit
End Select
 
Function ProcessClose(sProcName)
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & sProcName & "'")
    
    For Each objProcess in colProcessList
        objProcess.Terminate()
    Next
End Function

[zion87]

Отлично OSArev, все работает!!!