Multiple Network Drive
Option Explicit Dim objNetwork, strRemotePath1, strRemotePath2 Dim strDriveLetter1, strDriveLetter2
strDriveLetter1 = “L:”
strDriveLetter2 = “M:”
strRemotePath1 = “\\<nama server>\<folder sharing>”
strRemotePath2 = “\\<nama server>\<folder sharing>”
Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2
Wscript.Quit
simpan dengan extension .vbs,
kalo mo ditambahkan Network drivenya lagi tinggal tambahkan parameter “strDriveLetter”
dan “strRemotePath” aja..,
Script ini aku tambahkan pada “use config>windows setting>script(logon/logoff)>logon>add-ORganization Unit” kantorku..
kalo bisa usahain networkdrive tersebut sudah di DFS kan agar server ga kedodoran
No comments yet. Be the first to comment this post.