9zhmke

网卡那一段有些冗杂，一是可以精简点，二则是判断活跃网卡那里是不是写错了？
If CStr(cNet.Count) < 0 Then....应该写成 If CStr(cNet.Count) < 1 Then

这一段可以精简成：
On Error Resume Next
Set cNet = WMI.ExecQuery("Select * from Win32_NetworkAdapter WHERE PNPDeviceID Like 'PCI%%' or PNPDeviceID Like 'USB%%'")
For Each oNet In cNet
  If CStr(cNet.Count) > 0 Then
      Nx = Nx & "网卡名称: "& oNet.Name & vbTab & "活跃状态" & vbCrLf
  Else
      Nx = Nx & "网卡名称: "& oNet.Name & vbCrLf
  End If
Next
On Error goto 0
Set cNet = Nothing