Mapping Script
Posted By ariandita on October 25th, 2018
strProfile = “False”
‘To BackUp Server
strDriveLetter1 = “U:”
strRemotePath1 = “\\10.210.110.13\Backup01\Omega”
strUser1 = “ServerServer”
strPassword1 = “Servers”
‘To QNap
strDriveLetter2 = “Q:”
strRemotePath2 = “\\10.211.244.244\Backup\Omega2009”
strUser2 = “binus\backup”
strPassword2 = “backup1234”
Set objNetwork = WScript.CreateObject(“WScript.Network”)
objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1, strProfile, strUser1, strPassword1
set objNetwork = nothing
Set objNetwork = WScript.CreateObject(“WScript.Network”)
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2, strProfile, strUser2, strPassword2
set objNetwork = nothing
Posted in Uncategorized