Multiple Network Drive

Filed under: Poetry, Windows — Wrote on Friday, December 9th, 2005 @ 2:30 pm

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.

Leave your comment

:) :( :d :"> :(( :n/ :x 8-| /:) :o :-? :-" :-w ;) [-( :)>- more »

© it’s simply a matter of a time…