ip adresimizi ögrenmenin birden fazla yolu vardir bunlardan birtanesi baslat > calistir > cmd > ipconfig komutu vermektir bir digeri ise

Asagidaki komutu oldugu gibi Copy ,Paste ile Notepad e yapistiralim ve Notepad teki File Save as komutunu kullanip
*.txt yerine ip.vbs yazalim va kaydedelim.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo IPConfig.IPAddress(i)
Next
End If
Next
Artik cift clickledigimizde ikinci verdigi adres Ip adresimizdir