<%@ Language=VBScript %>
<% Option Explicit %>
<%
'-------------------------------------------------------------------------
' System Information Status Page
' Copyright (c) Microsoft Corporation. All rights reserved.
'-------------------------------------------------------------------------
%>
<!-- #include virtual="/admin/inc_framework.asp" -->
<%
'-------------------------------------------------------------------------
' Global Variables
'-------------------------------------------------------------------------
Dim rc
Dim page
Dim OSName
Dim OSVersion
Dim OSManufacturer
Dim OSSerialNumber
Dim SystemManufacturer
Dim SystemModel
Dim SystemType
Dim SystemProcessor
Dim SystemTotalMemory
Dim SystemBIOS
Dim SystemServiceTag
Dim DiskSpace
Dim NbDisks
Dim SOURCE_FILE
Const ENABLE_TRACING = TRUE
SOURCE_FILE = SA_GetScriptFileName()
'-------------------------------------------------------------------------
' Global Form Variables
'-------------------------------------------------------------------------
'-------------------------------------------------------------------------
' Local Variables
'-------------------------------------------------------------------------
Dim L_SIPAGE_TITLE
Dim L_SIOS_NAME
Dim L_SIOS_VERSION
Dim L_SIOS_MFCT
Dim L_SISYSTEM_MFCT
Dim L_SISYSTEM_MODEL
Dim L_SISYSTEM_TYPE
Dim L_SISYSTEM_PROC
Dim L_SISERVICE_TAG
Dim L_SIBIOS_VER
Dim L_SIPHYSICAL_MEMORY
Dim L_SIDISK_SPACE
Dim L_SIDISK_SPACE_VALUE
Dim L_SIMB
'error messages
Dim L_SIWMI_ERROR
L_SIPAGE_TITLE =GetLocString("sysinfomsg.dll","4088000A", "")
L_SIOS_NAME =GetLocString("sysinfomsg.dll","4088000B", "")
L_SIOS_VERSION =GetLocString("sysinfomsg.dll","4088000C", "")
L_SIOS_MFCT =GetLocString("sysinfomsg.dll","4088000D", "")
L_SISYSTEM_MFCT =GetLocString("sysinfomsg.dll","4088000E", "")
L_SISYSTEM_MODEL =GetLocString("sysinfomsg.dll","4088000F", "")
L_SISYSTEM_TYPE =GetLocString("sysinfomsg.dll","40880010", "")
L_SISYSTEM_PROC =GetLocString("sysinfomsg.dll","40880011", "")
L_SISERVICE_TAG =GetLocString("sysinfomsg.dll","40880012", "")
L_SIBIOS_VER =GetLocString("sysinfomsg.dll","40880013", "")
L_SIPHYSICAL_MEMORY =GetLocString("sysinfomsg.dll","40880014", "")
L_SIDISK_SPACE =GetLocString("sysinfomsg.dll","40880015", "")
L_SIWMI_ERROR =GetLocString("sysinfomsg.dll","C0880018", "")
'======================================================
' Entry point
'======================================================
'
' Create Page
rc = SA_CreatePage( L_SIPAGE_TITLE, "", PT_AREA, page )
'
' Show page
rc = SA_ShowPage( page )
Public Function OnClosePage(ByRef PageIn, ByRef Reserved)
OnClosePage = TRUE
End Function
'======================================================
' Web Framework Event Handlers
'======================================================
'---------------------------------------------------------------------
' Function: OnInitPage
'
' Synopsis: Called to signal first time processing for this page. Use this method
' to do first time initialization tasks.
'
' Returns: TRUE to indicate initialization was successful. FALSE to indicate
' errors. Returning FALSE will cause the page to be abandoned.
'
'---------------------------------------------------------------------
Public Function OnInitPage(ByRef PageIn, ByRef EventArg)
If ( ENABLE_TRACING ) Then
Call SA_TraceOut(SOURCE_FILE, "OnInitPage")
End If
OnInitPage = GetSystemInfo()
End Function
'---------------------------------------------------------------------
' Function: OnServePageletPage
'
' Synopsis: Called when the page needs to be served. Use this method to
' serve content.
'
' Returns: TRUE to indicate no problems occured. FALSE to indicate errors.
' Returning FALSE will cause the page to be abandoned.
'
'---------------------------------------------------------------------
Public Function OnServeAreaPage(ByRef PageIn, ByRef EventArg)
If ( ENABLE_TRACING ) Then
Call SA_TraceOut(SOURCE_FILE, "OnServePageletPage")
End If
%>
<script language="JavaScript" src="<%=m_VirtualRoot%>inc_global.js">
</script>
<script language="JavaScript">
function Init()
{
}
</script>
<table border="0" cellpadding="0" cellspacing="0" id="AutoNumber1" class="TasksBody">
<tr>
<td nowrap class="TasksBody"><%=L_SIOS_NAME%></td>
<td nowrap class="TasksBody"><i><%=OSName%></i></td>
</tr>
<tr>
<td nowrap class="TasksBody"><%=L_SIOS_VERSION%></td>
<td nowrap class="TasksBody"><i><%=OSVersion%></i></td>
</tr>
<tr>
<td nowrap class="TasksBody"><%=L_SIOS_MFCT%></td>
<td nowrap class="TasksBody"><i><%=OSManufacturer%></i></td>
</tr>
<tr>
<td nowrap class="TasksBody"><%=L_SISYSTEM_MFCT%></td>
<td nowrap class="TasksBody"><i><%=SystemManufacturer%></i></td>
</tr>
<tr>
<td nowrap class="TasksBody"><%=L_SISYSTEM_MODEL%></td>
<td nowrap class="TasksBody"><i><%=SystemModel%></i></td>
</tr>
<tr>
<td nowrap class="TasksBody"><%=L_SISYSTEM_TYPE%></td>
<td nowrap class="TasksBody"><i><%=SystemType%></i></td>
</tr>
<tr>
<td nowrap class="TasksBody"><%=L_SISYSTEM_PROC%></td>
<td nowrap class="TasksBody"><i><%=SystemProcessor%></i></td>
</tr>
<tr>
<td nowrap class="TasksBody"><%=L_SISERVICE_TAG%></td>
<td nowrap class="TasksBody"><i><%=SystemServiceTag%></i></td>
</tr>
<tr>
<td nowrap class="TasksBody"><%=L_SIBIOS_VER%></td>
<td nowrap class="TasksBody"><i><%=SystemBIOS%></i></td>
</tr>
<tr>
<td nowrap class="TasksBody"><%=L_SIPHYSICAL_MEMORY%></td>
<td nowrap class="TasksBody"><i><%=SystemTotalMemory%></i></td>
</tr>
<tr>
<td nowrap class="TasksBody"><%=L_SIDISK_SPACE%></td>
<td nowrap class="TasksBody"><i><%=DiskSpace%></i></td>
</tr>
</table>
<%
OnServeAreaPage = TRUE
End Function
'---------------------------------------------------------------------------
'
' Function: GetSystemInfo
'
' Synopsis:
'
' Arguments: [out]
'
'---------------------------------------------------------------------------
Function GetSystemInfo
Err.clear
On Error Resume Next
Dim objService
Dim objInstance
Dim objCollection
Dim arrStrings(1)
Dim strParam
Set objService = GetWMIConnection("")
Set objCollection = objService.InstancesOf ("Win32_OperatingSystem")
If Err.Number <> 0 Then
Call SA_ServeFailurePageEx(L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT)
End If
For each objInstance in objCollection
OSName = objInstance.Caption
OSVersion = objInstance.Version & " " & objInstance.CSDVersion & " build " & objInstance.BuildNumber
OSManufacturer = objInstance.Manufacturer
OSSerialNumber = objInstance.SerialNumber
Next
objInstance = nothing
objCollection = nothing
Set objCollection = objService.InstancesOf ("Win32_ComputerSystem")
If Err.Number <> 0 Then
Call SA_ServeFailurePage (L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT)
End If
For each objInstance in objCollection
SystemType= objInstance.SystemType
SystemModel = objInstance.Model
SystemManufacturer = objInstance.Manufacturer
SystemTotalMemory = objInstance.TotalPhysicalmemory
Next
arrStrings(0) = CStr(Round(SystemTotalMemory/1024/1024,0))
strParam = arrStrings
SystemTotalMemory = GetLocString("sysinfomsg.dll","40880016", strParam)
objInstance = nothing
objCollection = nothing
Set objCollection = objService.InstancesOf ("Win32_BIOS")
If Err.Number <> 0 Then
Call SA_ServeFailurePage (L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT)
End If
For each objInstance in objCollection
SystemBIOS= objInstance.Version
Next
objInstance = nothing
objCollection = nothing
Set objCollection = objService.InstancesOf ("Win32_SystemEnclosure")
If Err.Number <> 0 Then
Call SA_ServeFailurePage (L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT)
End If
For each objInstance in objCollection
SystemServiceTag= objInstance.SerialNumber
Next
objInstance = nothing
objCollection = nothing
Set objCollection = objService.InstancesOf ("Win32_processor")
If Err.Number <> 0 Then
Call SA_ServeFailurePage (L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT)
End If
For each objInstance in objCollection
SystemProcessor= objInstance.Description
Next
objInstance = nothing
objCollection = nothing
Set objCollection = objService.InstancesOf ("Win32_DiskDrive")
If Err.Number <> 0 Then
Call SA_ServeFailurePage (L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT)
End If
DiskSpace = 0
NbDisks = 0
For each objInstance in objCollection
DiskSpace = DiskSpace + objInstance.Size
NbDisks = NbDisks + 1
Next
arrStrings(0) = CStr(Round(DiskSpace/1024/1024/1024,0))
arrStrings(1) = CStr(NbDisks)
strParam = arrStrings
DiskSpace = GetLocString("sysinfomsg.dll","40880017", strParam)
objInstance = nothing
objCollection = nothing
GetSystemInfo = TRUE
End Function
%>