jShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
valUserIn = MsgBox("Добавить настрой... завершать выполнение скрипта.
<code vbscript>On Error Resume Next</code>
Окно выбора действия.
<code ... jShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
objShell.RegRead "HKEY_CURRENT_USER\... Shell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
Set HostNameSet = objWMIService.Exec