创建网络磁盘映射脚本

在域环境下，用户桌面自动获取一个网络磁盘的方法。
首先，用户登录系统时，执行检查文件服务器上是否有自己的共享文件夹。可以采用如下保存为批处理：
@echo offif not exist "\\ShareFile\new\%username%" mkdir "\\ShareFile\new\%username%"Exit
其次，创建磁盘共享路径Option Explicit
Dim objNetwork, objShell
Dim strShareDrive, strShareDrivePath, strUserName, strUserDomain
strShareDrive = "J:"
StrShareDrivePath = "\\Sharefile\new\"
'StrShareDrivePath为网络磁盘共享路径

Set objNetwork = WScript.CreateObject("WScript.Network")

strUserName = objNetwork.UserName

objNetwork.MapNetworkDrive strShareDrive, strShareDrivePath & strUserName

Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strShareDrive).Self.Name = "WorkSpace"
WScript.Quit

将上面代码保存为"drivepath.vbs",然后将两个脚本添加到开机登录策略里即可。

另，最好加一条组策略，即：计算机配置-策略-管理模板-系统-登录：计算机启动和登录总是等待网络，开启。

另外一种方法：设置驱动器映射




设置快捷方式




本文出自 “畅谈虚拟” 博客，转载请与作者联系！