VB 获取本机计算机名、用户名、ip地址的方法代码

时间：2022-07-14 18:13:13 阅读：最新文章文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

VB 获取本机计算机名、用户名、ip地址的方法代码 Private Sub Command1_Click() Dim aa As String

Dim strLocalIP As String Dim winIP As Object

aa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf aa = aa & "本机用户名称:" & Environ("username") & vbCrLf Set winIP = CreateObject("MSWinsock.Winsock") strLocalIP = winIP.localip

MsgBox aa & "本机IP:" & strLocalIP End Sub