以前都用api做,后来发现,不用api也很轻松搞定
Dim a As Object
Set a = CreateObject("Wscript.Network")
Print a.ComputerName
Print a.UserName
Print a.UserDomain

得到的好像是计算机名...用户名...计算机名..域名好像没得到

我直接调用他的，要不就是他封装的问题了!

域嘛

如果你的计算机没有加入域当然得不到了

此时可以考虑得到工作组的名字

加了域...我在公司里上...
我都以域名登录...会没加入域

哦  那其实我们也没什么好说的……wscript的封装么……呵呵

在加入显ip的就好了。能告诉我一下吗。谢谢

本机ip吗?其实不是很难的!

Private Sub Command1_Click()
MsgBox strGetIpAdress
End Sub
Private Function strGetIpAdress() As String
Dim wsShell, re, myIp, r, strLine
Set wsShell = CreateObject("WScript.Shell")
Set re = CreateObject("vbScript.RegExp")
re.Pattern = "IP Address"
Set myIp = wsShell.Exec("ipconfig /all")
While Not myIp.StdOut.AtEndOfStream
strLine = myIp.StdOut.ReadLine()
r = re.Test(strLine)
If r Then
strGetIpAdress = Mid(strLine, InStrRev(strLine, ":") + 1)
End If
Wend
End Function

Private Sub Command1_Click()
'IP 是ip地址
'Phy 是 mac地址
'Host 是 主机名
'DNS 是 dns
'Def 是缺省网关
'Sub 是 子网掩码

MsgBox strGetIpAdress("Sub")
End Sub
Private Function strGetIpAdress(InIp) As String
Dim wsShell, re, myIp, r, strLine
Set wsShell = CreateObject("WScript.Shell")
Set re = CreateObject("vbScript.RegExp")
re.Pattern = InIp
Set myIp = wsShell.Exec("ipconfig /all")
While Not myIp.StdOut.AtEndOfStream
strLine = myIp.StdOut.ReadLine()
r = re.Test(strLine)
If r Then
strGetIpAdress = Mid(strLine, InStrRev(strLine, ":") + 1)
End If
Wend
End Function

传参数注意大小写就可以了!