获取计算机各类软硬件信息的VBS代码集合是VBS脚本，按键使用注意哟。

自己不需要属性就删除吧。

可以读取所有物理硬盘！！strComputer = "."Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" & strComputer _& "\root\cimv2")Set colDiskDrives = objWMIService.ExecQuery _("Select * from Win32_DiskDrive")For each objDiskDrive in colDiskDrivesWscript.Echo "Bytes Per Sector: " & vbTab & _objDiskDrive.BytesPerSectorFor i = Lbound(objDiskDrive.Capabilities) to _Ubound(objDiskDrive.Capabilities)Wscript.Echo "Capabilities: " & vbTab & _objDiskDrive.Capabilities(i)NextWscript.Echo "Caption: " & vbTab & objDiskDrive.CaptionWscript.Echo "Device ID: " & vbTab & objDiskDrive.DeviceIDWscript.Echo "Index: " & vbTab & objDiskDrive.IndexWscript.Echo "Interface Type: " & vbTab & objDiskDrive.InterfaceType Wscript.Echo "Manufacturer: " & vbTab & objDiskDrive.Manufacturer Wscript.Echo "Media Loaded: " & vbTab & objDiskDrive.MediaLoaded Wscript.Echo "Media Type: " & vbTab & objDiskDrive.MediaTypeWscript.Echo "Model: " & vbTab & objDiskDrive.ModelWscript.Echo "Name: " & vbTab & Wscript.Echo "Partitions: " & vbTab & objDiskDrive.PartitionsWscript.Echo "PNP DeviceID: " & vbTab & objDiskDrive.PNPDeviceID Wscript.Echo "SCSI Bus: " & vbTab & objDiskDrive.SCSIBusWscript.Echo "SCSI Logical Unit: " & vbTab & _objDiskDrive.SCSILogicalUnitWscript.Echo "SCSI Port: " & vbTab & objDiskDrive.SCSIPortWscript.Echo "SCSI TargetId: " & vbTab & objDiskDrive.SCSITargetIdWscript.Echo "Sectors Per Track: " & vbTab & _objDiskDrive.SectorsPerTrackWscript.Echo "Signature: " & vbTab & objDiskDrive.SignatureWscript.Echo "Size: " & vbTab & objDiskDrive.SizeWscript.Echo "Status: " & vbTab & objDiskDrive.StatusWscript.Echo "Total Cylinders: " & vbTab & _objDiskDrive.TotalCylindersWscript.Echo "Total Heads: " & vbTab & objDiskDrive.TotalHeadsWscript.Echo "Total Sectors: " & vbTab & objDiskDrive.TotalSectorsWscript.Echo "Total Tracks: " & vbTab & objDiskDrive.TotalTracksWscript.Echo "Tracks Per Cylinder: " & vbTab & _objDiskDrive.TracksPerCylinderNext以上代码是读取物理磁盘信息的，非分区信息。

接下来来个读取光驱的。

配合限制来计算注册码很方便。

呵呵！！On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")For Each objItem in colItemsWscript.Echo "Availability: " & objItem.AvailabilityFor Each strCapability in objItem.CapabilitiesWscript.Echo "Capability: "& strCapabilityNextWscript.Echo "Caption: " & objItem.CaptionWscript.Echo "Description: " & objItem.DescriptionWscript.Echo "Device ID: " & objItem.DeviceIDWscript.Echo "Drive: " & objItem.DriveWscript.Echo "Manufacturer: " & objItem.ManufacturerWscript.Echo "Media Loaded: " & objItem.MediaLoadedWscript.Echo "Media Type: " & objItem.MediaTypeWscript.Echo "Name: " & Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceIDWscript.Echo "SCSI Bus: " & objItem.SCSIBusWscript.Echo "SCSI Logical Unit: " & objItem.SCSILogicalUnitWscript.Echo "SCSI Port: " & objItem.SCSIPortWscript.Echo "SCSI Target ID: " & objItem.SCSITargetIdNext接着是能读取显示设备显卡驱动等信息的代码On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("Select * from Win32_DisplayConfiguration") For Each objItem in colItemsWscript.Echo "Bits Per Pel: " & objItem.BitsPerPelWscript.Echo "Device Name: " & objItem.DeviceNameWscript.Echo "Display Flags: " & objItem.DisplayFlagsWscript.Echo "Display Frequency: " & objItem.DisplayFrequencyWscript.Echo "Driver Version: " & objItem.DriverVersionWscript.Echo "Log Pixels: " & objItem.LogPixelsWscript.Echo "Pels Height: " & objItem.PelsHeightWscript.Echo "Pels Width: " & objItem.PelsWidthWscript.Echo "Setting ID: " & objItem.SettingIDWscript.Echo "Specification Version: " & objItem.SpecificationVersionWscript.EchoNext再来读取内存信息的On Error Resume NextstrComputer = "."Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_MemoryArray") For Each objItem in colItemsWscript.Echo "Device ID: " & objItem.DeviceIDWscript.Echo "Ending Address: " & objItem.EndingAddressWscript.Echo "Starting Address: " & objItem.StartingAddressWscript.EchoNext继续上个读取系统信息的代码strComputer = "."Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSettings = objWMIService.ExecQuery _("Select * from Win32_OperatingSystem")For Each objOperatingSystem in colSettingsWscript.Echo "OS Name: " & Wscript.Echo "Version: " & objOperatingSystem.VersionWscript.Echo "Service Pack: " & _objOperatingSystem.ServicePackMajorVersion _& "." & objOperatingSystem.ServicePackMinorVersion Wscript.Echo "OS Manufacturer: " & objOperatingSystem.ManufacturerWscript.Echo "Windows Directory: " & _objOperatingSystem.WindowsDirectoryWscript.Echo "Locale: " & objOperatingSystem.LocaleWscript.Echo "Available Physical Memory: " & _objOperatingSystem.FreePhysicalMemoryWscript.Echo "Total Virtual Memory: " & _objOperatingSystem.TotalVirtualMemorySizeWscript.Echo "Available Virtual Memory: " & _objOperatingSystem.FreeVirtualMemoryWscript.Echo "OS Name: " & objOperatingSystem.SizeStoredInPagingFilesNextSet colSettings = objWMIService.ExecQuery _("Select * from Win32_ComputerSystem")For Each objComputer in colSettingsWscript.Echo "System Name: " & Wscript.Echo "System Manufacturer: " & objComputer.ManufacturerWscript.Echo "System Model: " & objComputer.ModelWscript.Echo "Time Zone: " & objComputer.CurrentTimeZoneWscript.Echo "Total Physical Memory: " & _objComputer.TotalPhysicalMemoryNextSet colSettings = objWMIService.ExecQuery _("Select * from Win32_Processor")For Each objProcessor in colSettingsWscript.Echo "System Type: " & objProcessor.ArchitectureWscript.Echo "Processor: " & objProcessor.DescriptionNextSet colSettings = objWMIService.ExecQuery _("Select * from Win32_BIOS")For Each objBIOS in colSettingsWscript.Echo "BIOS Version: " & objBIOS.Version'本脚本的功能是检测硬件的信息。