获取本机IP及电脑与用户名称
2012-06-29 15:56
225 查看
'添加 Command1
Private Sub Command1_Click()
Dim aa$, winIP As Object
aa = aa & "本机电脑名称:" & Environ("computername") & vbCrLf
aa = aa & "本机用户名称:" & Environ("username") & vbCrLf
Set winIP = CreateObject("MSWinsock.Winsock")
MsgBox aa & "本机IP:" & winIP.localip
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 获取本机信息如IP 电脑名称等类
- c#（WinForm）遍历局域网计算机（电脑）获取IP和计算机名称（转）
- php实现获取局域网所有用户的电脑IP和主机名、及mac地址完整实例
- VBScript获取电脑用户名-IP-MAC
- .net获取用户电脑名,IP,当前电脑用户
- php实现获取局域网所有用户的电脑IP和主机名、及mac地址完整实例
- c# 遍历局域网计算机（电脑）获取IP和计算机名称
- 以IP来获取客户端电脑名称(一句代码实现)
- c#（WinForm）遍历局域网计算机（电脑）获取IP和计算机名称
- .net获取用户电脑名,IP,当前电脑用户
- 以IP来获取客户端电脑名称(一句代码实现)
- 在.NET中获取获取服务器电脑名,获取用户信息，获取客户端电脑名，获取客户端电脑IP收藏。
- c#（WinForm）遍历局域网计算机（电脑）获取IP和计算机名称（转）
- 用VB 写程序 获取MAC ,IP ,hd ,CPU,内存,电脑名称等信息
- php获取用户ip地址及城市名称
- .net获取用户电脑名,IP,当前电脑用户
- .net获取用户电脑名,IP,当前电脑用户
- php 获取局域网的 所有用户的电脑IP和主机名、及mac地址
- 获取自己电脑的IP
- java代码获取用户访问ip,绝大部分可行