Private Declare Function InternetGetConnectedState Lib “wininet.dll” (ByRef _ lpSFlags As Long, ByVal dwReserved As Long) As LongConst INTERNET_CONNECTION_MODEM = 1Const INTERNET_CONNECTION_LAN = 2Const INTERNET_CONNECTION_PROXY = 4Const INTERNET_CONNECTION_MODEM_BUSY = 8′ return
‘ Add an URL to the IE’s favorites by sending a client side JavaScript to IE’ sURL is the URL that the link will point to’ sDescr is the description
‘ Get a description of the processor using Active Directory” NOTE: requires a reference to the Active DS Type libraryFunction GetCpuDescription() As String Dim thisComputer As ActiveDs.IADsComputer Dim thisService As
‘ Get system information using Active Directory” Returns True if successfull” Returns the following information in its parameters’ ComputerName’ DomainName’ PDC Name’ UserName” NOTE: requires a reference to the Active
Private Declare Function GetUrlCacheEntryInfo Lib “wininet.dll” Alias _ “GetUrlCacheEntryInfoA” (ByVal sUrlName As String, lpCacheEntryInfo As Any, _ lpdwCacheEntryInfoBufferSize As Long) As Long’ Check whether the file identified by the URL