VB-获取本机计算机名，登录名、ip地址

真的是很简单，执行结果：Computer:不平凡总在于坚持  User:Administrator  IP:192.168.0.111

    '获取计算机名、用户名、本机ip

    Dim LocalInfo As String

    Dim strLocalIP As String

    Dim winIP As Object

    LocalInfo = LocalInfo & "  Computer:" & Environ("computername")

    LocalInfo = LocalInfo & "  User:" & Environ("username")

    Set winIP = CreateObject("MSWinsock.Winsock")

    strLocalIP = winIP.localip

    LocalInfo = LocalInfo & "  IP:" & strLocalIP

 　Debug.Print LocalInfo