<HTML>
<HEAD>
<TITLE> WMI DEMO
</TITLE>
<SCRIPT LANGUAGE="VBSCRIPT">
Dim theEventsWindow
Dim MyMapiSession
' Initialize Globals
Sub window_onLoad()
Set MyMapiSession = CreateObject("MSMAPI.MAPISession")
MyMapiSession.SignOn
End Sub
Sub Sendmail ( Subject , Message )
'
' Send a mail message using mapi
'
Dim mapiMessages
Set mapiMessages = CreateObject("MSMAPI.MAPIMessages")
mapiMessages.SessionID = MyMapiSession.SessionID
mapiMessages.Compose
mapiMessages.RecipDisplayName = "demoacc"
mapiMessages.RecipAddress = "demoacc"
mapiMessages.AddressResolveUI = True
mapiMessages.ResolveName
mapiMessages.MsgSubject = Subject
mapiMessages.MsgNoteText = Message
mapiMessages.Send False
End Sub
Sub GetMachineInfo()
Sendmail "Machine Opened!", "The box of the machine outsoft9.dns.microsoft.com has been opened!"
End Sub
</SCRIPT>
</HEAD>
<BODY>
<BUTTON NAME="MachineInfo" ID="MachineInfo" onClick=GetMachineInfo>Get Data</BUTTON>
<TEXTAREA ID="EventsWindow" ROWS=5 COLS=55>
</TEXTAREA>
</BODY>
</HTML>