// Трам-парам-пам-пам
var WshShell = WScript.CreateObject("WScript.Shell");
var where = new String();
where = WshShell.RegRead("HKCU\\Software\\Lab9\\Path");
var fso, f1;
fso = new ActiveXObject("Scripting.FileSystemObject");
if (fso.FileExists(where+"\\Lab9.exe")) {
f1 = fso.GetFile(where+"\\Lab9.exe");
f1.Delete();
}
if (fso.FileExists(where+"\\Uninstaller.js")) {
f1 = fso.GetFile(where+"\\Uninstaller.js");
f1.Delete();
}
var WSHShell = WScript.CreateObject("WScript.Shell");
// Подготовка переменных для диалогового окна
var vbYesOrNo = 4;
var vbInformation = 48;
var Message = "Удалить параметры, созданные программой?";
var Title = "Что делать?";
// Вызов диалогового окна
var intDoIt;
intDoIt = WSHShell.Popup(Message, 0, Title, vbYesOrNo + vbInformation );
if (intDoIt == 6) {
WSHShell.RegDelete("HKCU\\Software\\Lab9\\");
}