创建网络磁盘映射脚本

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

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

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