求一软件 能知道区域网内机子的配置

那鬼

要写个电脑配置单   \r\n 不想一台台的看 \r\n 给我发一个撒\r\n\r\n\r\n问题已经搞定了。。  通过开机通道 运行下边的VBS 脚本\r\n

    \r\n  Dim objWMIService\r\n  Set objWMIService = Getobject(\"winmgmts:\\\\.\\root\\cimv2\")\r\n  Dim objOSInfos, objOSInfo, OSInfo, ComputerName, OSVer\r\n  Set objOSInfos = objWMIService.execQuery(\"Select * From win32_operatingsystem\")\r\n  For Each objOSInfo In objOSInfos\r\n    OSInfo = objOSInfo.CSName & \",\"\r\n    ComputerName = objOSInfo.CSName\r\n    OSVer = objOSInfo.Version\r\n    OSInfo = OSInfo & objOSInfo.Caption & \" \" & objOSInfo.CSDVersion & \",\"\r\n    OSInfo  = OSInfo & Mid(CStr(objOSInfo.InstallDate),1,4) & \"-\" & _\r\n              Mid(CStr(objOSInfo.InstallDate),5,2) & \"-\" & _\r\n              Mid(CStr(objOSInfo.InstallDate),7,2) & \",\"\r\n  Next\r\n  \r\n  Dim objBoards, objBoard, BoardInfo\r\n  Set objBoards = objWMIService.execQuery(\"Select * From Win32_BaseBoard\")\r\n  For each objBoard In objBoards\r\n    BoardInfo = Trim(objBoard.Product) & \",\"\r\n    BoardInfo = BoardInfo & Trim(objBoard.Manufacturer) & \",\"\r\n  Next\r\n  \r\n  Dim objCPUs, objCPU, CPUInfo\r\n  Set objCPUs = objWMIService.execQuery(\"Select * From win32_processor\")\r\n  For each objCPU In objCPUs\r\n    CPUInfo = Trim(objCPU.Name) & \",\"\r\n    CPUInfo = CPUInfo & objCPU.ExtClock & \",\"\r\n    CPUInfo = CPUInfo & objCPU.L2CacheSize & \",\"\r\n    CPUInfo = CPUInfo & objCPU.SocketDesignation & \",\"\r\n  Next\r\n  \r\n  Dim objMemorys, objMemory, MemoryInfo\r\n  Set objMemorys = objWMIService.execQuery(\"Select * From Win32_PhysicalMemory\")\r\n  Redim arrMemory(1)\r\n  For Each objMemory In objMemorys\r\n    arrMemory(0) = arrMemory(0) + objMemory.capacity/1048576\r\n    arrMemory(1) = arrMemory(1) & objMemory.Speed & \"/\" & objMemory.DeviceLocator & \" \"\r\n  Next\r\n  MemoryInfo = objMemorys.Count  & \"条，共\" & arrMemory(0) & \"M,\" & arrMemory(1) & \",\"\r\n  \r\n  Dim objDisks, objDisk, DiskInfo\r\n  Set objDisks = objWMIService.execQuery(\"Select * From win32_diskdrive\")\r\n  For Each objDisk In objDisks\r\n    DiskInfo = Trim(objDisk.Model) & \",\"\r\n    Exit For\r\n  Next\r\n  \r\n  Dim objVideos, objVideo, VideoInfo\r\n  Set objVideos = objWMIService.execQuery(\"Select * From win32_videocontroller\")\r\n  For Each objVideo In objVideos\r\n    If Not IsNull(objVideo.VideoModeDescription) Then\r\n        VideoInfo = Trim(objVideo.Description)\r\n        VideoInfo = VideoInfo & \"(\" & objVideo.AdapterRAM/1048576 & \"M),\"\r\n    End If\r\n  Next\r\n  \r\n  Dim objNetworks, objNetwork, objNetworks_2, objNetwork_2, NetWorkInfo\r\n  NetWorkInfo = \"\"\r\n  Set objNetworks = objWMIService.execQuery(\"Select * From Win32_NetworkAdapter\")\r\n  Set objNetworks_2 = objWMIService.execQuery(\"Select * From Win32_NetworkAdapterConfiguration\")\r\n  For Each objNetwork In objNetworks\r\n    If objNetwork.Manufacturer <> \"Microsoft\" And Not Isnull(objNetwork.MACAddress) Then\r\n      For Each objNetwork_2 In objNetworks_2\r\n        If objNetwork_2.Index = objNetwork.Index Then\r\n          NetWorkInfo = objNetwork.Description & \",\" & objNetwork_2.IPAddress(0) & _\r\n                        Space(17-Len(objNetwork_2.IPAddress(0))) & _\r\n                        Replace(objNetwork_2.MACAddress,\":\",\"-\")\r\n          Exit For\r\n        End If\r\n      Next\r\n      If NetWorkInfo <> \"\" Then Exit For\r\n    End If\r\n  Next\r\n  \r\n  \'输出信息到文件\r\n  Dim FSO, OutFile\r\n  Set FSO = WScript.Createobject(\"Scripting.Filesystemobject\")\r\n  SerVerPath = \"\\\\computer\\硬件信息$\\\" \'信息文件保存远程路径\r\n  Set OutFile = FSO.CreateTextFile(SerVerPath & \"\\\" & ComputerName & \".txt\",True)\r\n  OutFile.Writeline OSInfo & BoardInfo & CPUInfo & MemoryInfo & DiskInfo & VideoInfo & NetWorkInfo\r\n

\n\n[ 本帖最后由 那鬼 于 2008-4-3 14:35 编辑 ]

grjboy30

:surprise: 只有单机的

云杉上的蝴蝶

有时有，要在对方机器上装客户端的！

那鬼

哎 用了个懒办法弄好了。。用开机批处理 通过VBS脚本读取注册表信息。。 :surprise: