我要做个批处理自动运行网络磁盘映射，请问要怎么做？

假定有一台机器名为Heaven，在这台机器上有一个共享文件夹，它的共享名称为Share，而且可以使用用户名user登录，user的密码为GodLoveMe，那么将这个网络文件夹映射为本地的H:盘的命令如下：
映射网络驱动程序的命令：
net
use
H:
\\Heaven\Share
GodLoveMe
/USER:user
想建立批处理的话,直接将
net
use
H:
\\Heaven\Share
GodLoveMe
/USER:user
复制
然后新建一个文本文档,将内容粘贴进去,然后点击文件-另存为-文件类型选择所有,输入文件名
sharebat
确定,即可如果想一开机就运行这个命令,你可以吧这个批处理拖到开始-程序-启动
里面,下次开机的时候,就自动运行网络磁盘映射了

映射网络驱动器
映射网络驱动器的 *** 作步骤：回到 *** 作系统的桌面，打开“我的电脑”。在“工具”菜单中，选择“映射网络驱动器”项，d出设置窗口
单击“确定”按钮后，单击“完成”按钮，完成网络驱动器的设置。这样在“我的电脑”中，将直接增加一个盘符为“Z”的网络驱动器。

1、设置Windows系统变量。C:\Users\Lander Zhang\OneDrive - XXX 中 Lander Zhang就是一个系统变量，也就是不同的用户登陆系统会使用对应用户的配置信息，系统会根据这个变量自动识别，而不用关心系统安装在哪个分区，用户的配置文件保存在哪里，用户配置文件夹名称是什么，例如 Angel Wang 登陆了这台电脑，则 OneDriver 文件夹就是 C:\Users\Angel Wang\OneDrive - XXX 。

2、将文件夹映射为硬盘盘符。需要映射 OneDriver 这个本地文件夹，为好记就设置硬盘盘符为O盘。新建一个text文件命名为 “Mapping_ODriver” 然后编辑 - 输入：subst O: C:\Users\%USERNAME%\OneDrive - XXXX，（OneDriver 后边的XXXX是不同的公司不一样，注意 - 前后有空格；双引号为英文输入法下的）。双击运行Mapping_ODriverbat 就可以实现将当前用户配置文件夹下的 OneDrive - XXXX 这个文件夹映射为 O 盘，映射的 O 盘同源文件夹所在的硬盘分区大小一样。如果要断开，只需要输入命令：subst O: /D，为实用方便也可以做成 bat 文件，需要使用时双击运行就好了。

右键“我的电脑”—>映射网络驱动器，如果是局域网上的文件夹，只要你能在网上邻居中看的见的文件夹都能映射，在“浏览”中找就好了。 如果是网络上的FTP文件夹，只要登陆一次，就自动会有一个FTP文件添加到网上邻居中，下次登陆只需打开网上邻居双击

本来可以用简单的dos命令的，但是影射成功与否返回不理想，建议用API，见下面

Module LocalNetConnect'模块,直接复制即可
    Public Declare Function WNetAddConnection2 Lib "mprdll" Alias "WNetAddConnection2A" (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer
    Public Declare Function WNetCancelConnection2 Lib "mprdll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Integer, ByVal fForce As Integer) As Integer
    Public Structure NETRESOURCE
        Dim dwScope As Integer
        Dim dwType As Integer
        Dim dwDisplayType As Integer
        Dim dwUsage As Integer
        Dim lpLocalName As String
        Dim lpRemoteName As String
        Dim lpComment As String
        Dim lpProvider As String
    End Structure
    Public Function netconnect(ByVal localDrive As String, ByVal sharePath As String, ByVal userName As String, ByVal UserPassword As String) As Boolean
        Dim NetR As New NETRESOURCE
        Dim ErrInfo As Integer
        NetRdwScope = 2
        NetRdwType = 1
        NetRdwDisplayType = 3
        NetRdwUsage = 1
        '设置驱动器
        NetRlpLocalName = localDrive
        '设置远程端口名字
        NetRlpRemoteName = sharePath
        '设置连接
        ErrInfo = WNetAddConnection2(NetR, UserPassword, userName, 1)
        If ErrInfo = 0 Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function netdisconnect(ByVal localDrive As String) As Boolean
        Dim ErrInfo As Integer
        ErrInfo = WNetCancelConnection2(localDrive, 1, False)
        If ErrInfo = 0 Then
            Return True
        Else
            Return False
        End If
    End Function
End Module
‘调用
 Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click
 '这里是映射调用，administrator为用户名，根据实际用户名
 ’如果将“Z:”设置为空就不会网络盘映射但是已经和1722612047联机了（返回真时成立)。
        If netconnect("Z:", "\\1722612047\c$", "administrator", "局域网电脑实际密码") = True Then
            MsgBox("success")
        Else
            MsgBox("Faile")
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button2Click'这里是取消映射
        If netdisconnect("Z:") = True Then
            MsgBox("success")
        Else
            MsgBox("Faile")
        End If
    End Sub

可以建立下面内容的bat文件，在计划任务中加上，设置每次开机执行。
net use Y: \\JEOUU\UPGREAT "RDpassword" /u:"ADMINISTRATOR"
--
Y: --需要映射到本地的盤符
\\JEOUU\UPGREAT --远端计算机的共享目录
RDpassword --映射的密码
ADMINISTRATOR --映射的用户名
如远端共享目录不要求用户名和密码则可以用
net use Y: \\JEOUU\UPGREAT
就可以。
增加用户名和密码的语句，可以用在需要给不同人分配不同权限的情况下，
如一部分人以gust 权限映射--只读，一部分人以user权限映射--可修改

---