[belajar-access] get ip adress

 

Yth guru access..

saya punya masala dalam mengeola ip adress lokal

didalam komputer ada 2 / lebih lan network mis dari lan card,wifi, hamachi dsb

untuk mendeteksi alamat ip saya mengunakan kode

Private Sub Command0_Click()

Dim WMI     As Object

Dim qryWMI  As Object

Dim Item, IP  As Variant

    Set WMI = GetObject("winmgmts:\\.\root\cimv2")

    Set qryWMI = WMI.ExecQuery("SELECT IPAddress FROM Win32_NetworkAdapterConfiguration " & _

                               "WHERE IPEnabled =true ")

    For Each Item In qryWMI

      IP = Item.IPAddress(0)

      MsgBox IP       

      'DoCmd.RunSQL "Insert into MyIP_t values(IP)" .. gagal

    Next

    Set WMI = Nothing

    Set qryWMI = Nothing

End Sub

saya mengginkan output dapat di insert dalam tabel ??

gimana ya caranya

terima kasih

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

SPAM IS PROHIBITED

Visit Your Group

• New Members 5

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___