<?xml version="1.0"?>
<package>
<job>
BEGIN CALLOUT A
<object progid="WbemScripting.SWbemLocator" id="objWMILocator"
reference="true"/>
<object progid="WbemScripting.SWbemNamedValueSet"
id="objPDCFSMOSinkContext"/>
<object progid="WbemScripting.SWbemNamedValueSet"
id="objINFFSMOSinkContext"/>
<object progid="WbemScripting.SWbemNamedValueSet"
id="objRIDFSMOSinkContext"/>
<object progid="WbemScripting.SWbemNamedValueSet"
id="objDOMFSMOSinkContext"/>
<object progid="WbemScripting.SWbemNamedValueSet"
id="objSCHFSMOSinkContext"/>
<object progid="WbemScripting.SWbemDateTime"
id="objWMIDateTime" />
END CALLOUT A
<script language="VBscript">
<![CDATA[
.
.
.
Const cTargetRecipient = "Alain.Lissoir@LissWare.Net"
Const cSourceRecipient = "WMISystem@LissWare.Net"
.
.
.
Set objWMISink = WScript.CreateObject ("WbemScripting.SWbemSink", "SINK_")
objWMILocator.Security_.AuthenticationLevel = _
wbemAuthenticationLevelDefault
objWMILocator.Security_.ImpersonationLevel = _
wbemImpersonationLevelImpersonate
Set objWMIServices = objWMILocator.ConnectServer(strComputerName, _
cWMINameSpace, strUserID, strPassword)
If Err.Number Then ErrorHandler (Err)
BEGIN CALLOUT B
objPDCFSMOSinkContext.Add "FSMO", "PDC"
objWMIServices.ExecNotificationQueryAsync objWMISink, _
cPDCFSMOWMIQuery, _
, _
, _
, _
objPDCFSMOSinkContext
If Err.Number Then ErrorHandler (Err)
WScript.Echo "Monitoring PDC FSMO role ..."
objINFFSMOSinkContext.Add "FSMO", "INFRASTRUCTURE"
objWMIServices.ExecNotificationQueryAsync objWMISink, _
cINFFSMOWMIQuery, _
, _
, _
, _
objINFFSMOSinkContext
If Err.Number Then ErrorHandler (Err)
WScript.Echo "Monitoring INFRASTRUCTURE FSMO role ..."
objRIDFSMOSinkContext.Add "FSMO", "RID"
objWMIServices.ExecNotificationQueryAsync objWMISink, _
cRIDFSMOWMIQuery, _
, _
, _
, _
objRIDFSMOSinkContext
If Err.Number Then ErrorHandler (Err)
WScript.Echo "Monitoring RID FSMO role ..."
objDOMFSMOSinkContext.Add "FSMO", "DOMAIN NAMING"
objWMIServices.ExecNotificationQueryAsync objWMISink, _
cDOMFSMOWMIQuery, _
, _
, _
, _
objDOMFSMOSinkContext
If Err.Number Then ErrorHandler (Err)
WScript.Echo "Monitoring DOMAIN NAMING FSMO role ..."
objSCHFSMOSinkContext.Add "FSMO", "SCHEMA"
objWMIServices.ExecNotificationQueryAsync objWMISink, _
cSCHFSMOWMIQuery, _
, _
, _
, _
objSCHFSMOSinkContext
If Err.Number Then ErrorHandler (Err)
WScript.Echo "Monitoring SCHEMA FSMO role ..."
END CALLOUT B
WScript.Echo vbCRLF & "Waiting for events..."
PauseScript "Click on 'Ok' to terminate the script ..."
.
.
.
Sub SINK_OnObjectReady (objWMIInstance, objWMIContext)
On Error Resume Next
Wscript.Echo
Wscript.Echo "BEGIN - OnObjectReady."
WScript.Echo FormatDateTime(Date, vbLongDate) & " at " & _
FormatDateTime(Time, vbLongTime) & ": '" & _
objWMIInstance.Path_.Class & "' has been triggered."
BEGIN CALLOUT C
Set objContextItem = objWMIContext.Item ("FSMO")
WScript.Echo
WScript.Echo "'" & objContextItem.Value & "' FSMO role has been transferred from:"
WScript.Echo " '" & objWMIInstance.PreviousInstance.ds_fSMORoleOwner & "'"
WScript.Echo "to:"
WScript.Echo " '" & objWMIInstance.TargetInstance.ds_fSMORoleOwner & "'"
END CALLOUT C
If Not IsNull (objWMIInstance) Then
If SendMessage (cTargetRecipient, _
cSourceRecipient, _
"'" & objContextItem.Value & "' FSMO role has been transfered " & _
FormatDateTime(Date, vbLongDate) & _
" at " & _
FormatDateTime(Time, vbLongTime), _
GenerateHTML (objWMIInstance.PreviousInstance, _
objWMIInstance.TargetInstance) , _
"") Then
WScript.Echo "Failed to send email to '" & cTargetRecipient & "' ..."
End If
End If
.
.
.
Wscript.Echo "END - OnObjectReady."
End Sub
]]>
</script>
</job>
</package>
