Drives mapping

on error resume next

set WshNetwork = WScript.CreateObject("WScript.Network")

Drives = Array("D", "E", "F", "H", "I", "J", "K", "L", "M", "N")

For Each Drive in Drives
    WshNetwork.MapNetworkDrive Drive & ":", "\\file\" & Drive & "$", False
Next