在域环境下,用户桌面自动获取一个网络磁盘的方法。
首先,用户登录系统时,执行检查文件服务器上是否有自己的共享文件夹。可以采用如下保存为批处理:
@echo off
if 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",然后将两个脚本添加到开机登录策略里即可。
另,最好加一条组策略,即:计算机配置-策略-管理模板-系统-登录:计算机启动和登录总是等待网络,开启。
另外一种方法:设置驱动器映射
设置快捷方式
转载于:https://blog.51cto.com/qqing/1549327