110 likes | 218 Views
NTSMF Web-Based Reporting Techniques. Jim Quigley conEdison. Performance Reporting with the Microsoft Office Web Components. CMG’93 Sunday Workshops. Agenda. SasToOwc.htm Historical Produce charts from SAS WmiToOwc.htm Real-Time Produce charts from WMI. Office Web Components.
E N D
NTSMF Web-BasedReporting Techniques Jim Quigley conEdison
Performance Reportingwith the MicrosoftOffice Web Components
Agenda • SasToOwc.htm • Historical • Produce charts from SAS • WmiToOwc.htm • Real-Time • Produce charts from WMI
Office Web Components • ActiveX Objects • Ship with Microsoft Office 2000c:\Program Files\MicrosoftOffice\Office\MsOwc.dll • Spreadsheet - OWC.Spreadsheet • Chart - OWC.Chart • Pivot Table - OWC.PivotTable • DSC - OWC.DataSourceControl
SasToOwc.htm • Uses SAS OLE DB Provider • sas.LocalProvider • \SAS Institute\Shared Files\SAS OLE DB Data Providers\sasafbas.dll • Auto-installs with SAS version 8 • Allows direct SAS file access • Does not support SQL • Field label access is difficult from script
WmiToOwc.htm • Uses WMI scripting API • WMI - Windows Management Interface • WBEM compliant CIM implementation? • Complete systems management API • Including performance management • Uses High-Performance Provider • Windows 2000 only
WSH Script - WmiWss.vbs Server = InputBox("Enter the name of a server to query")Set Locator = CreateObject("WbemScripting.SWbemLocator")Set Service = Locator.ConnectServer(Server, "root\cimv2")Service.Security_.ImpersonationLevel = 3 'impersonationsql = "Select Name, WorkingSetSize From Win32_Process“Set ObjSet = Service.ExecQuery(sql, , 0)For Each i In ObjSet x = i.WorkingSetSize if isnull(x) then x = 0 Msg = Msg + i.Name + " = " + CStr(x) + vbCrLf NextMsgBox Msg