VBS获取系统软硬件信息_i@isclab.org

'=================================== 'Desc:获取系统软硬件信息并写入INI文件 'Auth:shadu@foxmail.com 'Version:v1.0 'Update:2010-12-27 21:45 ' '修正磁盘大小的计算方法,Win32_DiskDrive，支持无分区，无盘符 '=================================== On Error Resume Next '''=================================================== ' PCPM 客户端硬件信息类 '''=================================================== Class pcpmClientInfo Public strIP,strMAC,strGatewayIP,strGatewayMAC Public strHostName,strUserName,strOS Public strCPU,strMemoryTotal,strMemoryID,strMainBoard,strHardDiskTotal,strHardDiskID Private strOrganizedInfo Private Sub Class_Initialize() strIP = "0.0.0.0" strMAC = "00-00-00-00-00-00" strGatewayIP = "0.0.0.0" strGatewayMAC = "00-00-00-00-00-00" strHostName = "PCPMNONE" strUserName = "PCPMNONE" strOS = "PCPMNONE" strCPU = "PCPMNONE" strMemoryTotal = "0M" strMemoryID = "PCPMNONE" strMainBoard = "PCPMNONE" strHardDiskTotal = "0G" strHardDiskID = "PCPMNONE" strOrganizedInfo = "" End sub