Программка для подключения сетевого диска

Private Declare Function WNetConnectionDialog Lib 'mpr.dll' (ByVal hwnd As Long, _
    ByVal dwType As Long) As Long
Private Declare Function WNetDisconnectDialog Lib 'mpr.dll' (ByVal hwnd As Long, _
    ByVal dwType As Long) As Long
 
' show the dialog to connect/disconnect a network disk
'
' If the argument is True it shows the ConnectDialog,
'  otherwise it shows the Disconnect dialog
' the second argument is the hWnd of the parent dialog
'
'The function returns False if the dialog is canceled, True otherwise.
 
Function ShowNetworkDiskConnectionDialog(ByVal ConnectDialog As Boolean, _
    Optional ByVal hwnd As Long) As Boolean
    Const RESOURCETYPE_DISK = &H1
    If ConnectDialog Then
        ShowNetworkDiskConnectionDialog = (WNetConnectionDialog(hwnd, _
            RESOURCETYPE_DISK) = 0)
    Else
        ShowNetworkDiskConnectionDialog = (WNetDisconnectDialog(hwnd, _
            RESOURCETYPE_DISK) = 0)
    End If
End Function

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

   Private Sub Command1_Click()
   Shell 'c:windowsdesktopdisk.bat', vbMinimizedFocus
   End Sub