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

VB 获取本机计算机名、用户名、ip地址的方法代码由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb获取本机ip”。

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