Kendi IP adresimi Öğrenmek Hk.

[cqners]

Merhaba;


Kendi Pc min IP adresini nasıl öğrene bilirim ?

Ip adresini Sayfa1 in B7 hücresine yazdırmam mümkünmü ?

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=7209&highlight=ip+adresi

 

[cqners]

Kod çalışmakta lakin ben bunu bir data şekline dönüştürmek istiyorum.

B7 den B65536 ya kadar Ip adresini kayıt edecek ve aynı ıp adresini iki kere kayt etmeyecek.

Şimdiden Teşekkürler.


Sub Test()
' Raider ® 02/09/2005
If Err.Number <> 0 Then
MsgBox "WMI y&#252;klenmemi&#351;! Programdan &#231;&#305;k&#305;lacak...", vbExclamation, _
"Windows Management Instrumentation"
Exit Sub
On Error GoTo 0
End If
strComputer = "."
Set objWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set collIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each RetVal In collIP
MsgBox "IP adresi :" & RetVal.IPAddress(0), vbInformation, _
"IP Adresi .... Raider &#194;&#174;"
Next
End Sub

 

[cqners]

Merhaba;

Konu hakk&#305;nda yard&#305;mlar&#305;n&#305;z&#305; rica ederim.

 

[Levent Menteşoğlu]

Yapmanız gereken sadece msgbox yerine ilgili hücrenin adresini yazmaktır. B7 hücresi ise,

MsgBox "IP adresi :" & RetVal.IPAddress(0), vbInformation, _
"IP Adresi .... Raider ®"

Yukarıdakiş satırı aşağıdaki ile değiştirin.

[b7] = RetVal.IPAddress(0)