WMI/VBS/HTML 系统信息脚本

【问题标题】：WMI/VBS/HTML System Information ScriptWMI/VBS/HTML 系统信息脚本
【发布时间】：2010-11-15 23:21:50
【问题描述】：

这里的代码有问题；似乎无法弄清楚它出了什么问题。

所有其他变量在 HTML 输出中似乎都可以正常打印；但我收到一个与 cputype 变量有关的错误。

我收到以下错误

C:\Users\Methical\Desktop\sysinfo.vbs(235,1) Microsoft VBScript 运行时错误： 无效的过程调用或参数

我认为这与这里的这条线有关

fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>CPU</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & cputype & "</i></td></tr>"

如果我删除这一行；脚本编译并输出没有错误。

下面是完整代码

Dim strComputer, objWMIService, propValue, objItem
Dim strUserName, strPassword, colItems, SWBemlocator

' This section queries for the workstation to be scanned.
UserName = ""
Password = ""
strComputer = "127.1.1.1"
ImgDir = "C:\Scripts\images\"

'Sets up the connections and opjects to be used throughout the script.
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(,"root\CIMV2",strUserName,strPassword)

'This determines the current date and time of the PC being scanned.
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LocalTime", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem in colItems
    If objItem.Minute < 10 Then
        theMinutes = "0" & objItem.Minute
    Else
        theMinutes = objItem.Minute
    End If
    If objItem.Second < 10 Then
        theSeconds = "0" & objItem.Second
    Else
        theSeconds = objItem.Second
    End If
    DateTime = objItem.Month & "/" & objItem.Day & "/" & objItem.Year & " - " & objItem.Hour & ":" & theMinutes & ":" & theSeconds
Next

'Gets some ingomation about the Operating System including Service Pack level.
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
    WKID = objItem.CSName
    WKOS = objItem.Caption
    CSD = objItem.CSDVersion
    Architecture = objItem.OSArchitecture
    SysDir = objItem.SystemDirectory
    SysDrive = objItem.SystemDrive
    WinDir = objItem.WindowsDirectory
    ServicePack = objItem.ServicePackMajorVersion & "." & objItem.ServicePackMinorVersion
Next

'This section returns the Time Zone
Set colItems = objWMIService.ExecQuery("Select * from Win32_TimeZone")
For Each objItem in colItems
    Zone = objItem.Description
Next

'This section displays the Shadow Storage information
Set colItems = objWMIService.ExecQuery("Select * from Win32_ShadowStorage")
For Each objItem in colItems
    Allocated = int((objItem.AllocatedSpace/1024)/1024+1)
    UsedSpace = int((objItem.UsedSpace/1024)/1024+1)
    MaxSpace = int((objItem.MaxSpace/1024)/1024+1)
Next

'This section returns the InstallDate of the OS
Set objSWbemDateTime = _
  CreateObject("WbemScripting.SWbemDateTime")
Set colOperatingSystems = _
    objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem _
    in colOperatingSystems
    objSWbemDateTime.Value = _
        objOperatingSystem.InstallDate
    InstallDate = _
        objSWbemDateTime.GetVarDate(False)
Next

'This section returns the Video card and current resolution.
Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayConfiguration",,48)
For Each objItem in colItems
    VideoCard = objItem.DeviceName
    Resolution = objItem.PelsWidth & " x " & objItem.PelsHeight & " x " & objItem.BitsPerPel & " bits"
Next

'This section returns the Video card memory.
Set objWMIService = GetObject("winmgmts:root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_VideoController")
For Each objItem in colItems
    VideoMemory = objItem.AdapterRAM/1024/1024
Next

'This returns various system information including current logged on user, domain, memory, manufacture and model.
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
    UserName = objItem.UserName
    Domain = objItem.Domain
    TotalMemory = int((objItem.TotalPhysicalMemory/1024)/1024+1)
    Manufacturer = objItem.Manufacturer
    Model = objItem.Model
    SysType = objItem.SystemType
Next

'This determines the total hard drive space and free hard drive space.
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where Name='C:'",,48)
For Each objItem in colItems
    FreeHDSpace = Fix(((objItem.FreeSpace/1024)/1024)/1024)
    TotalHDSpace = Fix(((objItem.Size/1024)/1024)/1024)
Next

'This section returns the default printer and printer port.
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer where Default=True", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem in colItems
    Printer = objItem.Name
    PortName = objItem.PortName
Next

'This returns the CPU information.
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem in colItems
    CPUDesc = LTrim(objItem.Name)
Next


'// CPU Info
For each objCPU in GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2").InstancesOf("Win32_Processor")
                Select Case objCPU.Family
                    Case 2
                        cputype = "Unknown"
                    Case 11
                        cputype = "Pentium brand"
                    Case 12
                        cputype = "Pentium Pro"
                    Case 13
                        cputype = "Pentium II"
                    Case 14
                        cputype = "Pentium processor with MMX technology"
                    Case 15
                        cputype = "Celeron "
                    Case 16
                        cputype = "Pentium II Xeon"
                    Case 17
                        cputype = "Pentium III"
                    Case 28
                        cputype = "AMD Athlon Processor Family"
                    Case 29
                        cputype = "AMD Duron Processor"
                    Case 30
                        cputype = "AMD2900 Family"
                    Case 31
                        cputype = "K6-2+"
                    Case 130
                        cputype = "Itanium Processor"
                    Case 176
                        cputype = "Pentium III Xeon"
                    Case 177
                        cputype = "Pentium III Processor with Intel SpeedStep Technology"
                    Case 178
                        cputype = "Pentium 4"
                    Case 179
                        cputype = "Intel Xeon"
                    Case 181
                        cputype = "Intel Xeon processor MP"
                    Case 182
                        cputype = "AMD AthlonXP Family"
                    Case 183
                        cputype = "AMD AthlonMP Family"
                    Case 184
                        cputype = "Intel Itanium 2"
                    Case 185
                        cputype = "AMD Opteron Family"
                End Select
Next

'This returns the current uptime (time since last reboot) of the system.
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOS in colOperatingSystems
    dtmBootup = objOS.LastBootUpTime
    dtmLastBootupTime = WMIDateStringToDate(dtmBootup)
    dtmSystemUptime = DateDiff("h", dtmLastBootUpTime, Now)
    Uptime = dtmSystemUptime
Next
Function WMIDateStringToDate(dtmBootup)
    WMIDateStringToDate = CDate(Mid(dtmBootup, 5, 2) & "/" & Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) & " " & Mid (dtmBootup, 9, 2) & ":" & Mid(dtmBootup, 11, 

2) & ":" & Mid(dtmBootup,13, 2))
End Function

dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

' -- The heart of the create file script -----------------------
' -- Creates the file using the value of strFile on Line 11
' --------------------------------------------------------------
Set fileOutput = objFSO.CreateTextFile( "x.html", true )

'Set fileOutput = objExplorer.Document

'This is the code for the web page to be displayed.

fileOutput.WriteLine "<html>"
fileOutput.WriteLine "    <head>"
fileOutput.WriteLine "        <title>System Information for '" & WKID & "' </title>"
fileOutput.WriteLine "    </head>"
fileOutput.WriteLine "    <body bgcolor='#FFFFFF' text='#000000' link='#0000FF' vlink='000099' alink='#00FF00'>"
fileOutput.WriteLine "        <center>"
fileOutput.WriteLine "            <h1>System Information for " & WKID & "</h1>"
fileOutput.WriteLine "            <table border='0' cellspacing='1' cellpadding='1' width='95%'>"
fileOutput.WriteLine "                <tr><td background='" & ImgDir & "blue_spacer.gif'>"
fileOutput.WriteLine "                    <table border='0' cellspacing='0' cellpadding='0' width='100%'>"
fileOutput.WriteLine "                        <tr><td>"
fileOutput.WriteLine "                            <table border='0' cellspacing='0' cellpadding='0' width='100%'>"
fileOutput.WriteLine "                                <tr>"
fileOutput.WriteLine "                                    <td width='5%' align='left' valign='middle' background='" & ImgDir & "blue_spacer.gif'><img src='" & ImgDir & 

"write.gif'></td>"
fileOutput.WriteLine "                                    <td width='95%' align='left' valign='middle' background='" & ImgDir & "blue_spacer.gif'> <font 

color='#FFFFFF' size='5'>WKInfo - </font><font color='#FFFFFF' size='3'>General information on the Workstation.</font></td>"
fileOutput.WriteLine "                                </tr>"
fileOutput.WriteLine "                                <tr><td colspan='2' bgcolor='#FFFFFF'>"
fileOutput.WriteLine "                                    <TABLE width='100%' cellspacing='0' cellpadding='2' border='1' bordercolor='#c0c0c0' 

bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
    fileOutput.WriteLine"                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>Date and Time</h3></b></TD></TR>"
    fileOutput.WriteLine"                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Date/Time</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & DateTime & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>System Uptime</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & Uptime & " hours</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Time Zone</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & Zone & " </i></td></tr>"
    fileOutput.WriteLine"                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>General Computer 

Information</h3></b></TD></TR>"
    fileOutput.WriteLine"                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Manufacturer</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & Manufacturer & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Model</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & Model & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>System Based</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & SysType & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Operating System</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & WKOS & " " & CSD & " " & Architecture & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Operating System Install Date</TD><td width='70%' 

bgcolor=#f0f0f0 align=left><i>" & InstallDate & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>UserName</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & UserName & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Workstation Name</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & WKID & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Domain</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & Domain & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>System Drive</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & SysDrive & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>System Directory</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & SysDir & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Windows Directory</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & WinDir & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>ShadowStorage Allocated Space</TD><td width='70%' 

bgcolor=#f0f0f0 align=left><i>" & Allocated & " MB</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>ShadowStorage Used Space</TD><td width='70%' 

bgcolor=#f0f0f0 align=left><i>" & UsedSpace & " MB</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>ShadowStorage Max Space</TD><td width='70%' 

bgcolor=#f0f0f0 align=left><i>" & MaxSpace & " MB</i></td></tr>"
    fileOutput.WriteLine"                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>General Hardware 

Information</h3></b></TD></TR>"
    fileOutput.WriteLine"                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>CPU</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & cputype & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Memory</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & TotalMemory & " MB</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Total HDD Space</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & TotalHDSpace & " GB</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Free HDD Space</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & FreeHDSpace & " GB</i></td></tr>"
    fileOutput.WriteLine"                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>General Video Card 

Information</h3></b></TD></TR>"
    fileOutput.WriteLine"                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Video Card</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & VideoCard & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Resolution</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & Resolution & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Memory</TD><td width='70%' bgcolor=#f0f0f0 

align=left><i>" & VideoMemory & " MB</i></td></tr>"
'This section lists all the current services and their status.
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>Current Service 

Information</h3></b></TD></TR>"
fileOutput.WriteLine "                                        <tr><td colspan='2' bgcolor='#f0f0f0'>"
fileOutput.WriteLine "                                            <TABLE width='100%' cellspacing='0' cellpadding='2' border='1' bordercolor='#c0c0c0' 

bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
fileOutput.WriteLine "                                                <TR><TD width='70%' align='center' bgcolor='#e0e0e0'><b>Service Name</b></td><TD width='30%' 

align='center' bgcolor='#e0e0e0'><b>Service State</b></td><tr>"
Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service")
For Each objService in colRunningServices
fileOutput.WriteLine "                                            <TR><TD align='left' bgcolor='#f0f0f0'>" & objService.DisplayName & "</TD><td bgcolor=#f0f0f0 

align=center><i>" & objService.State & "</i></td></tr>"
    wscript.echo  "                                            <TR><TD align='left' bgcolor='#f0f0f0'>" & objService.DisplayName & "</TD><td bgcolor=#f0f0f0 

align=center><i>" & objService.State & "</i></td></tr>"
Next
fileOutput.WriteLine "                                            </table>"
fileOutput.WriteLine "                                        </td></tr>"
'This section lists all the current running processes and some information.
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>Current Process 

Information</h3></b></TD></TR>"
fileOutput.WriteLine "                                        <tr><td colspan='2' bgcolor='#f0f0f0'>"
fileOutput.WriteLine "                                            <TABLE width='100%' cellspacing='0' cellpadding='2' border='1' bordercolor='#c0c0c0' 

bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
fileOutput.WriteLine "                                                <TR><TD width='10%' align='center' bgcolor='#e0e0e0'><b>PID</b></td><TD width='35%' 

align='center' bgcolor='#e0e0e0'><b>Process Name</b></td><TD width='40%' align='center' bgcolor='#e0e0e0'><b>Owner</b></td><TD width='15%' align='center' 

bgcolor='#e0e0e0'><b>Memory</b></td></tr>"
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess in colProcessList
colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
fileOutput.WriteLine "                                                <TR><TD align='center' bgcolor='#f0f0f0'>" & objProcess.Handle & "</td><TD align='center' 

bgcolor='#f0f0f0'>" & objProcess.Name & "</td><TD align='center' bgcolor='#f0f0f0'>" & strUserDomain & "\" & strNameOfUser & "</td><TD align='center' 

bgcolor='#f0f0f0'>" & objProcess.WorkingSetSize/1024 & " kb</td><tr>"
Next
fileOutput.WriteLine "                                            </table>"
fileOutput.WriteLine "                                        </td></tr>"
'This section lists all the currently installed software on the machine.
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><i>Installed Software</i></b></TD></TR>"
fileOutput.WriteLine "                                        <tr><td colspan='2' bgcolor='#f0f0f0'>"
Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
For Each objSoftware in colSoftware
    fileOutput.WriteLine"                                            <TABLE width='100%' cellspacing='0' cellpadding='2' border='1' bordercolor='#c0c0c0' 

bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
    fileOutput.WriteLine"                                                <tr><td width=30% align=center bgcolor='#e0e0e0'><b>Name</b></td><td width=30% align=center 

bgcolor='#e0e0e0'><b>Vendor</b></td><td width=30% align=center bgcolor='#e0e0e0'><b>Version</b></td></tr>"
    fileOutput.WriteLine"                                                <tr><td align=center bgcolor=#f0f0f0>" & objSoftware.Name & "</td><td align=center 

bgcolor=#f0f0f0>" & objSoftware.Vendor & "</td><td align=center bgcolor=#f0f0f0>" & objSoftware.Version & "</td></tr>"
    fileOutput.WriteLine"                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
    fileOutput.WriteLine"                                            </table>"
Next
fileOutput.WriteLine "                                        </td></tr>"
fileOutput.WriteLine "                                    </table>"
fileOutput.WriteLine "                                </td></tr>"
fileOutput.WriteLine "                            </table>"
fileOutput.WriteLine "                        </td></tr>"
fileOutput.WriteLine "                    </table>"
fileOutput.WriteLine "                </td></tr>"
fileOutput.WriteLine "            </table>"
fileOutput.WriteLine "            <p><small></small></p>"
fileOutput.WriteLine "        </center>"
fileOutput.WriteLine "    </body>"
fileOutput.WriteLine "<html>"
fileOutput.close
WScript.Quit

【问题讨论】：

    标签： html scripting vbscript wmi


    【解决方案1】：

    cputype 超出了您尝试将其写入 html 的范围。它首先在 select case 语句中使用，因此它超出了该 select 语句的范围。

    良好的做法是显式声明所有变量并使用 option explicit 和 option strict 启动脚本以避免这种情况。

    【讨论】：

    • 为您的意见干杯大卫。我知道.vbs，但不太了解。我从网上找到的几个来源汇总了这些信息；但无法显示 cputype 变量。我试过你说的；并将选项显式放在顶部，然后使用 'dim' 声明所有变量。仍然得到一个应该显示 cputype 的空白字段..
    • 好的。您是否在文件开头声明了变量？我还有一个建议。在“选择案例”的末尾放入一个案例其他并将变量设置为明显的变量，例如“我没想到这个”这样，如果在任何其他案例语句中都不匹配，你，这样会抓住它。
    【解决方案2】：

    道德的，

    我查看了您的脚本并进行了更新。

    原始脚本中的 tm（商标）似乎存在问题。我冒昧地更新了脚本以使其正常工作..

        Option Explicit
Dim strComputer, objWMIService, propValue, objItem
Dim strUserName, strPassword, colItems, SWBemlocator
Dim ImgDir, DateTime, WKID, WKOS, CSD, Architecture, SysDir, SysDrive, WinDir, ServicePack, Zone
Dim Allocated, UsedSpace, MaxSpace, objSWbemDateTime, colOperatingSystems, InstallDate, objOperatingSystem
Dim VideoCard, Resolution, VideoMemory, UserName, Domain, TotalMemory, Manufacturer, Model, SysType
Dim FreeHDSpace, TotalHDSpace, Printer, PortName, CPUDesc, cputype, objOS
Dim dtmBootup, dtmLastBootupTime, dtmSystemUptime, Uptime, fileOutput
Dim objService, colRunningServices, objProcess, colProcessList, objSoftware, colSoftware, strNameOfUser, strUserDomain
Dim colProperties, PercentFree

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

' This section queries for the workstation to be scanned.
strUserName = ""
strPassword = ""
strComputer = "127.0.0.1"
ImgDir = "C:\Scripts\images\"

'Sets up the connections and opjects to be used throughout the script.
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(, "root\CIMV2", strUserName, strPassword)

'This determines the current date and time of the PC being scanned.
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LocalTime", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
 DateTime = objItem.Month & "/" & objItem.Day & "/" & objItem.Year & " - " & Right(100 + objItem.Hour, 2) & ":" & Right(100 + objItem.Minute, 2) & ":" & Right(100 + objItem.Second, 2)
Next

'Gets some ingomation about the Operating System including Service Pack level.
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",, 48)
For Each objItem In colItems
 WKID = objItem.CSName
 WKOS = objItem.Caption
 CSD = objItem.CSDVersion
 'Architecture = objItem.OSArchitecture
 SysDir = objItem.SystemDirectory
 SysDrive = objItem.SystemDrive
 WinDir = objItem.WindowsDirectory
 ServicePack = objItem.ServicePackMajorVersion & "." & objItem.ServicePackMinorVersion
Next

'This section returns the Time Zone
Set colItems = objWMIService.ExecQuery("Select * from Win32_TimeZone")
For Each objItem In colItems
 Zone = objItem.Description
Next

'This section displays the Shadow Storage information
'Set colItems = objWMIService.ExecQuery("Select * from Win32_ShadowStorage")
'For Each objItem In colItems
'    Allocated = Int((objItem.AllocatedSpace/1024)/1024+1)
'   UsedSpace = Int((objItem.UsedSpace/1024)/1024+1)
'    MaxSpace = Int((objItem.MaxSpace/1024)/1024+1)
'Next

'This section returns the InstallDate of the OS
Set objSWbemDateTime = _
CreateObject("WbemScripting.SWbemDateTime")
Set colOperatingSystems = _
objWMIService.ExecQuery _
( "Select * from Win32_OperatingSystem" )
For Each objOperatingSystem _
 In colOperatingSystems
 objSWbemDateTime.Value = _
 objOperatingSystem.InstallDate
 InstallDate = _
 objSWbemDateTime.GetVarDate(False)
Next

'This section returns the Video card and current resolution.
Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayConfiguration",, 48)
For Each objItem In colItems
 VideoCard = objItem.DeviceName
 Resolution = objItem.PelsWidth & " x " & objItem.PelsHeight & " x " & objItem.BitsPerPel & " bits"
Next

'This section returns the Video card memory.
Set objWMIService = GetObject("winmgmts:root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController")
For Each objItem In colItems
 VideoMemory = objItem.AdapterRAM / 1024 / 1024
Next

'This returns various system information including current logged on user, domain, memory, manufacture and model.
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",, 48)
For Each objItem In colItems
 UserName = objItem.UserName
 Domain = objItem.Domain
 TotalMemory = Int((objItem.TotalPhysicalMemory / 1024) / 1024 + 1)
 Manufacturer = objItem.Manufacturer
 Model = objItem.Model
 SysType = objItem.SystemType
Next

'This determines the total hard drive space and free hard drive space.
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where Name='C:'",, 48)
For Each objItem In colItems
 FreeHDSpace = Fix(((objItem.FreeSpace / 1024) / 1024) / 1024)
 TotalHDSpace = Fix(((objItem.Size / 1024) / 1024) / 1024)
Next

'This section returns the default printer and printer port.
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer where Default=True", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
 Printer = objItem.Name
 PortName = objItem.PortName
Next

'// CPU Info
'This returns the CPU information.
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
 CPUDesc = LTrim(objItem.Name)
 Select Case objItem.Family
  Case 2
   cputype = "Unknown"
  Case 11
   cputype = "Pentium brand"
  Case 12
   cputype = "Pentium Pro"
  Case 13
   cputype = "Pentium II"
  Case 14
   cputype = "Pentium processor with MMX technology"
  Case 15
   cputype = "Celeron "
  Case 16
   cputype = "Pentium II Xeon"
  Case 17
   cputype = "Pentium III"
  Case 28
   cputype = "AMD Athlon Processor Family"
  Case 29
   cputype = "AMD Duron Processor"
  Case 30
   cputype = "AMD2900 Family"
  Case 31
   cputype = "K6-2+"
  Case 130
   cputype = "Itanium Processor"
  Case 176
   cputype = "Pentium III Xeon"
  Case 177
   cputype = "Pentium III Processor with Intel SpeedStep Technology"
  Case 178
   cputype = "Pentium 4"
  Case 179
   cputype = "Intel Xeon"
  Case 181
   cputype = "Intel Xeon processor MP"
  Case 182
   cputype = "AMD AthlonXP Family"
  Case 183
   cputype = "AMD AthlonMP Family"
  Case 184
   cputype = "Intel Itanium 2"
  Case 185
   cputype = "AMD Opteron™ Family"
  Case Else
   cputype = "CPU Unidentified"
 End Select
Next

'This returns the current uptime (time since last reboot) of the system.
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS In colOperatingSystems
 dtmBootup = objOS.LastBootUpTime
 dtmLastBootupTime = WMIDateStringToDate(dtmBootup)
 dtmSystemUptime = DateDiff("h", dtmLastBootUpTime, Now)
 Uptime = dtmSystemUptime
Next
Function WMIDateStringToDate(dtmBootup)
 WMIDateStringToDate = CDate(Mid(dtmBootup, 5, 2) & "/" & Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) & " " & Mid(dtmBootup, 9, 2) & ":" & Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup, 13, 2))
End Function

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

' -- The heart of the create file script -----------------------
' -- Creates the file using the value of strFile on Line 11
' --------------------------------------------------------------
Set fileOutput = objFSO.CreateTextFile("C:\Scripts\x.html", True)

'Set fileOutput = objExplorer.Document

'This is the code for the web page to be displayed.

fileOutput.WriteLine "<html>"
fileOutput.WriteLine "    <head>"
fileOutput.WriteLine "        <title>System Information for '" & WKID & "' </title>"
fileOutput.WriteLine "    </head>"
fileOutput.WriteLine "    <body bgcolor='#FFFFFF' text='#000000' link='#0000FF' vlink='000099' alink='#00FF00'>"
fileOutput.WriteLine "        <center>"
fileOutput.WriteLine "            <h1>System Information for " & WKID & "</h1>"
fileOutput.WriteLine "            <table border='0' cellspacing='1' cellpadding='1' width='95%'>"
fileOutput.WriteLine "                <tr><td background='" & ImgDir & "blue_spacer.gif'>"
fileOutput.WriteLine "                    <table border='0' cellspacing='0' cellpadding='0' width='100%'>"
fileOutput.WriteLine "                        <tr><td>"
fileOutput.WriteLine "                            <table border='0' cellspacing='0' cellpadding='0' width='100%'>"
fileOutput.WriteLine "                                <tr>"
fileOutput.WriteLine "                                    <td width='5%' align='left' valign='middle' background='" & ImgDir & "blue_spacer.gif'><img src='" & ImgDir & "write.gif'></td>"
fileOutput.WriteLine "                                    <td width='95%' align='left' valign='middle' background='" & ImgDir & "blue_spacer.gif'> <font color='#FFFFFF' size='5'>WKInfo - </font><font color='#FFFFFF' size='3'>General information on the Workstation.</font></td>"
fileOutput.WriteLine "                                </tr>"
fileOutput.WriteLine "                                <tr><td colspan='2' bgcolor='#FFFFFF'>"
fileOutput.WriteLine "                                    <TABLE width='100%' cellspacing='0' cellpadding='2' border='1' bordercolor='#c0c0c0' bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>Date and Time</h3></b></TD></TR>"
fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Date/Time</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & DateTime & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>System Uptime</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & Uptime & " hours</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Time Zone</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & Zone & " </i></td></tr>"
fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>General Computer Information</h3></b></TD></TR>"
fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Manufacturer</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & Manufacturer & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Model</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & Model & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>System Based</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & SysType & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Operating System</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & WKOS & " " & CSD & " " & Architecture & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Operating System Install Date</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & InstallDate & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>UserName</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & UserName & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Workstation Name</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & WKID & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Domain</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & Domain & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>System Drive</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & SysDrive & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>System Directory</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & SysDir & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Windows Directory</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & WinDir & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>ShadowStorage Allocated Space</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & Allocated & " MB</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>ShadowStorage Used Space</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & UsedSpace & " MB</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>ShadowStorage Max Space</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & MaxSpace & " MB</i></td></tr>"
fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>General Hardware Information</h3></b></TD></TR>"
fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>CPU</td><td width='70%' bgcolor=#f0f0f0 align = Left > <i>" & CPUDesc & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>System Memory</td><td width='70%' bgcolor=#f0f0f0 align = Left > <i>" & TotalMemory & " MB </i></td></tr>"
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType = 3",, 48)
For Each objItem In colItems
 FreeHDSpace = "" & objItem.Name & " Free Space: " & Fix(((objItem.FreeSpace / 1024) / 1024) / 1024)
 TotalHDSpace = "" & objItem.Name & " Total Space: " & Fix(((objItem.Size / 1024) / 1024) / 1024)
 PerCentFree = "" & objItem.Name & " Percent Free Space: " & 100 * FormatNumber(Fix(((objItem.FreeSpace / 1024) / 1024) / 1024) / Fix(((objItem.Size / 1024) / 1024) / 1024), 2)
 fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Total HDD Space</td><td width='70%' bgcolor=#f0f0f0 align = Left > <i>" & TotalHDSpace & " GB </i></td></tr>"
 fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Free HDD Space</td><td width='70%' bgcolor=#f0f0f0 align = Left > <i>" & FreeHDSpace & " GB </i></td></tr>"
 fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Percent Free HDD Space</td><td width='70%' bgcolor=#f0f0f0 align = Left > <i>" & PerCentFree & "%</i></td></tr>"
Next
fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>General Video Card Information</h3></b></TD></TR>"
fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Video Card</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & VideoCard & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Video Resolution</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & Resolution & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD width='30%' align='left' bgcolor='#e0e0e0'>Video Memory</TD><td width='70%' bgcolor=#f0f0f0 align=Left><i>" & VideoMemory & " MB</i></td></tr>"
'This section lists all the current services and their status.
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>Current Service Information</h3></b></TD></TR>"
fileOutput.WriteLine "                                        <tr><td colspan='2' bgcolor='#f0f0f0'>"
fileOutput.WriteLine "                                            <TABLE width='100%' cellspacing='0' cellpadding='2' border='1' bordercolor='#c0c0c0' bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
fileOutput.WriteLine "                                                <TR><TD width='70%' align='center' bgcolor='#e0e0e0'><b>Service Name</b></td><TD width='30%' align='center' bgcolor='#e0e0e0'><b>Service State</b></td><tr>"
Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service")
For Each objService In colRunningServices
 fileOutput.WriteLine "                                            <TR><TD align='left' bgcolor='#f0f0f0'>" & objService.DisplayName & "</TD><td bgcolor=#f0f0f0 align=center><i>" & objService.State & "</i></td></tr>"
 'WScript.echo  "                                            <TR><TD align='left' bgcolor='#f0f0f0'>" & objService.DisplayName & "</TD><td bgcolor=#f0f0f0 align=center><i>" & objService.State & "</i></td></tr>"
Next
fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
fileOutput.WriteLine "                                            </table>"
fileOutput.WriteLine "                                        </td></tr>"
'This section lists all the current running processes and some information.
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>Current Process Information</h3></b></TD></TR>"
fileOutput.WriteLine "                                        <tr><td colspan='2' bgcolor='#f0f0f0'>"
fileOutput.WriteLine "                                            <TABLE width='100%' cellspacing='0' cellpadding='2' border='1' bordercolor='#c0c0c0' bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
fileOutput.WriteLine "                                                <TR><TD width='10%' align='center' bgcolor='#e0e0e0'><b>PID</b></td><TD width='35%' align='center' bgcolor='#e0e0e0'><b>Process Name</b></td><TD width='40%' align='center' bgcolor='#e0e0e0'><b>Process Owner</b></td><TD width='15%' align='center' bgcolor='#e0e0e0'><b>Memory Used</b></td></tr>"
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess In colProcessList
 colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
 fileOutput.WriteLine "                                                <TR><TD align='center' bgcolor='#f0f0f0'>" & objProcess.Handle & "</td><TD align='center' bgcolor='#f0f0f0'>" & objProcess.Name & "</td><TD align='center' bgcolor='#f0f0f0'>" & strUserDomain & "\" & strNameOfUser & "</td><TD align='center' bgcolor='#f0f0f0'>" & objProcess.WorkingSetSize/1024 & " kb</td><tr>"
 'fileOutput.WriteLine "                                                <TR><TD align='center' bgcolor='#f0f0f0'>" & objProcess.Handle & "</td><TD align='center' bgcolor='#f0f0f0'>" & objProcess.Name & "</td><TD align='center' bgcolor='#f0f0f0'></td><TD align='center' bgcolor='#f0f0f0'>" & objProcess.WorkingSetSize / 1024 & " kb</td><tr>"
Next
fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=4></td></tr>"
fileOutput.WriteLine "                                            </table>"
fileOutput.WriteLine "                                        </td></tr>"
'This section lists all the currently installed software on the machine.
fileOutput.WriteLine "                                        <TR><TD align='center' bgcolor='#d0d0d0' colspan='2'><b><i>Installed Software</i></b></TD></TR>"
fileOutput.WriteLine "                                        <tr><td colspan='2' bgcolor='#f0f0f0'>"
fileOutput.WriteLine "                                            <TABLE width='100%' cellspacing='0' cellpadding='2' border='1' bordercolor='#c0c0c0' bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
fileOutput.WriteLine "                                                <tr><td width=30% align=center bgcolor='#e0e0e0'><b>Name</b></td><td width=30% align=center bgcolor='#e0e0e0'><b>Vendor</b></td><td width=30% align=center bgcolor='#e0e0e0'><b>Version</b></td></tr>"
Set colSoftware = objWMIService.ExecQuery("Select * from Win32_Product")
For Each objSoftware In colSoftware
 fileOutput.WriteLine "                                                <tr><td align=center bgcolor=#f0f0f0>" & objSoftware.Name & "</td><td align=center bgcolor=#f0f0f0>" & objSoftware.Vendor & "</td><td align=center bgcolor=#f0f0f0>" & objSoftware.Version & "</td></tr>"
Next
 fileOutput.WriteLine "                                                <tr height=2><td height=10 align=center bgcolor=midnightblue colspan=3></td></tr>"
 fileOutput.WriteLine "                                            </table>"
fileOutput.WriteLine "                                        </td></tr>"
fileOutput.WriteLine "                                    </table>"
fileOutput.WriteLine "                                </td></tr>"
fileOutput.WriteLine "                            </table>"
fileOutput.WriteLine "                        </td></tr>"
fileOutput.WriteLine "                    </table>"
fileOutput.WriteLine "                </td></tr>"
fileOutput.WriteLine "            </table>"
fileOutput.WriteLine "            <p><small></small></p>"
fileOutput.WriteLine "        </center>"
fileOutput.WriteLine "    </body>"
fileOutput.WriteLine "<html>"
fileOutput.close
WScript.Quit

    【讨论】：

      【解决方案3】：

      我试过了；仍然没有工作。声明它@开始，添加Case Else@Select Case结构的结束..

      Dim strComputer, objWMIService, propValue, objItem
Dim strUserName, strPassword, colItems, SWBemlocator
Dim cputype

' This section queries for the workstation to be scanned.
UserName = ""
Password = ""
strComputer = "127.1.1.1"
ImgDir = "C:\Scripts\images\"

'Sets up the connections and opjects to be used throughout the script.
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer

(,"root\CIMV2",strUserName,strPassword)

'This determines the current date and time of the PC being scanned.
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LocalTime", 

"WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem in colItems
    If objItem.Minute < 10 Then
        theMinutes = "0" & objItem.Minute
    Else
        theMinutes = objItem.Minute
    End If
    If objItem.Second < 10 Then
        theSeconds = "0" & objItem.Second
    Else
        theSeconds = objItem.Second
    End If
    DateTime = objItem.Month & "/" & objItem.Day & "/" & objItem.Year & " 

- " & objItem.Hour & ":" & theMinutes & ":" & theSeconds
Next

'Gets some ingomation about the Operating System including Service Pack 

level.
Set colItems = objWMIService.ExecQuery("Select * from 

Win32_OperatingSystem",,48)
For Each objItem in colItems
    WKID = objItem.CSName
    WKOS = objItem.Caption
    CSD = objItem.CSDVersion
    Architecture = objItem.OSArchitecture
    SysDir = objItem.SystemDirectory
    SysDrive = objItem.SystemDrive
    WinDir = objItem.WindowsDirectory
    ServicePack = objItem.ServicePackMajorVersion & "." & 

objItem.ServicePackMinorVersion
Next

'This section returns the Time Zone
Set colItems = objWMIService.ExecQuery("Select * from Win32_TimeZone")
For Each objItem in colItems
    Zone = objItem.Description
Next

'This section displays the Shadow Storage information
Set colItems = objWMIService.ExecQuery("Select * from 

Win32_ShadowStorage")
For Each objItem in colItems
    Allocated = int((objItem.AllocatedSpace/1024)/1024+1)
    UsedSpace = int((objItem.UsedSpace/1024)/1024+1)
    MaxSpace = int((objItem.MaxSpace/1024)/1024+1)
Next

'This section returns the InstallDate of the OS
Set objSWbemDateTime = _
  CreateObject("WbemScripting.SWbemDateTime")
Set colOperatingSystems = _
    objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem _
    in colOperatingSystems
    objSWbemDateTime.Value = _
        objOperatingSystem.InstallDate
    InstallDate = _
        objSWbemDateTime.GetVarDate(False)
Next

'This section returns the Video card and current resolution.
Set colItems = objWMIService.ExecQuery("Select * from 

Win32_DisplayConfiguration",,48)
For Each objItem in colItems
    VideoCard = objItem.DeviceName
    Resolution = objItem.PelsWidth & " x " & objItem.PelsHeight & " x " & 

objItem.BitsPerPel & " bits"
Next

'This section returns the Video card memory.
Set objWMIService = GetObject("winmgmts:root\cimv2")
Set colItems = objWMIService.ExecQuery ("Select * from 

Win32_VideoController")
For Each objItem in colItems
    VideoMemory = objItem.AdapterRAM/1024/1024
Next

'This returns various system information including current logged on user, 

domain, memory, manufacture and model.
Set colItems = objWMIService.ExecQuery("Select * from 

Win32_ComputerSystem",,48)
For Each objItem in colItems
    UserName = objItem.UserName
    Domain = objItem.Domain
    TotalMemory = int((objItem.TotalPhysicalMemory/1024)/1024+1)
    Manufacturer = objItem.Manufacturer
    Model = objItem.Model
    SysType = objItem.SystemType
Next

'This determines the total hard drive space and free hard drive space.
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk 

Where Name='C:'",,48)
For Each objItem in colItems
    FreeHDSpace = Fix(((objItem.FreeSpace/1024)/1024)/1024)
    TotalHDSpace = Fix(((objItem.Size/1024)/1024)/1024)
Next

'This section returns the default printer and printer port.
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer where 

Default=True", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem in colItems
    Printer = objItem.Name
    PortName = objItem.PortName
Next

'This returns the CPU information.
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor", 

"WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem in colItems
    CPUDesc = LTrim(objItem.Name)
Next


'// CPU Info
For each objCPU in GetObject("winmgmts:{impersonationLevel=impersonate}\\" 

& strComputer & "\root\cimv2").InstancesOf("Win32_Processor")
                        Select Case objCPU.Family
                                Case 2
                                        cputype = "Unknown"
                                Case 11
                                        cputype = "Pentium brand"
                                Case 12
                                        cputype = "Pentium Pro"
                                Case 13
                                        cputype = "Pentium II"
                                Case 14
                                        cputype = "Pentium processor with 

MMX technology"
                                Case 15
                                        cputype = "Celeron "
                                Case 16
                                        cputype = "Pentium II Xeon"
                                Case 17
                                        cputype = "Pentium III"
                                Case 28
                                        cputype = "AMD Athlon Processor 

Family"
                                Case 29
                                        cputype = "AMD Duron Processor"
                                Case 30
                                        cputype = "AMD2900 Family"
                                Case 31
                                        cputype = "K6-2+"
                                Case 130
                                        cputype = "Itanium Processor"
                                Case 176
                                        cputype = "Pentium III Xeon"
                                Case 177
                                        cputype = "Pentium III Processor 

with Intel SpeedStep Technology"
                                Case 178
                                        cputype = "Pentium 4"
                                Case 179
                                        cputype = "Intel Xeon"
                                Case 181
                                        cputype = "Intel Xeon processor 

MP"
                                Case 182
                                        cputype = "AMD AthlonXP Family"
                                Case 183
                                        cputype = "AMD AthlonMP Family"
                                Case 184
                                        cputype = "Intel Itanium 2"
                                Case 185
                                        cputype = "AMD Opteron Family"
                Case Else
                    cputype = "CPU Unidentified"
                        End Select
Next

'This returns the current uptime (time since last reboot) of the system.
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from 

Win32_OperatingSystem")
For Each objOS in colOperatingSystems
    dtmBootup = objOS.LastBootUpTime
    dtmLastBootupTime = WMIDateStringToDate(dtmBootup)
    dtmSystemUptime = DateDiff("h", dtmLastBootUpTime, Now)
    Uptime = dtmSystemUptime
Next
Function WMIDateStringToDate(dtmBootup)
    WMIDateStringToDate = CDate(Mid(dtmBootup, 5, 2) & "/" & Mid

(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) & " " & Mid (dtmBootup, 9, 2) 

& ":" & Mid(dtmBootup, 11, 

2) & ":" & Mid(dtmBootup,13, 2))
End Function

dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

' -- The heart of the create file script -----------------------
' -- Creates the file using the value of strFile on Line 11
' --------------------------------------------------------------
Set fileOutput = objFSO.CreateTextFile( "x.html", true )

'Set fileOutput = objExplorer.Document

'This is the code for the web page to be displayed.

fileOutput.WriteLine "<html>"
fileOutput.WriteLine "    <head>"
fileOutput.WriteLine "        <title>System Information for '" & WKID & "' 

</title>"
fileOutput.WriteLine "    </head>"
fileOutput.WriteLine "    <body bgcolor='#FFFFFF' text='#000000' 

link='#0000FF' vlink='000099' alink='#00FF00'>"
fileOutput.WriteLine "        <center>"
fileOutput.WriteLine "            <h1>System Information for " & WKID & 

"</h1>"
fileOutput.WriteLine "            <table border='0' cellspacing='1' 

cellpadding='1' width='95%'>"
fileOutput.WriteLine "                <tr><td background='" & ImgDir & 

"blue_spacer.gif'>"
fileOutput.WriteLine "                    <table border='0' 

cellspacing='0' cellpadding='0' width='100%'>"
fileOutput.WriteLine "                        <tr><td>"
fileOutput.WriteLine "                            <table border='0' 

cellspacing='0' cellpadding='0' width='100%'>"
fileOutput.WriteLine "                                <tr>"
fileOutput.WriteLine "                                    <td width='5%' 

align='left' valign='middle' background='" & ImgDir & 

"blue_spacer.gif'><img src='" & ImgDir & 

"write.gif'></td>"
fileOutput.WriteLine "                                    <td width='95%' 

align='left' valign='middle' background='" & ImgDir & "blue_spacer.gif'> 

<font 

color='#FFFFFF' size='5'>WKInfo - </font><font color='#FFFFFF' 

size='3'>General information on the Workstation.</font></td>"
fileOutput.WriteLine "                                </tr>"
fileOutput.WriteLine "                                <tr><td colspan='2' 

bgcolor='#FFFFFF'>"
fileOutput.WriteLine "                                    <TABLE 

width='100%' cellspacing='0' cellpadding='2' border='1' 

bordercolor='#c0c0c0' 

bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
    fileOutput.WriteLine"                                                

<tr height=2><td height=10 align=center bgcolor=midnightblue 

colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>Date and 

Time</h3></b></TD></TR>"
    fileOutput.WriteLine"                                                

<tr height=2><td height=10 align=center bgcolor=midnightblue 

colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Date/Time</TD><td width='70%' 

bgcolor=#f0f0f0 

align=left><i>" & DateTime & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>System Uptime</TD><td 

width='70%' bgcolor=#f0f0f0 

align=left><i>" & Uptime & " hours</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Time Zone</TD><td width='70%' 

bgcolor=#f0f0f0 

align=left><i>" & Zone & " </i></td></tr>"
    fileOutput.WriteLine"                                                

<tr height=2><td height=10 align=center bgcolor=midnightblue 

colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>General Computer 

Information</h3></b></TD></TR>"
    fileOutput.WriteLine"                                                

<tr height=2><td height=10 align=center bgcolor=midnightblue 

colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Manufacturer</TD><td 

width='70%' bgcolor=#f0f0f0 

align=left><i>" & Manufacturer & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Model</TD><td width='70%' 

bgcolor=#f0f0f0 

align=left><i>" & Model & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>System Based</TD><td 

width='70%' bgcolor=#f0f0f0 

align=left><i>" & SysType & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Operating System</TD><td 

width='70%' bgcolor=#f0f0f0 

align=left><i>" & WKOS & " " & CSD & " " & Architecture & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Operating System Install 

Date</TD><td width='70%' 

bgcolor=#f0f0f0 align=left><i>" & InstallDate & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>UserName</TD><td width='70%' 

bgcolor=#f0f0f0 

align=left><i>" & UserName & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Workstation Name</TD><td 

width='70%' bgcolor=#f0f0f0 

align=left><i>" & WKID & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Domain</TD><td width='70%' 

bgcolor=#f0f0f0 

align=left><i>" & Domain & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>System Drive</TD><td 

width='70%' bgcolor=#f0f0f0 

align=left><i>" & SysDrive & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>System Directory</TD><td 

width='70%' bgcolor=#f0f0f0 

align=left><i>" & SysDir & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Windows Directory</TD><td 

width='70%' bgcolor=#f0f0f0 

align=left><i>" & WinDir & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>ShadowStorage Allocated 

Space</TD><td width='70%' 

bgcolor=#f0f0f0 align=left><i>" & Allocated & " MB</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>ShadowStorage Used 

Space</TD><td width='70%' 

bgcolor=#f0f0f0 align=left><i>" & UsedSpace & " MB</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>ShadowStorage Max Space</TD><td 

width='70%' 

bgcolor=#f0f0f0 align=left><i>" & MaxSpace & " MB</i></td></tr>"
    fileOutput.WriteLine"                                                

<tr height=2><td height=10 align=center bgcolor=midnightblue 

colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>General Hardware 

Information</h3></b></TD></TR>"
    fileOutput.WriteLine"                                                

<tr height=2><td height=10 align=center bgcolor=midnightblue 

colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>CPU</TD><td width='70%' 

bgcolor=#f0f0f0 

align=left><i>" & cputype & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Memory</TD><td width='70%' 

bgcolor=#f0f0f0 

align=left><i>" & TotalMemory & " MB</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Total HDD Space</TD><td 

width='70%' bgcolor=#f0f0f0 

align=left><i>" & TotalHDSpace & " GB</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Free HDD Space</TD><td 

width='70%' bgcolor=#f0f0f0 

align=left><i>" & FreeHDSpace & " GB</i></td></tr>"
    fileOutput.WriteLine"                                                

<tr height=2><td height=10 align=center bgcolor=midnightblue 

colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>General Video Card 

Information</h3></b></TD></TR>"
    fileOutput.WriteLine"                                                

<tr height=2><td height=10 align=center bgcolor=midnightblue 

colspan=3></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Video Card</TD><td width='70%' 

bgcolor=#f0f0f0 

align=left><i>" & VideoCard & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Resolution</TD><td width='70%' 

bgcolor=#f0f0f0 

align=left><i>" & Resolution & "</i></td></tr>"
fileOutput.WriteLine "                                        <TR><TD 

width='30%' align='left' bgcolor='#e0e0e0'>Memory</TD><td width='70%' 

bgcolor=#f0f0f0 

align=left><i>" & VideoMemory & " MB</i></td></tr>"
'This section lists all the current services and their status.
fileOutput.WriteLine "                                        <TR><TD 

align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>Current Service 

Information</h3></b></TD></TR>"
fileOutput.WriteLine "                                        <tr><td 

colspan='2' bgcolor='#f0f0f0'>"
fileOutput.WriteLine "                                            <TABLE 

width='100%' cellspacing='0' cellpadding='2' border='1' 

bordercolor='#c0c0c0' 

bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
fileOutput.WriteLine "                                                

<TR><TD width='70%' align='center' bgcolor='#e0e0e0'><b>Service 

Name</b></td><TD width='30%' 

align='center' bgcolor='#e0e0e0'><b>Service State</b></td><tr>"
Set colRunningServices = objWMIService.ExecQuery("Select * from 

Win32_Service")
For Each objService in colRunningServices
fileOutput.WriteLine "                                            <TR><TD 

align='left' bgcolor='#f0f0f0'>" & objService.DisplayName & "</TD><td 

bgcolor=#f0f0f0 

align=center><i>" & objService.State & "</i></td></tr>"
    wscript.echo  "                                            <TR><TD 

align='left' bgcolor='#f0f0f0'>" & objService.DisplayName & "</TD><td 

bgcolor=#f0f0f0 

align=center><i>" & objService.State & "</i></td></tr>"
Next
fileOutput.WriteLine "                                            

</table>"
fileOutput.WriteLine "                                        </td></tr>"
'This section lists all the current running processes and some 

information.
fileOutput.WriteLine "                                        <TR><TD 

align='center' bgcolor='#d0d0d0' colspan='2'><b><h3>Current Process 

Information</h3></b></TD></TR>"
fileOutput.WriteLine "                                        <tr><td 

colspan='2' bgcolor='#f0f0f0'>"
fileOutput.WriteLine "                                            <TABLE 

width='100%' cellspacing='0' cellpadding='2' border='1' 

bordercolor='#c0c0c0' 

bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
fileOutput.WriteLine "                                                

<TR><TD width='10%' align='center' bgcolor='#e0e0e0'><b>PID</b></td><TD 

width='35%' 

align='center' bgcolor='#e0e0e0'><b>Process Name</b></td><TD width='40%' 

align='center' bgcolor='#e0e0e0'><b>Owner</b></td><TD width='15%' 

align='center' 

bgcolor='#e0e0e0'><b>Memory</b></td></tr>"
Set colProcessList = objWMIService.ExecQuery("Select * from 

Win32_Process")
For Each objProcess in colProcessList
colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
fileOutput.WriteLine "                                                

<TR><TD align='center' bgcolor='#f0f0f0'>" & objProcess.Handle & "</td><TD 

align='center' 

bgcolor='#f0f0f0'>" & objProcess.Name & "</td><TD align='center' 

bgcolor='#f0f0f0'>" & strUserDomain & "\" & strNameOfUser & "</td><TD 

align='center' 

bgcolor='#f0f0f0'>" & objProcess.WorkingSetSize/1024 & " kb</td><tr>"
Next
fileOutput.WriteLine "                                            

</table>"
fileOutput.WriteLine "                                        </td></tr>"
'This section lists all the currently installed software on the machine.
fileOutput.WriteLine "                                        <TR><TD 

align='center' bgcolor='#d0d0d0' colspan='2'><b><i>Installed 

Software</i></b></TD></TR>"
fileOutput.WriteLine "                                        <tr><td 

colspan='2' bgcolor='#f0f0f0'>"
Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
For Each objSoftware in colSoftware
    fileOutput.WriteLine"                                            

<TABLE width='100%' cellspacing='0' cellpadding='2' border='1' 

bordercolor='#c0c0c0' 

bordercolordark='#ffffff' bordercolorlight='#c0c0c0'>"
    fileOutput.WriteLine"                                                

<tr><td width=30% align=center bgcolor='#e0e0e0'><b>Name</b></td><td 

width=30% align=center 

bgcolor='#e0e0e0'><b>Vendor</b></td><td width=30% align=center 

bgcolor='#e0e0e0'><b>Version</b></td></tr>"
    fileOutput.WriteLine"                                                

<tr><td align=center bgcolor=#f0f0f0>" & objSoftware.Name & "</td><td 

align=center 

bgcolor=#f0f0f0>" & objSoftware.Vendor & "</td><td align=center 

bgcolor=#f0f0f0>" & objSoftware.Version & "</td></tr>"
    fileOutput.WriteLine"                                                

<tr height=2><td height=10 align=center bgcolor=midnightblue 

colspan=3></td></tr>"
    fileOutput.WriteLine"                                            

</table>"
Next
fileOutput.WriteLine "                                        </td></tr>"
fileOutput.WriteLine "                                    </table>"
fileOutput.WriteLine "                                </td></tr>"
fileOutput.WriteLine "                            </table>"
fileOutput.WriteLine "                        </td></tr>"
fileOutput.WriteLine "                    </table>"
fileOutput.WriteLine "                </td></tr>"
fileOutput.WriteLine "            </table>"
fileOutput.WriteLine "            <p><small></small></p>"
fileOutput.WriteLine "        </center>"
fileOutput.WriteLine "    </body>"
fileOutput.WriteLine "<html>"
fileOutput.close
WScript.Quit

      【讨论】：

        猜你喜欢
        • 1970-01-01
        • 1970-01-01
        • 2020-06-26
        • 1970-01-01
        • 1970-01-01
        • 2016-09-17
        • 1970-01-01
        • 1970-01-01
        • 1970-01-01
        相关资源
        最近更新 更多
        热门标签
        Java Python linux javascript Mysql C# Docker 算法 前端 SpringBoot Redis Vue spring 设计模式 .net core .net kubernetes c++ 数据库 数据结构 大数据 js 机器学习 微服务 Android Go 程序员 面试 JVM ASP.net core 云原生 人工智能 后端 PHP git CSS golang k8s Nginx Django mybatis 深度学习 多线程 React 架构 devops 爬虫 云计算 Spring Boot LeetCode