VBscript - Mapping Network Drive 新增網路磁碟機

既然powershell 的寫了，乾脆連VBscript的版本也一併附上。


==================


Option Explicit
Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter,strUserName
strDriveLetter = "N:"
Set objNetwork = CreateObject("WScript.Network")
strUserName = objNetwork.Username
strRemotePath = "\\127.0.0.1\c$\Users\" & strUserName & "\Documents"
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strUserName


=================


說明一下
strDriveLetter :將你要連接的網路磁碟機設定磁碟機代號
strRemotePath :設定網路磁碟機位置 (這裡暫時用本機的資料夾做示範)


最後一行為修改名稱，把名稱修改為登入這台電腦的使用者名稱
如果要特別指定名字，可以直接修改你要得名字。
例如 strNewName = "TEST"