Dim WSHNetwork Set WSHNetwork = WScript.CreateObject("WScript.Network") On Error Resume Next 'Un Maps Drive (Copy and past as many times as needed for multiple drives WSHNetwork.RemoveNetworkDrive "S:", True, True 'Maps Drive (Copy and past as many times as needed for multiple drives ' the True Statment will cause drive to persist after reboot (in other words it stays till you delete it) WSHNetwork.MapNetworkDrive "q:", "\\bigboss\manuals", false 'Finds current Username and adds it to drive map, useful for user 'shares or home directories. 'WSHNetwork.MapNetworkDrive "Q:", "\\Network_drive\A_Share\" & 'WshNetwork.UserName, True