//******************************************************************
//  File:    PatchCheck.js  (WSH2 for JScript)
//  Author:  (c)  M. Gallant    06/02/2000
//
//  Windows Script Host Scriptlet/Eyedog Patch Status
//  This sample checks 2 registry values for scriptlet/eyedog vulnerability patch. 
//  Based on information at:
//    http://www.microsoft.com/technet/security/bulletin/fq99-032.asp
//*******************************************************************

var infourl = "http://www.microsoft.com/technet/security/bulletin/fq99-032.asp"  ;
var patchurl = "http://pcinfo.ca.nortel.com/w3b/display/patches/general/windows95/ActiveX_patch.exe"  ;
var vbOKCancel = 1;
var vbInformation = 64;
var vbCancel = 2;

var scriptlet ="HKCR\\CLSID\\{06290BD5-48AA-11D2-8432-006008C3FBFC}\\Implemented Categories\\{7DD95801-9882-11CF-9FA9-00AA006C42C4}\\" ;
var eyedog ="HKLM\\SOFTWARE\\Microsoft\\Internet Explorer\\ActiveX Compatibility\\{06A7EC63-4E21-11D0-A112-00A0C90543AA}\\Compatibility Flags" ;

var L_Welcome_MsgBox_Message_Text   = " --------- Checks Scriptlet/Eyedog patch status --------- \n\n"+infourl;
var L_Welcome_MsgBox_Title_Text     = "Scriptlet/Eyedog Patch Checker";
Welcome();


// ********************************************************************************
// *
// * Registry related methods.
// *

var WSHShell = WScript.CreateObject("WScript.Shell");

// -------- Check Registry Setting for Scriptlet ActiveX Control ---------------
try {
  var scrtext = WSHShell.RegRead(scriptlet);
  var scriptletstatus = "WARNING: Scriptlet Control has **NOT** been patched! \n Please install the patch at:\n"+patchurl;
    WSHShell.Popup(scriptletstatus,
                              0,
                              L_Welcome_MsgBox_Title_Text,
                              vbOKCancel + vbInformation );
    WScript.Quit();
  }
 catch(e) {
    WSHShell.Popup("Scriptlet Control has already been patched!",
                              0,
                              L_Welcome_MsgBox_Title_Text,
                              vbOKCancel + vbInformation );
  }


// -------- Check Registry Setting for Eyedob ActiveX Control ---------------
 
var killbitvalue = WSHShell.RegRead(eyedog);
var eyedogstatus = "Eyedog Control has already been patched" ;
 if(killbitvalue!=1024)
   eyedogstatus = "WARNING:  Eyedog Control has **NOT** been patched! \n Please install the patch at:\n" + patchurl ;
WSHShell.Popup(eyedogstatus, 0, L_Welcome_MsgBox_Title_Text, vbOKCancel + vbInformation );


//////////////////////////////////////////////////////////////////////////////////
//
// Introductory Window
//

function Welcome() {
    var WSHShell = WScript.CreateObject("WScript.Shell");
    var intDoIt;

    intDoIt =  WSHShell.Popup(L_Welcome_MsgBox_Message_Text,
                              0,
                              L_Welcome_MsgBox_Title_Text,
                              vbOKCancel + vbInformation );
    if (intDoIt == vbCancel) {
        WScript.Quit();
    }
}