<?xml version="1.0"?>
<package>
    <job>
        <?job error="True" debug="True" ?>
        <script language="VBScript" src=".\Functions\TinyErrorHandler.vbs" />
        <object progid="WbemScripting.SWbemLocator" _
            id="objWMILocator" reference="true"/>
        <script language="VBscript">
        <![CDATA[
        Const cWMINameSpace = "root\MicrosoftExchangeV2"
' BEGIN CALLOUT A
        Const cUserID = ""
        Const cPassword = ""
        Const cComputerName = "VM10284346B.LissWare.Net"
        Const cAdministrativeNote = "This is my administrative note!"
' END CALLOUT A
        On Error Resume Next
		
        objWMILocator.Security_.AuthenticationLevel = _
            wbemAuthenticationLevelDefault
        objWMILocator.Security_.ImpersonationLevel = _
            wbemImpersonationLevelImpersonate
        Set objWMIServices = _
        objWMILocator.ConnectServer(cComputerName, _
            cWMINameSpace, cUserID, cPassword)
        Set objWMIInstance = _
            objWMIServices.Get _
            ("Exchange_Server.FQDN='" & cComputerName & "'")
        If Err.Number Then ErrorHandler (Err)

' BEGIN CALLOUT B
        WScript.Echo "Current Administrative Note is '" & _
            objWMIInstance.AdministrativeNote & "'."
' END CALLOUT B

' BEGIN CALLOUT C
        objWMIInstance.AdministrativeNote = cAdministrativeNote
        WScript.Echo "Updated Administrative Note is '" & _
            cAdministrativeNote & "'."
' END CALLOUT C

        objWMIInstance.Put_ (wbemChangeFlagUpdateOnly Or _
            wbemFlagReturnWhenComplete)
        If Err.Number Then ErrorHandler (Err)
        ]]>
        </script>
    </job>
</package>