' +----------------------------------------------------------------------------+
' |                          Jeffrey M. Hunter                                 |
' |                      jhunter@idevelopment.info                             |
' |                         www.idevelopment.info                              |
' |----------------------------------------------------------------------------|
' |      Copyright (c) 1998-2011 Jeffrey M. Hunter. All rights reserved.       |
' |----------------------------------------------------------------------------|
' | FILE       : MapNetworkDrive.vbs                                           |
' | CLASS      : Networking                                                    |
' | PURPOSE    : Demonstrate how to map two different network drives using the |
' |              WScript.Network object: (1) without name and password and (1) |
' |              (1) with name and password.                                   |
' |                                                                            |
' | PARAMETERS : None                                                          |
' | USAGE      : cscript MapNetworkDrive.vbs //NoLogo                          |
' | NOTE       : As with any code, ensure to test this script in a development |
' |              environment before attempting to run it in production.        |
' +----------------------------------------------------------------------------+
 
Option Explicit

Function Main
    
    Dim objNetwork

    Set objNetwork = WScript.CreateObject("WScript.Network")

    ' Add New Mapped Network Drive Without Username and Password
    WScript.Echo "Connecting to \\Cartman\Share2..."
    objNetwork.MapNetworkDrive "S:", "\\Cartman\Share2"
    WScript.Echo "Connected." & VbCrLf
    
    ' Remove Newly Created Mapped Network Drive
    WScript.Echo "Disconnecting mapped drive S:"
    objNetwork.RemoveNetworkDrive("S:")
    WScript.Echo "Disconnected." & VbCrLf


    ' Add new Mapped Network Drive With Username and Password
    WScript.Echo "Connecting to \\Cartman\Protected..."
    objNetwork.MapNetworkDrive "P:", "\\Cartman\Protected", false, "user", "pass"
    WScript.Echo "Connected." & VbCrLf

    ' Remove Newly Created Mapped Network Drive
    WScript.Echo "Disconnecting mapped drive P:"
    objNetwork.RemoveNetworkDrive("P:")
    WScript.Echo "Disconnected." & VbCrLf

End Function

Main
WScript.Quit(0)