IsNetworkInstalled - Check whether the network is installed
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) _
As Long
' Returns True if a Network is found (read-only)
Function IsNetworkInstalled() As Boolean
Const SM_NETWORK = 63
IsNetworkInstalled = GetSystemMetrics(SM_NETWORK)
End Function