Multiple Network Drive

Option Explicit Dim objNetwork, strRemotePath1, strRemotePath2 Dim strDriveLetter1, strDriveLetter2
 
strDriveLetter1 = "L:"
strDriveLetter2 = "M:"
strRemotePath1 = "\\\"
strRemotePath2 = "\\\"
 
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

Printed from: http://dot.choosen.net/2005/12/09/multiple-network-drive/ .
© 2010.

Leave a Reply

  • Search

  • Archives