Multiple Network Drive

Filed under: Bas|Bang, trickitortips — 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 tambahin Network drivenya lagi tinggal tambhin “strDriveLetter” ama “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..
cmiiw

  -

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…