Login using VBScript
Just a quick little note: that chunk here, should be parameterized and moved into a separate procedure:


' POS 1
If NUM_REGS &gt;= 1 Then
    Dim udtPOSOne : Set udtPOSOne = New Mapping
    With udtPOSOne
         .strLocalDrive = "P:"
         .strUNCPath = "\\10.0." &amp; STORE_NUMBER &amp; ".101\dpalm"
         .strPersistent = "False"
         .strUsr = "somename"
         .strPas = "somepass"
    End With
    alMappings.add(udtPOSOne)
End If



...instead of being copied over and repeated 3 times with a different strLocalDrive and strUNCPath.