获得计算机名、用户名

一、获取计算机名：

Text1.text = VBA.Environ("computername") 

有时上边的会报错但是改成

text1.text=environ（“computername”）

就没有问题

2、获取用户名：

text1.text=VBA.Environ("username")

二、

Private Sub Command1_Click()

Dim aa As String

Dim strLocalIP As String

Dim winIP As Object

aa = Environ("computername") & vbCrLf      ‘本机电脑名称

aa =  Environ("username") & vbCrLf              本机用户名称

Set winIP = CreateObject("MSWinsock.Winsock")  

strLocalIP = winIP.localip                                  ’本机IP

……（对号入座）

End Sub

下面“盗用”一下博客
http://blog.csdn.net/sds15732622190/article/details/46926229

http://m15732622380.blog.163.com/blog/static/24077905620156257504696/