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