获取本机IP及电脑与用户名称

'添加 Command1

Private Sub Command1_Click()
   Dim aa$, winIP As Object
   aa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf
   aa = aa & "本机用户名称:" & Environ("username") & vbCrLf
   Set winIP = CreateObject("MSWinsock.Winsock")
   MsgBox aa & "本机IP:" & winIP.localip
End Sub