var EVENT_SOURCE =3D "Exchange MOM";

// Event Constants
var EVENT_TYPE_SUCCESS =3D 0;
var EVENT_TYPE_ERROR =3D 1;
var EVENT_TYPE_WARNING =3D 2;
var EVENT_TYPE_INFORMATION =3D 4;
// Event ID Constants
var EVENT_ID_BASE_STATE_OK =3D 100000;

PublishExMPData:
{
try {
=09
// Other Constants
var SUCCESS =3D 0;
var WshNetwork =3D new ActiveXObject("WScript.Network");
var strServerName =3D WshNetwork.ComputerName;
var PubKeyPublisherObjName;
=09
PubKeyPublisherObjName =3D "EMPKP.PubKeyPublisher";
=09
try {
var objKP =3D new ActiveXObject(PubKeyPublisherObjName);=20
}catch(err){
CreateEvent(EVENT_SOURCE, 10001, EVENT_TYPE_ERROR, "Failed to create =
the object '" + PubKeyPublisherObjName + "'.", "");
break PublishExMPData;
}
var errID;
errID =3D objKP.Publish();
if (errID !=3D SUCCESS)
CreateEvent(EVENT_SOURCE, 10000, EVENT_TYPE_ERROR, "Failed to publish =
Exchange Management Pack data required for performing MAPI logon on =
Exchange server:\"" + strServerName + ".\nError information:\n" + =
HResultToString(errID), "");=20
else
CreateEvent(EVENT_SOURCE, 9986, EVENT_TYPE_INFORMATION, "Successfully =
published Exchange Management Pack data required for performing MAPI =
logon on Exchange server:\"" + strServerName, "");=20
}catch(err){
CreateEvent(EVENT_SOURCE, 10000, EVENT_TYPE_ERROR, "Failed to publish =
Exchange Management Pack data required for performing MAPI logon on =
Exchange server:\"" + strServerName + ".\nError information:\n" + =
HResultToString(err.number) + " " + err.description, "");
}
}

function CreateEvent(strSource, lngEventID, lngEventType, strMsg, =
strComputer)
{
CreateEventEx(strSource, lngEventID, lngEventType, strMsg, =
strComputer, true);
}
function CreateReportEvent(strSource, lngEventID, lngEventType, strMsg, =
strComputer)
{
CreateEventEx(strSource, lngEventID, lngEventType, strMsg, =
strComputer, false);
}
function CreateEventEx(strSource, lngEventID, lngEventType, strMsg, =
strComputer, blnIncScriptName)
{
//var objNewEvent =3D ScriptContext.CreateEvent();
//Append ScriptContext.Name to event if requested
//  if (blnIncScriptName)
//    strMsg =3D strMsg + "\n\nThis event was generated by the script: =
\"" + ScriptContext.Name + "\"\n"
//objNewEvent.Message     =3D strMsg;
//objNewEvent.EventNumber =3D lngEventID;
//objNewEvent.EventType   =3D lngEventType;
//objNewEvent.EventSource =3D strSource;
//if (strComputer !=3D "")
//{
//  objNewEvent.LoggingComputer =3D strComputer;
//  objNewEvent.SourceComputer  =3D strComputer;
//}
//ScriptContext.Submit(objNewEvent);
}