一个简单的服务器探针（源码）共享

<%@ Page Language="vb" AutoEventWireup="false"  %>
<%@ Import Namespace="System.Runtime.InteropServices" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Globalization" %>
<%@ Import Namespace="Microsoft.Win32" %>
<%@ Import Namespace="Microsoft.VisualBasic.CompilerServices" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title></title>
<script runat="server">
     Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dd()
    End Sub
    Public Cpu_Count As String
    Public Cpu_Type As String
    Public Cpu_Level As String
    Public Cpu_OEMID As String
    Public Cpu_Pagesize As String
    Public Memory_OnUse As String
    Public Memory_Count As String
    Public Memory_CanUse As String
    Public Memory_J_Count As String
    Public Memory_J_Can As String
    Public Memory_Su As String
    Public Memory_Su_CanUse As String
    Public Shared UseMonery As String
    Public Shared Ser_area As String
    Public Shared Lj_Dir As String    Public Shared Function IE_Version() As String
        Dim key1 As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Internet Explorer\Version Vector")
        Return key1.GetValue("IE", ChrW(26410) & ChrW(30693) & ChrW(27983) & ChrW(35272) & ChrW(22120)).ToString
    End Function
    Public Shared Function MachineName() As String
        Return Environment.MachineName
    End Function
    Public Shared Function EnglishName() As String
        Return CStr(CultureInfo.InstalledUICulture.EnglishName())
    End Function
    Public Shared Function EnvironmentVersion() As String
        Return Environment.Version.Major.ToString + "." + Environment.Version.Minor.ToString + "." + Environment.Version.Build.ToString + "." + Environment.Version.Revision.ToString
    End Function
    Public Shared Function SysVS() As String
        Dim text2 As String
        Dim system1 As OperatingSystem = Environment.OSVersion
        Select Case system1.Platform
            Case PlatformID.Win32Windows
                Dim num1 As Integer = system1.Version.Minor
                If (num1 = 0) Then
                    Return "Microsoft Windows 95"
                End If
                Dim num4 As Integer = num1
                If (num4 <> 10) Then
                    If (num4 = 90) Then
                        Return "Microsoft Windows Me"
                    End If
                    Return text2
                End If
                If (StringType.StrCmp(system1.Version.Revision.ToString, "2222A", False) = 0) Then
                    Return "Microsoft Windows 98 Second Edition"
                End If
                Return "Windows 98"
            Case PlatformID.Win32NT
                Select Case system1.Version.Major
                    Case 3
                        text2 = "Microsoft Windows NT 3.51"
                        Exit Select
                    Case 4
                        text2 = "Microsoft Windows NT 4.0"
                        Exit Select
                    Case 5
                        If (system1.Version.Minor = 0) Then
                            text2 = "Microsoft Windows 2000"
                        Else
                            If (system1.Version.Minor = 1) Then
                                text2 = "Microsoft Windows XP"
                            Else
                                If (system1.Version.Minor = 2) Then
                                    text2 = "Microsoft Windows 2003"
                                End If
                            End If
                        End If
                        Exit Select
                End Select
                Exit Select
            Case Else
                Return text2
        End Select
        Return text2
    End Function
    Public Shared Function EnvironmentTickCount() As String
        Dim num As Double = (CType(Environment.TickCount, Double) / 3600000)
        Return num.ToString("N2") + " 小时"
    End Function
    Public Shared Function SystemRoot() As String
        Return CStr(Environment.ExpandEnvironmentVariables("%SystemRoot%"))
    End Function
    Public Shared Function ProgramFiles() As String
        Return CStr(Environment.ExpandEnvironmentVariables("%ProgramFiles%"))
    End Function
    Public Function dd()
        Dim memory_info2 As MEMORY_INFO
        Dim cpu_info2 As CPU_INFO
        'CPU数据
        cpu_info2 = New CPU_INFO
        Dim cpu_info1 As CPU_INFO = cpu_info2
        GetSystemInfo(cpu_info1)
        Cpu_Count = cpu_info1.f.ToString + " 颗"
        Cpu_Type = cpu_info1.g.ToString
        Cpu_Level = cpu_info1.i.ToString
        Cpu_OEMID = cpu_info1.a.ToString
        Cpu_Pagesize = cpu_info1.b.ToString
        '内存数据
        memory_info2 = New MEMORY_INFO
        Dim memory_info1 As MEMORY_INFO = memory_info2
        GlobalMemoryStatus(memory_info1)
        Memory_OnUse = (memory_info1.b.ToString & "%")
        Dim num As Double
        num = (CType(LongType.FromString(memory_info1.c.ToString), Double) / 1048576)
        Memory_Count = num.ToString("N2")
        num = (CType(LongType.FromString(memory_info1.d.ToString), Double) / 1048576)
        Memory_CanUse = num.ToString("N2")
        num = (CType(LongType.FromString(memory_info1.e.ToString), Double) / 1048576)
        Memory_J_Count = num.ToString("N2")
        num = (CType(LongType.FromString(memory_info1.f.ToString), Double) / 1048576)
        Memory_J_Can = num.ToString("N2")
        num = (CType(LongType.FromString(memory_info1.g.ToString), Double) / 1048576)
        Memory_Su = num.ToString("N2")
        num = (CType(LongType.FromString(memory_info1.h.ToString), Double) / 1048576)
        Memory_Su_CanUse = num.ToString("N2")        num = (CType(GC.GetTotalMemory(False), Double) / 1024)
        UseMonery = num.ToString("N2")        Lj_Dir = String.Join(" , ", Directory.GetLogicalDrives).Replace(StringType.FromChar(Path.DirectorySeparatorChar), " ")
    End Function
    <DllImport("kernel32")> _
    Public Shared Sub GetSystemInfo(ByRef cpuinfo As CPU_INFO)
    End Sub
    <DllImport("kernel32")> _
    Public Shared Sub GlobalMemoryStatus(ByRef meminfo As MEMORY_INFO)
    End Sub
    <StructLayout(LayoutKind.Sequential)> _
Public Structure CPU_INFO
        Public a As UInt32
        Public b As UInt32
        Public c As UInt32
        Public d As UInt32
        Public e As UInt32
        Public f As UInt32
        Public g As UInt32
        Public h As UInt32
        Public i As UInt32
        Public j As UInt32
    End Structure
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure MEMORY_INFO
        Public a As UInt32
        Public b As UInt32
        Public c As UInt32
        Public d As UInt32
        Public e As UInt32
        Public f As UInt32
        Public g As UInt32
        Public h As UInt32
    End Structure </script>

解决方案 »

  1.   

    <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
    <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
    <meta name="vs_defaultClientScript" content="JavaScript">
    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
    </HEAD>
    <body>
    <form id="Form1" method="post" runat="server">
    <P id="P1">
    服务器名称：<% response.write(MachineName())%><BR>
    域名：<% response.write(Request.ServerVariables.Item("SERVER_NAME"))%><BR>
    IP：<% response.write(Request.ServerVariables.Item("LOCAL_ADDR"))%><BR>
    端口：<% response.write(Request.ServerVariables.Item("SERVER_PORT"))%><BR>
    .NET Framework语言种类：<% response.write(EnglishName())%><BR>
    NET Framework 版本：<% response.write(EnvironmentVersion())%><BR>
    服务器时间：<%response.write(DateTime.Now)%><BR>
    操作系统：<%response.write(SysVS())%><BR>
    服务器IE浏览器版本：<% response.write(IE_Version())%><BR>
    服务器IIS版本：<%response.write(Request.ServerVariables.Item("Server_SoftWare"))%><BR>
    服务器上次启动到现在已运行：<%response.write(EnvironmentTickCount())%><BR>
    脚本超时：<%response.write(Server.ScriptTimeout.tostring)%><BR>
    虚拟目录绝对路径：<%response.write(Request.ServerVariables.Item("APPL_PHYSICAL_PATH"))%><BR>
    执行文件绝对路径：<%response.write(Request.ServerVariables.Item("PATH_TRANSLATED"))%><BR>
    服务器操作系统安装目录：<%response.write(SystemRoot())%><BR>
    服务器应用程序安装目录：<%response.write(ProgramFiles())%>
    <BR>
    CPU个数：<%response.write(Cpu_Count)%>
    <BR>
    CPU类型：<%response.write(Cpu_Type)%>
    <BR>
    CPU等级：<%response.write(Cpu_Level)%>
    <BR>
    CPU OEM ID：<%response.write(Cpu_OEMID)%>
    <BR>
    CPU页面大小：<%response.write(Cpu_Pagesize)%><BR>
    正在使用的内存：<%response.write(Memory_OnUse)%>
    &nbsp; MB
    <BR>
    物理内存共有：<%response.write(Memory_Count)%>
    &nbsp; MB
    <BR>
    可使用的物理内存有：<%response.write(Memory_CanUse)%>
    &nbsp; MB
    <BR>
    交换文件总大小为：<%response.write(Memory_J_Count)%>
    &nbsp; MB
    <BR>
    尚可交换文件大小为：<%response.write(Memory_J_Can)%>&nbsp; MB
    <BR>
    总虚拟内存有：<%response.write(Memory_Su)%>&nbsp; MB
    <BR>
    未用虚拟内存有：<%response.write(Memory_Su_CanUse)%>&nbsp; MB
    <BR>
    本站所使用内存：<%response.write(UseMonery)%>&nbsp; KB
    <BR>
    逻辑驱动器
    <%response.write(Lj_Dir)%>
    </P>
    </form>
    </body>
    </HTML>
      

  2.   

    发完了，忘了注释了.呵呵!需要的话mail给我  mailto:[email protected]