private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click

dim wmi as new system.management.managementobjectsearcher("select * from win32_networkadapterconfiguration")

textbox1.text = ""

for each wmiobj as managementobject in wmi.get

if cbool(wmiobj("ipenabled")) then

textbox1.text += "ip(" & wmiobj("ipaddress")(0) & ")|mac(" & wmiobj("macaddress") & ")" & vbcrlf

end if

next

end sub

如果有人运行不出来的话==>首先，引用system.management；然后在代码中imports system.management；


文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!