获取本机ip地址\mac地址.....

315559822

Sub test()
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration ")
For Each IPConfig In IPConfigSet
On Error Resume Next
s = ""
  s = s & "Description:  " & IPConfig.Description & vbCrLf
        ss = ""
        For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
            ss = ss & IPConfig.IPAddress(i) & "  "
        Next
  s = s & "IPAddress:  " & ss & vbCrLf
  s = s & "MACAddress:  " & IPConfig.MACAddress & vbCrLf
MsgBox s
Next
End Sub


Sub 获取本机ip()
Set sock = CreateObject("mswinsock.winsock")
MsgBox sock.LocalIP
End Sub

Sub 往sql里更新tongz()
If CreateObject("mswinsock.winsock").LocalIP = "10.20.1.145" Then
MsgBox "hh"
End If
End Sub

ddis250

沙发啊！
这么好的贴，现在才发现！
找了好久了。

cried

谢谢,学习了