在公司域控环境有共享服务器，为每个部门提供相对应权限的共享文件夹。后站长编程导航网续新员工要访问共享文件夹时，为了提高工作效率和方便性，直接发个批处理文件过去，员工点击执行会自动记录用户凭证并在桌面创建对应的快捷方式。 批处理方式一：只创建快捷方式，用户名和密码手动输入 @echo off echo 使用前先关掉360，腾讯管家，金山毒霸等杀毒软件 :Program域共享文件夹路径 set Program=\.1.2.14\ci :LnkName桌面快捷方式显示名称 set LnkName=ci if not defined WorkDir call:GetWorkDir "%Program%" (echo Set WshShell=CreateObject("WScript.Shell"^) echo strDesKtop=WshShell.SpecialFolders("DesKtop"^) echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&"\%LnkName%.lnk"^) echo oShellLink.TargetPath="%Program%" echo oShellLink.Save)>makelnk.vbs echo 正在创建桌面快捷方式...请勿退出，耐心等待！ makelnk.vbs del /f /q makelnk.vbs mshta vbscript:msgbox("设置完成！--IT部")(Window.close) exit goto :eof :GetWorkDir set WorkDir=%~dp1 set WorkDir=%WorkDir:~,-1% goto :eof   批处理方式二：登记用户凭证和创建快捷方式 @echo off echo 使用前先关掉360，腾讯管家，金山毒霸等杀毒软件 :以下是共享服务器地址，用户名和密码 cmdkey /add:10.1.2.14 /user:用户名 /pass:密码 :Program域共享文件夹路径 set Program=\.1.2.14\ci :LnkName桌面快捷方式显示名称 set LnkName=ci if not defined WorkDir call:GetWorkDir "%Program%" (echo Set WshShell=CreateObject("WScript.Shell"^) echo strDesKtop=WshShell.SpecialFolders("DesKtop"^) echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&"\%LnkName%.lnk"^) echo oShellLink.TargetPath="%Program%" echo oShellLink.Save)>makelnk.vbs echo 正在创建桌面快捷方式...请勿退出，耐心等待！ makelnk.vbs del /f /q makelnk.vbs mshta vbscript:msgbox("设置完成！--信息部")(Window.close) exit goto :eof :GetWorkDir set WorkDir=%~dp1 set WorkDir=%WorkDir:~,-1% goto :eof   如果执行发现乱码，则需要修改编码，先把后缀名bat修改回txt，打开TXT文件选择另存为，把默认编码UTF-8修改为ANSI，并再次修改后缀为bat，点击保存即可。