zoukankan      html  css  js  c++  java
  • WMI获取计算机信息

    On Error Resume Next
    strComputer = "."
    strInfo = ""
    Set objWMIService = GetObject("winmgmts:\" & strComputer & " ootcimv2")

    Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
    For Each objItem in colItems
     strInfo = strInfo & "SerialNumber: " & objItem.SerialNumber & vbCrLf
    Next

    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
    For Each objItem in colItems
     strInfo = strInfo & "UserName: " & objItem.UserName & vbCrLf
     strInfo = strInfo & "ComputerName: " & objItem.Name & vbCrLf
     strInfo = strInfo & "Domain: " & objItem.Domain & vbCrLf
     strInfo = strInfo & "Manufacturer: " & objItem.Manufacturer & vbCrLf
     strInfo = strInfo & "Model: " & objItem.Model & vbCrLf
     strInfo = strInfo & "TotalPhysicalMemory: " & Round(objItem.TotalPhysicalMemory/(1024^2),0) & " M" & vbCrLf
    Next

    Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)
    For Each objItem in colItems
     If ProcessorNumber = 0 Then
      strInfo = strInfo & "ProcessorMaxClockSpeed: " & Round(objItem.MaxClockSpeed/1024,1) & " G" & vbCrLf
      strInfo = strInfo & "ProcessorName: " & objItem.Name & vbCrLf
     End If
     ProcessorNumber = ProcessorNumber + 1
    Next
    strInfo = strInfo & "ProcessorNumber: " & ProcessorNumber & vbCrLf

    WScript.Echo strInfo

  • 相关阅读:
    使用C#调用系统API实现锁定计算机
    阶段性总结
    心情状态所困
    VMware虚拟机网络配置相关备忘
    数据库学习第一篇
    给window xp sp2设置共享文件夹
    转报竞赛实操试题
    数据库视频笔记
    Android开发从零开始,搭建交叉编译环境
    排故总结
  • 原文地址:https://www.cnblogs.com/lbnnbs/p/4782013.html
Copyright © 2011-2022 走看看