一、获取计算机名:
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