windows-server-2003/enduser/sakit/sak/plugins/sysinfo/script/system_info.asp

<%@ 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

	
%>