zoukankan      html  css  js  c++  java
  • 映射网络驱动器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
  • 相关阅读:
    oracle
    mysql的必知技巧
    sql_update
    sql查询
    Java 动态页面技术 之 jsp
    Java 会话技术 之 session
    Java 会话技术 之cookie
    Java HttpServletRequest
    Java HttpServletResponse
    Java Servlet接口、web.xml配置、HttpServlet父类
  • 原文地址:https://www.cnblogs.com/top5/p/1587548.html
Copyright © 2011-2022 走看看