vbs-计算机硬件信息查看器-源码-可直接使用复制使用
#----------------------------------------------------------------------------------------以下为源代码
msgbox " 正在加载本机配置信息,请按确认继续! ", 40, "配置信息查询" On Error Resume Next SerVerPath = "c:\硬件信息" ‘这里的保存路径可以为UNC网络路径(\\path\) set wshshell=wscript.createobject("wscript.shell") ‘启动WMI服务 wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,True wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,True wshshell.run ("%comspec% /c net start winmgmt"),0 wshshell.run ("%comspec% /c if not exist c:\硬件信息 mkdir c:\硬件信息"),0,True ‘2,5-10行为独自等待添加,15行中的.\硬件信息为上面变量中的路径,请根据需要修改。 Dim objWMIService Set objWMIService = Getobject("winmgmts:\\.\root\cimv2") Dim objOSInfos, objOSInfo, OSInfo, ComputerName, OSVer Set objOSInfos = objWMIService.execQuery("Select * From win32_operatingsystem") For Each objOSInfo In objOSInfos OSInfo = objOSInfo.CSName & "," ComputerName = objOSInfo.CSName OSVer = objOSInfo.Version OSInfo = OSInfo & objOSInfo.Caption & " " & objOSInfo.CSDVersion & "," OSInfo = "系统信息:" & OSInfo & Mid(CStr(objOSInfo.InstallDate),1,4) & "-" & _ Mid(CStr(objOSInfo.InstallDate),5,2) & "-" & _ Mid(CStr(objOSInfo.InstallDate),7,2) & "☆" Next Dim objBoards, objBoard, BoardInfo Set objBoards = objWMIService.execQuery("Select * From Win32_BaseBoard") For each objBoard In objBoards BoardInfo = Trim(objBoard.Product) & "," BoardInfo = "主板型号:" & BoardInfo & Trim(objBoard.Manufacturer) & "☆" Next Dim objCPUs, objCPU, CPUInfo Set objCPUs = objWMIService.execQuery("Select * From win32_processor") For each objCPU In objCPUs CPUInfo = Trim(objCPU.Name) & "," CPUInfo = CPUInfo & objCPU.ExtClock & "," CPUInfo = CPUInfo & objCPU.L2CacheSize & "," CPUInfo = "CPU型号:" & CPUInfo & objCPU.SocketDesignation & "☆" Next Dim objMemorys, objMemory, MemoryInfo Set objMemorys = objWMIService.execQuery("Select * From Win32_PhysicalMemory") Redim arrMemory(1) For Each objMemory In objMemorys arrMemory(0) = arrMemory(0) + objMemory.capacity/1048576 arrMemory(1) = arrMemory(1) & objMemory.Speed & "/" & objMemory.DeviceLocator & " " Next MemoryInfo = "内存容量:" & objMemorys.Count & "条,共" & arrMemory(0) & "M," & arrMemory(1) & "☆" Dim objDisks, objDisk, DiskInfo Set objDisks = objWMIService.execQuery("Select * From win32_diskdrive") For Each objDisk In objDisks DiskInfo = "硬盘容量:" & Trim(objDisk.Model) & "☆" Exit For Next Dim objVideos, objVideo, VideoInfo Set objVideos = objWMIService.execQuery("Select * From win32_videocontroller") For Each objVideo In objVideos If Not IsNull(objVideo.VideoModeDescription) Then VideoInfo = Trim(objVideo.Description) VideoInfo = "显卡型号:" & VideoInfo & "(" & objVideo.AdapterRAM/1048576 & "M)☆" End If Next Dim objNetworks, objNetwork, objNetworks_2, objNetwork_2, NetWorkInfo NetWorkInfo = "" Set objNetworks = objWMIService.execQuery("Select * From Win32_NetworkAdapter") Set objNetworks_2 = objWMIService.execQuery("Select * From Win32_NetworkAdapterConfiguration") For Each objNetwork In objNetworks If objNetwork.Manufacturer <> "Microsoft" And Not Isnull(objNetwork.MACAddress) Then For Each objNetwork_2 In objNetworks_2 If objNetwork_2.Index = objNetwork.Index Then NetWorkInfo = "网卡信息:" & objNetwork.Description & "," & objNetwork_2.IPAddress(0) & _ Space(17-Len(objNetwork_2.IPAddress(0))) & _ Replace(objNetwork_2.MACAddress,":","-") & "☆" Exit For End If Next If NetWorkInfo <> "" Then Exit For End If Next ‘输出信息到文件 Dim FSO, OutFile Set FSO = WScript.Createobject("Scripting.Filesystemobject") SerVerPath = FSO.GetAbsolutePathName(SerVerPath) Set OutFile = FSO.CreateTextFile(SerVerPath & "\" & ComputerName & ".txt",True) ‘OutFile.Writeline OSInfo & BoardInfo & CPUInfo & MemoryInfo & DiskInfo & VideoInfo & NetWorkInfo ‘以下信息由独自等待根据上面的输出改写的,方便查看。 OutFile.Writeline OSInfo + vbCrLf OutFile.Writeline BoardInfo + vbCrLf OutFile.Writeline CPUInfo + vbCrLf OutFile.Writeline MemoryInfo + vbCrLf OutFile.Writeline DiskInfo + vbCrLf OutFile.Writeline VideoInfo + vbCrLf OutFile.Writeline NetWorkInfo + vbCrLf msgbox " "& OSInfo &" "&vbNewLine& " "& BoardInfo &" " &vbNewLine& " "& CPUInfo &" " &vbNewLine& " "& MemoryInfo &" " &vbNewLine& " "& DiskInfo &" " &vbNewLine& " "& VideoInfo &" " &vbNewLine& " "& NetWorkInfo &"", 40, "配置信息查询" Set ws = CreateObject("Wscript.Shell") ws.run "cmd /c rd /s /q c:\硬件信息",vbhide
#----------------------------------------------------------------------------------------以上为源代码
时间: 2024-10-18 23:37:04