获取局域网用户名及局域网名称

Sub test1()
  Set Sy = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
    For Each WG In Sy
       MsgBox "工作组" & WG.Workgroup
    Next
End Sub

Sub test2()
  Set Sy = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
    For Each WG In Sy
       MsgBox WG.UserName
MsgBox WG.PrimaryOwnerName
    Next
End Sub