Maaf Mods cuma nambahin
Option Explicit
Sub IPmu()
Dim IPConfig
Dim IPConfigSet
Dim i
Set IPConfigSet =
GetObject("winmgmts:{impersonationLevel=impersonate}").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)
Sheets(1).Range("I3").Value = IPConfig.IPAddress(i)
End If
Next
End Sub
---------------------------------
Mencari semua teman di Yahoo! Messenger?
Undang teman dari Hotmail, Gmail ke Yahoo! Messenger dengan mudah sekarang!
