创建网络磁盘映射脚本

在域环境下，用户桌面自动获取一个网络磁盘的方法。

首先，用户登录系统时，执行检查文件服务器上是否有自己的共享文件夹。可以采用如下保存为批处理：

@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",然后将两个脚本添加到开机登录策略里即可。

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

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

设置快捷方式

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