Get Gateway IP address 1

[Checking]

Implemented MSAccess Application with Backend (residing on company's intranet)& FrontEnds (per User). I want to be shure that users only can connect to the backend when they are physically in the office (thus directly connected to the intranet). So, If they are in the office starting up their local front-ends I want an IP-validation on the connected gateway before connecting to the backend. If they work remotely, they will be connected through a different gateway not allowing them to connect to the backend.
Does anybody can give me a hint as how to catch a gatewayIP address through code ?

Thks in advance !!
Checking

Belgium

 

[Checking]

Found the answer in

http://www.tek-tips.com/viewthread.cfm?qid=900140

Works Great !!

Belgium

 

[PHV]

You may use the following function created in a standard code module:

Public Function getMyGatewayIP()
Dim myWMI As Object, myobj As Object, itm
Set myWMI = GetObject("winmgmts:\\.\root\cimv2")
Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each itm In myobj
  getMyGatewayIP = itm.DefaultIPGateway(0)
  Exit Function
Next
End Function

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Checking]

Thanks very much PHV; works even better !!! Briljant.
Rgds frm

Belgium