VB获取本地IP、计算机名、用户名代码

最新推荐文章于 2026-04-24 13:01:18 发布

转载最新推荐文章于 2026-04-24 13:01:18 发布 · 1.1w 阅读

标签

#vb #本地IP #计算机名 #内网ip #局域网IP

收录于

VB 专栏收录该内容

82 篇文章

订阅专栏

本文介绍了使用Visual Basic for Applications (VBA) 获取本地计算机的名称、用户名和IP地址的方法，通过创建对象并调用相应的属性来实现。

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

很简单的哈？