Leaked source code of windows server 2003
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.
|
|
<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>
|
