網路磁碟機套用更名後，使用者再次套用後程式會出現磁碟重覆問題。

網路磁碟

ericyang99 2013-05-28 15:37:35 ‧ 6628 瀏覽

分享至

請教各位前輩：

小弟因對程式不是很懂，但因公司有網路磁碟連接後的更名需求，因此在網路上搜尋了一個VBS程式後，透過撰寫改版，而產生了一個VBS檔，目前使用者套用該VBS檔案後，會產生網路磁碟機（已更名），但如果重覆執行時，便會出現錯誤訊息，不知應如何才能重覆建立，可以類似net use z: /delete的方式重覆執行，卻不會有錯誤訊息產生。

以下是我寫的指令，還請各位前輩指導應如何修改至可重覆執行，謝謝
' NameDrive.vbs
' VBScript to map a network drive.
' Authors Guy Thomas and Barry Maybury
' Version 1.4 - April 2010
' ----------------------------------------'
'
Option Explicit
Dim objNetwork0, strDrive0, objShell0, objUNC0
Dim objNetwork1, strDrive1, objShell1, objUNC1
strDriveLetter0 = "H:"
strRemotePath0 = "\\192.168.123.123\123"
strNewName0 = "123"
' Section to map the network drive
Set objNetwork0 = CreateObject("WScript.Network")
objNetwork0.MapNetworkDrive strDriveLetter0, strRemotePath0
' Section which actually (re)names the Mapped Drive
Set objShell0 = CreateObject("Shell.Application")
objShell0.NameSpace(strDriveLetter0).Self.Name = strNewName0
'
strDriveLetter1 = "J:"
strRemotePath1 = "\\192.168.123.123\456"
strNewName1 = "456"
' Section to map the network drive
Set objNetwork1 = CreateObject("WScript.Network")
objNetwork1.MapNetworkDrive strDriveLetter1, strRemotePath1
' Section which actually (re)names the Mapped Drive
Set objShell1 = CreateObject("Shell.Application")
objShell1.NameSpace(strDriveLetter1).Self.Name = strNewName1

' End of Example VBScript.
'

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

外獅佬

iT邦大師 1 級 ‧ 2013-05-29 09:05:54

最佳解答

VBScript 刪除網路磁碟機

&lt;pre class="c" name="code">
Option Explicit
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")
objNetwork..RemoveNetworkDrive "H:"

程式碼copy & paste之後，請稍微做點功課，研究一下。

回應 7
分享
檢舉

看更多先前的回應...收起先前的回應...

ericyang99 iT邦新手 5 級 ‧ 2013-05-29 15:01:20 檢舉

這位前輩所提供的方式，其實小弟我也有想過，但全部移除再全部建立，並非是我最想要的結果，比較是希望由判斷的方式去確認磁碟存在與否，不存在就自動建立，有存在的就略過。

外獅佬 iT邦大師 1 級 ‧ 2013-05-29 15:15:55 檢舉

用on error resume next吧....遇到錯誤就略過

外獅佬 iT邦大師 1 級 ‧ 2013-05-29 15:17:46 檢舉

如果要判斷是否為網路磁碟機，這個可能要動用到WMI了

外獅佬 iT邦大師 1 級 ‧ 2013-05-29 15:30:00 檢舉

簡單一點的方式

&lt;pre class="c" name="code">
Option Explicit
Dim objFSO
Dim objNetwork0, strDrive0, objShell0, objUNC0
Dim objNetwork1, strDrive1, objShell1, objUNC1
Set objFSO = CreateObject("Scripting.FileSystemObject")
'判斷磁碟機H是否存在，不存在才連接網路磁碟機
If (objFSO.DriveExists("H:") = False) Then
    strDriveLetter0 = "H:"
    strRemotePath0 = "\\192.168.123.123\123"
    strNewName0 = "123"
    Set objNetwork0 = CreateObject("WScript.Network")
    objNetwork0.MapNetworkDrive strDriveLetter0, strRemotePath0
End If
Set objShell0 = CreateObject("Shell.Application")
objShell0.NameSpace(strDriveLetter0).Self.Name = strNewName0
If (objFSO.DriveExists("J:") = False) Then
    strDriveLetter1 = "J:"
    strRemotePath1 = "\\192.168.123.123\456"
    strNewName1 = "456"
    Set objNetwork1 = CreateObject("WScript.Network")
    objNetwork1.MapNetworkDrive strDriveLetter1, strRemotePath1
End If
Set objShell1 = CreateObject("Shell.Application")
objShell1.NameSpace(strDriveLetter1).Self.Name = strNewName1

ericyang99 iT邦新手 5 級 ‧ 2013-05-29 22:17:18 檢舉

感謝前輩賜教，真的很感謝你，小弟於今早已編修撰寫完成，明日再將在下所請益後寫出的結果，與前輩共同分享，謝謝。

ericyang99 iT邦新手 5 級 ‧ 2013-05-30 08:44:27 檢舉

此為撰寫出的結果,如有寫的不太順的地方或錯誤的地方,再請給予指導,謝謝
http://ithelp.ithome.com.tw/upload/images/20130530/2013053008441751a6a0e13a583_thumb.jpg

ericyang99 iT邦新手 5 級 ‧ 2013-05-30 10:25:49 檢舉

Option Explicit
Dim strDriveLetter, strRemotePath, strNewName
Dim objNetwork, objShell
Dim i
For i =0 To 1 -->套用迴圈
Select Case i
Case 0
strDriveLetter = "H:" -->磁碟機代號
strRemotePath = "\\192.168.123.123\123" -->欲連結的路徑
strNewName = "123" -->網路磁碟機所要給的更換名稱
Case 1
strDriveLetter = "K:"
strRemotePath = "\\192.168.123.123\456"
strNewName = "456"
End Select
'*** remove ***
On Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
Call objNetwork.RemoveNetworkDrive(strDriveLetter, True)
objNetwork = nothing
'*** create ***
Set objNetwork = CreateObject("WScript.Network")
Call objNetwork.MapNetworkDrive (strDriveLetter, strRemotePath)
objNetwork = nothing
'*** rename ****
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
objShell = nothing
NEXT