6.接下来就是部署VBS登录脚本了，给AD用户映射网络磁盘，这个脚本是会判断是否存在相同的网络磁盘，不会重复生成网络磁盘的。

代码如下：

On error resume next
strRemotePath = \\192.168.1.1\test
strNewName = "for test"

Set objNetwork = CreateObject("Wscript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
     
For i = 0 to colDrives.Count-1 Step 2
       
        Set objShell = CreateObject("Shell.Application")
        strDriveLetter = colDrives.Item(i)
        strName = objShell.NameSpace(strDriveLetter).Self.Name
        strName = Left(strName,Len(strName)-5)
        If strName = strNewName Then WScript.Quit
       
        strDriveLetter = Chr(Asc(Left(colDrives.Item(i),1))-1) & ":"
              
Next

If strDriveLetter= "" Then strDriveLetter="Z:"

‘ Section to map the network drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

‘ Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

脚本用法：新建一个文本文档，复制代码，粘贴一下，其中strRemotePath = \\192.168.1.1\test 是服务器IP地址和共享文件夹名，strNewName = "for test" ，是映射磁盘后的名字，根据实际情况更改，然后保存为.vbs格式就OK了，我这里保存为test.vbs

然后用组策略设置用户登陆脚本，具体步骤如下

首先打开ADUC，找到用户所在组织单位，右击---属性

打开属性后，选择组策略选项卡-------新建

新建之后，在点编辑，就可以打开组策略编辑器了

然后在找到如图所示的登陆脚本，打开属性，单击【显示文件】

然后会弹出这个路径。。在把脚本文件复制到Logon文件夹内

接下来，我们在回到登陆属性，点击添加按钮，添加刚才复制到\\admin.com\SysVol\admin.com\Policies\{6CC847A2-8373-43AE-A784-45DA302BED92}\User\Scripts\Logon下的脚步文件test.vbs

点击【浏览】

接下来我们只要在服务器端刷新一下策略就OK了（如果不行，在客户端也刷新一下），

命令：gpupdate /force

 .
分页: [1] [2] [3]

• 上一篇:基于Windows路由和远程访问功能搭建VPN服务器
• 下一篇:封堵漏洞加强Win 2008系统安全

TAG: 权限 环境 文件 身份