You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
58 lines
1.1 KiB
58 lines
1.1 KiB
<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>
|