磁盘映射共享及建立快捷方式批处理命令

@echo off
mode con cols=60 lines=20
color 24
title sruu.net共享配置
echo ************************************************************
echo ******** 系统运行后，共享对应如下 ********
echo ******** z盘为个人用盘 ********
echo ******** y盘为公司原共享盘 ********
echo ******** x盘为部门共享盘 ********
echo ************************************************************
echo *************请输入你OA上显示姓名,然后按回车键**************
set /p name=
echo ***************请输入你OA用户名,然后按回车键****************
set /p oa_name=
echo ***************请输入你所在部门,然后按回车键****************
set /p group=
net use * /del /yes
net use z: \\192.168.1.233\%name%$ "mind" /user:%oa_name%
net use x: \\192.168.1.233\%group% "mind" /user:%oa_name%
net use y: \\192.168.1.233\cygx "mind" /user:%oa_name%
在服务器上 建立了每个人对应的共享及其部门的共享，每个人对应的文件放在user/文件夹下。在部门的文件夹建立其网络快捷方式，设置好权限。不过，这样有一个问题，每次重启后，要不就是磁盘共享消失，要不就是需要输入密码，无奈之下，又加了段代码
@echo off
mode con cols=60 lines=20
color 24
title 迈德国际共享配置
echo ************************************************************
echo ******** 系统运行后，共享对应如下 ********
echo ******** z盘为个人用盘 ********
echo ******** y盘为公司原共享盘 ********
echo ******** x盘为部门共享盘 ********
echo ************************************************************
echo *************请输入你OA上显示姓名,然后按回车键**************
set /p name=
echo ***************请输入你OA用户名,然后按回车键****************
set /p oa_name=
echo ***************请输入你所在部门,然后按回车键****************
set /p group=
net use * /del /yes
net use z: \\192.168.1.233\%name%$ "mind" /user:%oa_name%
net use x: \\192.168.1.233\%group% "mind" /user:%oa_name%
net use y: \\192.168.1.233\cygx "mind" /user:%oa_name%
rem -----后面为加的代码----
echo @echo off >c:\windows\share.bat
echo net use z: \\192.168.1.233\%name%$ "mind" /user:%oa_name% >>c:\windows\share.bat
echo net use x: \\192.168.1.233\%group% "mind" /user:%oa_name% >>c:\windows\share.bat
echo net use y: \\192.168.1.233\cygx "mind" /user:%oa_name% >>c:\windows\share.bat
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v share /t reg_sz /d c:\windows\share.bat /f

Windows中有很多命令我们很少使用，在这里我就介绍一下我在Windows中的常用的几个命令的使用方法，利用这些命令可以简化或者方便我们的使用。

1． 镜像虚拟磁盘subst命令

利用subst命令可以将一个文件夹镜像成本地的一个硬盘，不如我们可以在E盘中有一个文件夹叫做DiskB，我们可以利用下面的命令创建一个B盘

映射虚拟磁盘：

subst B: E:\DiskB

就这样在资源管理器中就有了一个B盘，要删除B盘可以使用下面的命令

删除虚拟磁盘：

subst B: /D

直接使用subst命令可以察看虚拟磁盘，命令如下：

subst

这个命令可以简化很多操作，比如我们把一个文件放在一个路径很深的文件夹中，每次我们想要操作这些文件就必须沿着文件夹的路径一级一级地打开，这样操作很费时。如果使用虚拟硬盘就可以很方便的进入到我们需要操作的文件夹了。

2． net use 命令映射一个网络驱动器

我们在使用局域网是经常要映射很多的网络驱动器，但是这些网络驱动器不会自动删除，在每次开机时都会要我们输入密码。我觉得这很繁琐，能不能简化一下操作呢？其实是可以的，那就是使用net

use命令，使用这个命令就可以自动映射一个网络驱动器。我们如果将这些命令保存在一个批处理文件中，然后让在启动文件夹中插入一个快捷方式，运行这个批处理文件，那么我们就不需要每次开机时输入密码了，不过对于windows

2000 professional中每次开机时还会提示输入密码，不过此时我们可以选择按以下Esc键，然后让我们的批处理文件来进行映射操作。对于2000

Server好像在每次开机时如果是用net use 命令映射的驱动器在第二次开机时不会自动连接。

下面介绍一下net use 命令的使用方法

假定有一台机器名为Heaven，在这台机器上有一个共享文件夹，它的共享名称为Share，而且可以使用用户名user登录，user的密码为GodLoveMe，那么将这个网络文件夹映射为本地的H:盘的命令如下：

映射网络驱动程序的命令：

net use H: GodLoveMe /USER:user

要删除网络驱动器H:盘，可以使用下面的命令：

删除网络驱动器：

net use H: /D

直接使用net use命令可以察看已经映射的网络驱动器，命令如下：

net use

3． net share命令共享一个文件夹

使用命令net share可以共享一个文件夹，删除一个共享，察看当前有哪些共享文件夹

共享一个文件夹，比如在E:盘有一个文件夹名称为Share，我们要把它共享为一个名为ShareFolder的共享文件夹，可以使用下面的命令

net share ShareFolder=E:\Share

不过此时的共享权限是默认共享权限，如果要修改可以在资源管理器中进行修改。

删除一个共享

net share ShareFolder /D

直接使用net share命令可以察看当前有哪些共享文件夹，这样可以方便地找到当前机器上都有哪些共享文件夹，而且可以删除一些没必要的共享，命令如下：

net share

4． explorer 命令打开资源管理器

对于喜欢使用控制台的人来说，经常会在一个目录低下，然后希望在资源管理器中打开当前文件夹，可以使用explorer命令实现这个功能。

比如打开当前文件夹：

explorer .

要打开一个指定的文件夹，比如希望在资源管理器中打开E:\Share文件夹，可以使用这个命令：

explorer E:\Share

Microsoft Windows 2000 [Version 5.00.2195]

(C) 版权所有 1985-2000 Microsoft Corp.

C:\>net use "**834060" /user:**

命令成功完成。

C:\>net use

会记录新的网络连接。

状态       本地        远程                      网络

-------------------------------------------------------------------------------

OK                              Microsoft Windows 网络

OK                              Microsoft Windows 网络

断开                             Microsoft Windows 网络

命令成功完成。

C:\>net view .*

在 .* 的共享资源

资源共享名   类型         用途 注释

-------------------------------------------------------------------------------

10.0.A_PL1   Disk

命令成功完成。

C:\>net view

在 的共享资源

资源共享名   类型         用途 注释

-------------------------------------------------------------------------------

bin          Disk

命令成功完成。

C:\>net use "421022" /user:hanpin

系统发生 51 错误。

远程计算机不可用 。

C:\>net shate

此命令的语法是:

NET [ ACCOUNTS | COMPUTER | CONFIG | CONTINUE | FILE | GROUP | HELP |

      HELPMSG | LOCALGROUP | NAME | PAUSE | PRINT | SEND | SESSION |

      SHARE | START | STATISTICS | STOP | TIME | USE | USER | VIEW ]

C:\>net share

共享名   资源                        注释

-------------------------------------------------------------------------------

IPC$                                         远程 IPC

D$           D:\                             默认共享

C$           C:\                             默认共享

F$           F:\                             默认共享

ADMIN$       C:\WINNT                        远程管理

E$           E:\                             默认共享

bin          F:\bin

命令成功完成。

C:\>net use z:

命令成功完成。

C:\>net use

会记录新的网络连接。

状态       本地        远程                      网络

-------------------------------------------------------------------------------

OK           Z:                Microsoft Windows 网络

断开                            Microsoft Windows 网络

OK                              Microsoft Windows 网络

断开                             Microsoft Windows 网络

OK                                 Microsoft Windows 网络

命令成功完成。

C:\>net use "**834060" /user:**

命令成功完成。

C:\>net use

会记录新的网络连接。

状态       本地        远程                      网络

-------------------------------------------------------------------------------

OK           Z:                Microsoft Windows 网络

断开                            Microsoft Windows 网络

OK                              Microsoft Windows 网络

断开                             Microsoft Windows 网络

OK                                 Microsoft Windows 网络

命令成功完成。

C:\>net use "**834060" /user:**

命令成功完成。

C:\>net use z:

系统发生 85 错误。

本地设备名已在使用中。

C:\>net use y:

命令成功完成。

C:\>net use z: /del

在与 z: 的连接中，有打开的文件和/或没有结束的目录搜索。

是否继续断开连接并强行关闭? (Y/N) [N]: y

z: 已经删除。

C:\>net use z:

命令成功完成。

C:\>net use

会记录新的网络连接。

状态       本地        远程                      网络

-------------------------------------------------------------------------------

OK           Y:               Microsoft Windows 网络

OK           Z:               Microsoft Windows 网络

断开                            Microsoft Windows 网络

OK                            Microsoft Windows 网络

OK                              Microsoft Windows 网络

断开                             Microsoft Windows 网络

OK                                 Microsoft Windows 网络

命令成功完成。

C:\>net use temp /el

选项 /EL 未知。

此命令的语法是:

NET USE [devicename | *] [\\computername\sharename[\volume] [password | *]]

        [/USER:[domainname\]username]

        [/USER:[dotted domain name\]username]

        [/USER:[username@dotted domain name]

        [[/DELETE] | [/PERSISTENT:{YES | NO}]]

NET USE {devicename | *} [password | *] /HOME

NET USE [/PERSISTENT:{YES | NO}]

请键入 NET HELPMSG 3506 以获得更多的帮助。

C:\>net use temp /del

找不到网络连接。

请键入 NET HELPMSG 2250 以获得更多的帮助。

C:\>net use * /del

您有以下的远程连接:

    Y:              

    Z:              

                    

                    

                    

                    

                    

继续运行会取消连接。

是否继续此操作? (Y/N) [N]: y

在与 Y: 的连接中，有打开的文件和/或没有结束的目录搜索。

是否继续断开连接并强行关闭? (Y/N) [N]: n

命令成功完成。

C:\>net view

服务器名称            注释

-------------------------------------------------------------------------------

      Elux








                 HANLU

\\**


命令成功完成。

C:\>net use

会记录新的网络连接。

状态       本地        远程                      网络

-------------------------------------------------------------------------------

OK           Y:               Microsoft Windows 网络

命令成功完成。

映射共享和在桌面建立快捷方式

1. '映射共享和在桌面建立快捷方式 '登录(logon)脚本 'On Error Resume Next Set objNetwork = CreateObject("Wscript.Network") WScript.echo objNetwork.UserDomain Set objSysInfo = CreateObject("ADSystemInfo") strUserPath = "LDAP://" & objSysInfo.UserName Set objUser = GetObject(strUserPath) Dim WshShell Dim strDesktop Dim oShellLink1, oShellLink2, oShellLink3 Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") WScript.echo strUserPath 'strGroupPath = "LDAP://" & objUser.MemberOf For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN WScript.echo strGroupName Select Case strGroupName Case "营销中心" objNetwork.MapNetworkDrive "X:", " \\fileserver\营销中心$" Set oShellLink1 = WshShell.CreateShortcut(strDesktop & "\营销中心共享组.lnk") oShellLink1.TargetPath = "X:" oShellLink1.WindowStyle = 1 oShellLink1.Description = "营销中心共享文件" oShellLink1.WorkingDirectory = "X:" oShellLink1.Save Case "财务部" objNetwork.MapNetworkDrive "X:", " \\fileserver\财务部$" Set oShellLink1 = WshShell.CreateShortcut(strDesktop & "\财务部共享文件组.lnk") oShellLink1.TargetPath = "X:" oShellLink1.WindowStyle = 1 oShellLink1.Description = "财务部共享文件" oShellLink1.WorkingDirectory = "X:" oShellLink1.Save Case "管理部" objNetwork.MapNetworkDrive "X:", " \\fileserver\管理部$" Set oShellLink1 = WshShell.CreateShortcut(strDesktop & "\管理部共享文件组.lnk") oShellLink1.TargetPath = "X:" oShellLink1.WindowStyle = 1 oShellLink1.Description = "管理部共享文件" oShellLink1.WorkingDirectory = "X:" oShellLink1.Save Case "制造部" objNetwork.MapNetworkDrive "X:", " \\fileserver\制造部$" Set oShellLink1 = WshShell.CreateShortcut(strDesktop & "\制造部共享文件组.lnk") oShellLink1.TargetPath = "X:" oShellLink1.WindowStyle = 1 oShellLink1.Description = "制造部共享文件" oShellLink1.WorkingDirectory = "X:" oShellLink1.Save Case "研发中心" objNetwork.MapNetworkDrive "X:", " \\fileserver\研发中心$" Set oShellLink1 = WshShell.CreateShortcut(strDesktop & "\研发中心共享文件组.lnk") oShellLink1.TargetPath = "X:" oShellLink1.WindowStyle = 1 oShellLink1.Description = "研发中心共享文件" oShellLink1.WorkingDirectory = "X:" oShellLink1.Save Case "采购部" objNetwork.MapNetworkDrive "X:", " \\fileserver\采购部$" Set oShellLink1 = WshShell.CreateShortcut(strDesktop & "\采购部共享文件组.lnk") oShellLink1.TargetPath = "X:" oShellLink1.WindowStyle = 1 oShellLink1.Description = "采购部共享文件" oShellLink1.WorkingDirectory = "X:" oShellLink1.Save Case "品质部" objNetwork.MapNetworkDrive "X:", " \\fileserver\品质部$" Set oShellLink1 = WshShell.CreateShortcut(strDesktop & "\品质部共享文件组.lnk") oShellLink1.TargetPath = "X:" oShellLink1.WindowStyle = 1 oShellLink1.Description = "品质部共享文件" oShellLink1.WorkingDirectory = "X:" oShellLink1.Save End Select

复制代码