VB-擷取本機電腦名稱，登入名稱、ip地址

標籤：div   amp   電腦   使用者   user   ad   簡單   print   

真的是很簡單，執行結果：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