On error resume next

Dim strDriveMapping
Dim boDebug

'Sets Debugging state
boDebug = False
'boDebug = True

'Debugging
If boDebug = True Then
	MsgBox "Debugging is ON."
End If


MapNetworkDrive "Q:", "\\networkspace2\xxxxxxxxx","networkspace2\xxxxxx","yyyyyyy"
MapNetworkDrive "M:", "\\mutant1\harddisk","mutant1\xxxxx","yyyy"
MapNetworkDrive "Z:", "https://test.stackstorage.com/remote.php/webdav/","xxxxxx","yyyyy"

MsgBox "Schijven gemapped."


If boDebug = True Then
  MsgBox "LoginScript Finished!"
End If


Sub MapNetworkDrive(strDrive, strShare, strUser, strPassWord)
	' Map network dirve

	Dim objShell, objNetwork
	Dim strPath  
	On Error Resume Next
	' Init variables
	Set objNetwork = CreateObject("WScript.Network")
	Set objShell = CreateObject("WScript.Shell")

	' Check If driveletter contains ":"
	If Instr(strDrive, ":") = 0 Then strDrive = strDrive & ":" ' add ":"
	On Error Resume Next
	
	' Remove driveletter
	objNetwork.RemoveNetworkDrive strDrive, True
	
	' Add driveletter
	objNetwork.MapNetworkDrive strDrive, strShare, "false", strUser, strPassWord 
	
	'Debugging
	If boDebug = True Then
		If Err.Number <> 0 Then
			Msgbox "Unable to map driveletter " & strDrive & vbcrlf & "code : " & Err.Number & " " & strShare & " " & Err.Description
		Else
			MSgBox "Drive mapping created succesfully (" & strDrive & " to " & strShare & ")"
		End IF
	End IF

	'Cleanup
	Set objNetwork = Nothing
	Set objShell = Nothing
End Sub