Visual Basic Error Codes and Messages

Function GetIPAddress()Const strComputer As String = “.” ‘ Computer name. Dot means local computerDim objWMIService, IPConfigSet, IPConfig, IPAddress, iDim strIPAddress As String‘ Connect to the WMI serviceSet objWMIService = GetObject(“winmgmts:” _& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)‘ Get all TCP/IP-enabled … ................
................