VBS脚本写的Windows硬件检测工具分享（vb判断语句合不合法）原创

91 0 0

Const MyName=”Windows硬件检视工具(测试版) –by:Rex.Pack(雷克斯.派)”

If Not LCase(Replace(WScript.FullName, WScript.Path & “”, “”))=”cscript.exe” Then
Set WS=CreateObject(“WScript.Shell”)
WS.Run “CMD /c mode con: cols=115 & Color 0A & Title ” & MyName & ” & CScript //nologo “”” & WScript.ScriptFullName & “”””
WScript.Quit
End If
‘—-初始化
Set SD=CreateObject(“Scripting.Dictionary”)
SD.CompareMode=vbTextCompare
Set S=New BaseStr
Set PC=New BasePC
Set WMI=GetObject(“Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2″)
CmdArr=Split(” OS CPU Board Memory Video Disk USB CacheMemory NetWork BIOS Sound Battery PortableBattery” & ” S1 S2 S3 S4″)
With SD
.Add “?”, “Call Menu”
.Add “e”, “WScript.Quit”
For I=1 To 17
.Add CStr(I), CmdArr(I)
Next
.Add “a”, “1-6”
.Add “b”, “7-9”
.Add “c”, “10-13”
.Add “d”, “14-17”
End With

Echo MyName

Call Menu
Call Main

‘—-CO
Sub Menu()
Echo “[设备列表]”
Echo ” 常用组 A: 1.OS 2.CPU 3.主板 4.内存 5.显卡 6.硬盘”
Echo ” 次级组 B: 7.USB 8.缓存 9.网卡”
Echo ” 酱油组 C: 10.BIOS 11.声卡电池(12.内部 13.便携)”
Echo “[测试CPU]”
Echo ” 测试组 D: 14.变量幂次方运算 15.字符叠合 16.加法计算 17.叠加计算”
End Sub

Sub Main()
Print “>”: GetNum=Trim(InPut)
With SD
If .Exists(GetNum) Then
If IsNumeric(GetNum) Then
Echo Eval(“PC.” & .Item(GetNum))
Else
ArrLU=Split(.Item(GetNum), “-“)
For L=ArrLU(0) To ArrLU(1)
Echo Eval(“PC.” & .Item(CStr(L)))
Next
End If
Else
Echo “#不支持的命令”
End If
End With

If Not Err.Number=0 Then Echo “>X”: Err.Clear
Call Main
End Sub

‘DDC
Class BaseStr
Private Strs

Private Sub Class_Initialize()
Strs=””
End Sub

Private Sub Class_Terminate()
Call Cls
End Sub

Public Sub Cls()
Strs=Empty
End Sub

Public Property Let I(ByVal Str)
If Left(Str, 1)=”☆” Then Str=Str & String(80, “=”)
Strs=Strs & vbCrLf & Str
End Property

Public Default Property Get I()
I=Strs
Cls
End Property
End Class

Class BasePC
Private DPS

Private Sub Class_Initialize()
DPS=200
End Sub

Private Sub Class_Terminate()
DPS=Empty
End Sub

Function S1()
S1=”变量幂次方运算 ” & DPS & “万次用时:” & RT(“TestVar=I ^ 2″, DPS * 10000)
End Function

Function S2()
S2=”字符叠合 ” & DPS & “000次用时:” & RT(“TestVar=TestVar & vbTab”, DPS * 1000)
End Function

Function S3()
S3=”加法计算 ” & DPS & “万次用时:” & RT(“TestVar=86 + 32″, DPS * 10000)
End Function

Function S4()
S4=”叠加计算 ” & DPS & “万次用时:” & RT(“TestVar=TestVar + I”, DPS * 10000)
End Function

Private Function RT(ByVal MathExp, ByVal Num)
Dim NowTimer, NewTimer, TestVar
NowTimer=Timer
For I=1 To Num
ExeCute MathExp
Next
NewTimer=FormatNumber((Timer – NowTimer) * 1000, 3, True, , False) & “ms”
RT=NewTimer
TestVar=Empty
End Function

Function BIOS()
On Error Resume Next
S.I=”☆[BIOS]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.InstancesOf(“Win32_BIOS”)
With TempObj
S.I=”┣厂商 :” & .Manufacturer
S.I=”┇日期 :” & .ReleaseDate
S.I=”┇OEM 版本 :” & .Version
S.I=”┇BIOS 版本 :” & .SMBIOSBIOSVersion
S.I=”┇Major版本 :” & .SMBIOSMajorVersion
S.I=”┇状态 :” & .Status
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
BIOS=S
End Function

Function OS()
On Error Resume Next
S.I=”☆[操作系统]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj in WMI.InstancesOf(“Win32_OperatingSystem”)
With TempObj
S.I=”┣标签 :” & .Caption
S.I=”┇CSDV :” & .CSDVersion
S.I=”┇版本 :” & .Version
S.I=”┇RAM识别:” & .TotalVisibleMemorySize / 1024 & “MB”
S.I=”┇RAM可用:” & .FreePhysicalMemory / 1024 & “MB”
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
OS=S
End Function

Function Board()
On Error Resume Next
S.I=”☆[主板]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.InstancesOf(“Win32_BaseBoard”)
With TempObj
S.I=”┣标签:” & .Caption
S.I=”┇编号:” & .Product
S.I=”┇序号:” & .SerialNumber
S.I=”┇名称:” & .Name
S.I=”┇版本:” & .Version
S.I=”┇厂商:” & .Manufacturer
S.I=”┇状态:” & .Status
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
Board=S
End Function

Function CPU()
On Error Resume Next
S.I=”☆[CPU]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.InstancesOf(“Win32_Processor”)
With TempObj
MCS=.MaxClockSpeed
CCS=.CurrentClockSpeed
If MCS Mod 2=1 Then MCS=CCS + 1
If CCS Mod 2=1 Then CCS=CCS + 1
If CCS=MCS Then
Set SRP=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv”)
SRP.GetDWORDValue &H80000002, “HARDWARE\DESCRIPTION\System\CentralProcessor\0”, “~MHz”, OC
Set SRP=Nothing
Else
OC=CCS
End If
If OC Mod 2=1 Then OC=OC + 1
FC=OC – MCS
If FC > +10 Then OCLC=”超”
If FC < -10 Then OCLC=”降”
OCLC=OCLC & “频比率:” & FormatPercent(FC / MCS, True, True)

S.I=”┣CPU 名称:” & Trim(.Name)
S.I=”┇CPU 架构:” & .Description
S.I=”┇制造厂商:” & .Manufacturer
S.I=”┇插口规格:” & .SocketDesignation
S.I=”┇CPU 数量:” & .CpuStatus & ” ” & String(.CpuStatus, “※”)
S.I=”┇核心数量:” & .NumberOfCores & ” ” & String(.NumberOfCores, “∷”)
S.I=”┇线程数量:” & .NumberOfLogicalProcessors & ” ” & String(.NumberOfLogicalProcessors, “≈”)
S.I=”┇地址位宽:” & .AddressWidth & ” Bit”
S.I=”┇数据位宽:” & .DataWidth & ” Bit”
S.I=”┇CPU 电压:” & .CurrentVoltage / 10 & “V”
S.I=”┇外部频率:” & .ExtClock & ” MHz”
S.I=”┇当前频率:” & OC & ” MHz, ” & OCLC
S.I=”┇原始频率:” & MCS & ” MHz”
S.I=”┇CPU占用%:” & .LoadPercentage & “%”
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
CPU=S
End Function

Function CacheMemory()
On Error Resume Next
S.I=”☆[缓存内存]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.InstancesOf(“Win32_CacheMemory”)
With TempObj
If .MaxCacheSize > 0 Then
Select Case .Purpose
Case “L1 Cache” AddStr=”(+DataBit)”
Case Else
End Select
S.I=”┇作用位:” & .Purpose & ” ID:” & .DeviceID & “:” & .MaxCacheSize & “KB” & AddStr
AddStr=””
End If
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
CacheMemory=S
End Function

Function Memory()
On Error Resume Next
TempArr=Split(“Unknown Other DRAM Synchronous-DRAM Cache-DRAM EDO EDRAM VRAM SRAM RAM ROM Flash EEPROM FEPROM EPROM CDRAM 3DRAM SDRAM SGRAM RDRAM DDR DDR-2″)
S.I=”☆[内存]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.InstancesOf(“Win32_PhysicalMemory”)
With TempObj
S.I=”┣名称/标签:” & .Name & “/” & .Caption
S.I=”┇BL :” & .BankLabel
S.I=”┇槽 :” & .DeviceLocator
S.I=”┇容量 :” & .Capacity / 1048576 & “MB”
S.I=”┇类型 :” & TempArr(.MemoryType)
S.I=”┇速率 :” & .Speed & “MHz”
S.I=”┇制造商 :” & .Manufacturer
S.I=”┇热插拔 :” & IIf(.HotSwappable=True, True, False)
S.I=”┇总位宽 :” & .TotalWidth
S.I=”┇数据位宽 :” & .DataWidth
S.I=”┇部分序号 :” & .PartNumber
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
Memory=S
End Function

Function Video()
On Error Resume Next
TempArr1=Split(” 其他未知 CGA EGA VGA SVGA MDA HGC MCGA 8514A XGA Linear Frame Buffer” & Space(160 – 14) & “PC-98″)
TempArr2=Split(” 其他未知隔行逐行”)
S.I=”☆[显卡]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.InstancesOf(“Win32_VideoController”)
With TempObj
S.I=”┣接口 :” & TempArr1(.VideoArchitecture)
S.I=”┇名称 :” & .Name
S.I=”┇标签 :” & .Caption
S.I=”┇ID :” & .DeviceID
S.I=”┇GPU :” & .VideoProcessor
S.I=”┇制造商 :” & .AdapterCompatibility
S.I=”┇物理显存 :” & .AdapterRAM / 1048576 & “MB”
S.I=”┇扫描模式 :” & IIf(.CurrentScanMode=False, False, TempArr2(.CurrentScanMode))
S.I=”┇分辨率 :” & .CurrentHorizontalResolution & ” x ” & .CurrentVerticalResolution
S.I=”┇色位盘 :” & .CurrentBitsPerPixel & “Bit”
S.I=”┇刷新率 :” & .CurrentRefreshRate & “Hz” & “(” & .MinRefreshRate & “-” & .MaxRefreshRate& “)”
S.I=”┇驱动版本 :” & .DriverVersion
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
Video=S
End Function

Function Disk()
On Error Resume Next
S.I=”☆[硬盘]”
For Each TempObj In WMI.InstancesOf(“Win32_DiskDrive”)
With TempObj
S.I=”┏[磁盘:” & .Index & “]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉”
S.I=”┇名称 :” & .Name
S.I=”┇标签 :” & .Caption
S.I=”┇接口 :” & .InterfaceType
S.I=”┇制造商 :” & .Manufacturer
S.I=”┇序号 :” & .SerialNumber
S.I=”┇介质描述:” & .Description & ” ” & “┇介质类型:” & .MediaType
S.I=”┇柱面数 :” & .TotalCylinders & ” ” & “┇磁头数 :” & .TotalHeads
S.I=”┇标准容量:” & FormatNumber(.Size / 1000000000, 2, True) & “GB” & ” ” & “┇实际容量:” & FormatNumber(.Size / 1073741824, 2, True) & “GB”
S.I=”┇分区数量:” & .Partitions
S.I=”┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉”
S.I=”┣[分区]┳━━━┳━━━━━━━┳━━━━━━━━━━━┳━━━━━┉”
S.I=”┇ 索引 ┇主分区┇容量(GB) ┇块(大小x数量) ┇属性”
S.I=”┣━━━╋━━━╋━━━━━━━╋━━━━━━━━━━━╋━━━━━┉”
For Each TempObj0 In WMI.InstancesOf(“Win32_DiskPartition”)
If .Index=TempObj0.DiskIndex Then
S.I=”┇ ” & TempObj0.Index & _
” ┇” & TempObj0.PrimaryPartition & _
” ┇” & FormatNumber(TempObj0.Size / 1073741824, 2, True) & “GB” & _
” ┇” & TempObj0.BlockSize & “x” & TempObj0.NumberOfBlocks & _
” ┇” & _
TIf(TempObj0.BootPartition, “引导,”) & _
TIf(TempObj0.HiddenSectors, “隐藏,”) & _
TIf(TempObj0.Bootable, “启动.”)
End If
Next
S.I=”┣━━━┻━━━┻━━━━━━━┻━━━━━━━━━━━┻━━━━━┉”
S.I=”┣[扇区]━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉”
S.I=”┇磁道扇区:” & .SectorsPerTrack
S.I=”┇扇区大小:” & .BytesPerSector
S.I=”┇总扇区数:” & .TotalSectors
S.I=”┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉”
End With
Next

TempArr=Split(“未知可移动磁盘本地磁盘网络驱动器光盘 RAM磁盘 “)
S.I=”┏[分区信息]━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉”
For Each TempObj1 In CreateObject(“Scripting.FileSystemObject”).Drives
With TempObj1
If .IsReady Then
PTS=Int(.FreeSpace / .TotalSize * 100)
S.I=”┇盘符:” & .DriveLetter & ” 文件系统:” & .FileSystem & ” 类型:” & TempArr(.DriveType) & ” 卷标:” & .VolumeName
S.I=”┇” & ” 空闲率:” & PTS & “% ” & String((100 – PTS) / 5, “■”) & String(PTS / 5, “□”)
Else
S.I=”┇盘符:” & .DriveLetter & ” 磁盘未准备好!”
S.I=”┇” & ” 空闲率:0% ” & “≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡”
End If
End With
Next
S.I=”┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┉”
Disk=S
End Function

Function Sound()
On Error Resume Next
S.I=”☆[声卡]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.InstancesOf(“Win32_SoundDevice”)
With TempObj
S.I=”┣名称/标签:” & .Name & “/” & .Caption
S.I=”┇ID :” & .DeviceID
S.I=”┇制造商 :” & .Manufacturer
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
Sound=S
End Function

Function NetWork()
On Error Resume Next
S.I=”☆[网卡]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.ExecQuery(“Select * from Win32_NetworkAdapter Where PhysicalAdapter=’True'”)
With TempObj
S.I=”┣[网卡:” & Space(3 – Len(.Index)) & .Index & “]━━━━━━━━┉”
S.I=”┇标签 :” & .Caption
S.I=”┇PNPDID:” & .PNPDeviceID
S.I=”┇制造商:” & .Manufacturer
S.I=”┇速率 :” & IIf(TypeName(.Speed)=”Null”, False, .Speed / 10000 & “bps”)
S.I=”┇启用 :” & .NetEnabled
S.I=”┇服务名:” & .ServiceName
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
NetWork=S
End Function

Function Battery()
On Error Resume Next
TempArr1=Split(” 放电交流电充满低临界充电充电>高充电>低充电>临界未定义部分充电”)
TempArr2=Split(” 其他未知铅酸镉镍镍金属氢化物锂离子锌空气锂聚合物”)
S.I=”☆[内部电池]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.InstancesOf(“Win32_Battery”)
With TempObj
S.I=”┣名称/标签:” & .Name & “/” & .Caption
S.I=”┇ID :” & .DeviceID
S.I=”┇PNPDID :” & .PNPDeviceID
S.I=”┇充电时间 :” & .BatteryRechargeTime
S.I=”┇状态 :” & TempArr1(.BatteryStatus)
S.I=”┇材料 :” & TempArr2(.Chemistry)
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
Battery=S
End Function

Function PortableBattery()
On Error Resume Next
TempArr1=Split(” 其他未知充满低临界充电充电>高充电>低充电>临界未定义部分充电”)
TempArr2=Split(” 其他未知铅酸镉镍镍金属氢化物锂离子锌空气锂聚合物”)
S.I=”☆[便携电池]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.InstancesOf(“Win32_PortableBattery”)
With TempObj
S.I=”┣名称/标签:” & .Name & “/” & .Caption
S.I=”┇ID :” & .DeviceID
S.I=”┇PNPDID :” & .PNPDeviceID
S.I=”┇制造商 :” & .Manufacturer
S.I=”┇预计剩余 :” & .EstimatedChargeRemaining
S.I=”┇预计时间 :” & .EstimatedRunTime
S.I=”┇电源管理 :” & .PowerManagementSupported
S.I=”┇位置 :” & .Location
S.I=”┇智能电池 :” & .SmartBatteryVersion
S.I=”┇材料 :” & TempArr2(.Chemistry)
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
PortableBattery=S
End Function

Function USB()
On Error Resume Next
S.I=”☆[USB坞]”
S.I=”┏━━━━━━━━━━━━━┉”
For Each TempObj In WMI.InstancesOf(“Win32_USBController”)
With TempObj
S.I=”┣标签 :” & .Caption
S.I=”┇ID :” & .DeviceID
S.I=”┇PNPDID:” & .PNPDeviceID
S.I=”┇制造商:” & .Manufacturer
End With
Next
S.I=”┗━━━━━━━━━━━━━┉”
USB=S
End Function
End Class

‘—-

‘输出
Sub Print(ByVal Texts)
WScript.StdOut.Write Texts
End Sub
Sub Echo(ByVal GEOM_TempData)
WScript.Echo GEOM_TempData
End Sub

‘输出:覆盖行,空白长度
Sub PrintC(ByVal Texts, ByVal LenNum)
WScript.StdOut.Write Chr(13) & Texts & String(LenNum, ” “)
End Sub

‘输出,+换行
Sub PrintL(ByVal Texts)
WScript.StdOut.WriteLine(Texts)
End Sub

‘输入
Function InPut()
InPut=WScript.StdIn.ReadLine
End Function

Function IIf(ByVal GEOM_tf, ByVal GEOM_T, ByVal GEOM_F)
If GEOM_tf=True Then IIF=GEOM_T Else IIF=GEOM_F
End Function

‘iif真
Function TIf(ByVal GEOM_tf, ByVal GEOM_T)
If GEOM_tf=True Then TIF=GEOM_T
End Function

‘iif假
Function FIf(ByVal GEOM_tf, ByVal GEOM_F)
If GEOM_tf=False Then FIF=GEOM_F
End Function

# 随心笔谈