VBScript获取本机IP、MAC、CPU占用等功能

以下代码是VBScript获取本机信息的完整代码

Dim oScalaPlayer,objWMIService,colItems
Set oScalaPlayer = CreateObject("ScalaPlayer.ScalaPlayer.1")

'获取本机IP和MAC
Function GetIPMAC(ComputerName) 
Dim objItem,objAddress
Set objWMIService = GetObject("winmgmts://" & ComputerName & "/root/cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
 For Each objAddress in objItem.IPAddress
  If objAddress <> "" then
  GetIPMAC ="IP: " & objAddress & vbCrLf & "MAC: " & objItem.MACAddress & vbCrLf & "电脑名称：" & CreateObject("wscript.network").computername & vbCrLf
  Exit For
 End If  
 Next
 Exit For
Next
End Function

'CPU占用情况
Function GetCPU(ComputerName) 
Dim objSWbemObjectSet,S