映射网络驱动器VBS脚本

On error resume next
strRemotePath 
= "\\UNC路径" 
strNewName 
= "要显示的名称"

Set objNetwork = CreateObject("Wscript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
      
For i = 0 to colDrives.Count-1 Step 2
        
        
Set objShell = CreateObject("Shell.Application")
        strDriveLetter 
= colDrives.Item(i)
        strName 
= objShell.NameSpace(strDriveLetter).Self.Name
        strName 
= Left(strName,Len(strName)-5)
        
If strName = strNewName Then WScript.Quit
        
        strDriveLetter 
= Chr(Asc(Left(colDrives.Item(i),1))-1& ":"
               
Next

If strDriveLetter= "" Then strDriveLetter="Z:"

' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network"
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath 

' Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name 
= strNewName

你可能感兴趣的:(vbs)