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

  • 相关阅读:
    创建自定义 AJAX 客户端控件(msdn)
    使用jquery的blockui插件显示弹出层
    Sql Server高手必备
    Js获取当前日期时间及其它操作
    在VS2010中创建自定义的代码段
    存储过程分页
    完美辨析各种高度区别
    程序员必备的正则表达式
    Sql日期格式化
    C#调用Quartz实例代码
  • 原文地址:https://www.cnblogs.com/lbnnbs/p/4782013.html
Copyright © 2011-2022 走看看