Windows Server 2008 R2 防火墙 “更改设置”按钮为何是灰色的不可用？_百度知道
Windows Server 2008 R2 防火墙 “更改设置”按钮为何是灰色的不可用？
我有更好的答案
钱来来一个路由器，然后插在每台电脑上，连起首选Ping 下对方计算机是否连通；1:在计算机管理里面查看本地用户，启用Guest帐号。2:打开计算机管理－服务和应用程序－服务，在右窗中确保“Computer Browser”&Server&两项没有被停止或禁用。 3:打开网络连接-本地连接-安装IPX/SPX服务确保文件共享。如果还不能共享的话请在文件夹选项-查看-使用简单共享 打勾。这个问题我也出现过!一般都很好解决的,照以下方法试试看!希望能对你有所帮助! 在局域网内 XP不能和 98的电脑互相访，2K和2K、XP与XP也不能互相通信。在工作站访问服务器时，工作站的“网上邻居”中可以看到服务器的名称，但是点击后却无法看到任何共享内容,或者提示找不到网络路径、无权访问等问题，归纳为以下几点如果是XP的话，在首次使用的时候要在网上邻居的属性里面进行网络安装向导。 1、检查计算机之间的物理连接。 网卡是否安装正确，在系统中是否存在资源冲突。交换机或者集线器等网络设备是否正常工作。网线是否都是通的，接法是不是正确（如果有中心节点的局域网，网线要用直通线，两头都是用568B的接法；双机通过网卡直接互联，网线应该用交叉线，一头为568A,一头为568B；没有UP－link端口的集线器级联要用交叉线，交换机和集线器级联，交换机和交换机级联都用直通线。568A接法：绿白、绿、橙白、蓝、蓝白、橙、棕白、棕；568B接法：橙白、橙、绿白、蓝、蓝白、绿、棕白、棕）。 2、确保所有计算机上都安装了TCP/IP协议，并且工作正常。 检测 TCP/IP协议是否正常工作，可以PING 127.0.0.1，如果ping通，证明正常。 在98和2k中添加删除协议是很简单，这里就不介绍了。但是该协议是Microsoft XP/ 2003的核心组件，是不能删除（不信你可以到XP里，卸载的按钮是灰色不可用的）。但是我们可以使用NetShell实用程序使TCP/IP协议恢复到初次安装操作系统时的状态。 在命令提示符里运行该命令： netsh int ip reset c:\resetlog.txt， 其中，Resetlog.txt记录命令结果的日志文件，一定要指定，这里指定了Resetlog.txt日志文件及完整路径。运行此命令的结果与删除并重新安装TCP/IP协议的效果相同。 3、使用ping命令测试网络中两台计算机之间的连接和网络中名称解析是否正常 ping对方IP是很简单的，这里不多说了，不明白的自己上网搜资料去。ping名称格式ping 计算机的名称。通过ping命令用名称测试计算机连接，确定计算机的名称的方法是：在命令提示符处，输入SYSTEMINFO。或者在桌面上右击我的电脑-属性，然后单击计算机名称。如果看到该命令的成功答复，说明您在计算机之间具有基本连接和名称解析。 4、正确设置网络： IP地址是否在同一个子网内。在TCP/IP协议上是否捆绑NETBIOS解析计算机名（在TCP/IP协议属性——高级——WINS——选择启用TCP/IP上的NETBIOS）。 查看是否选定“文件和打印服务”组件，所有计算机也都必须启用“文件和打印共享”。在网上邻居和本地连接属性里可以看到是否安装了打印机与文件共享。如果在网上邻居中看不到自己的机器，说明你没有安装打印机与文件共享。 5、启动&计算机浏览器&服务 WIN2K/XP要确保计算机浏览服务正常启动。打开计算机管理-服务和应用程序-服务，查看“Computer Browser”没有被停止或禁用。 6、运行网络标识向导，将你的计算机加入局域网 控制面板——系统——计算机名，单击“网络 ID”，开始“网络标识向导”下一步之后，选择第一项“本机是商业网络的一部分，用它连接到其他工作着的计算机”；继续“下一步”，选择“公司使用没有域的网络”；再下一步，就输入你的局域网的工作组的名称。完成之后，重新启动计算机！ 7、Win2k和XP安装NetBEUI协议 在Win2k和XP中NetBEUI协议是一个高效协议在局域网中使，因此最好能安装此协议 2K中的安装：网上邻居-属性-本地连接-属性----安装------协议-------NetBEUI Protocol NetBEUI 通讯协议已不是 Windows XP 的一部份 ，但仍然将它保存在 Windows XP 的光盘内， 安装办法如下： 将 Windows XP 的光盘放入光驱内，并开启 \\VALUEADD\\MSFT\\NET\\NETBEUI 目录； 复制 nbf.sys 到 %SYSTEMROOT%\\SYSTEM32\\DRIVERS\\ 目录 复制 netnbf.inf 到 %SYSTEMROOT%\\INF\\ 目录 网上邻居——属性——本地连接——属性——安装——协议—— 选NetBEUI Protocol——添加，便进行安装 重新启动电脑生效 8、启用Guest(来宾)帐户 XP和2k的Guest帐户允许其他人使用你的电脑，但不允许他们访问特定的文件，也不允许他们安装软件。可以使用下面的命令授予来宾帐户网络访问： net user guest /active:yes 或者打开控制面板-用户帐户或者在管理工具-计算机管理-本地用户和组中打开Guest帐户 9、查看本地安全策略设置是否允许Guest(来宾)帐号从网络上访问。 在运行里输入gpedit.msc，弹出组策略管理器，在‘计算机配置-Windows设置-本地策略-用户权利指派’中，有“拒绝从网络访问这台计算机”策略阻止从网络访问这台计算机，如果其中有GUEST帐号,解决办法是删除拒绝访问中的GUEST帐号。或者在“从网络上访问该计算机”添加帐号 10、正确设置防火墙： 确保WINXP自带的防火墙没有开启，打开本地连接属性-高级，关掉Internet连接防火墙。如果使用了第三方的防火墙产品，参考其使用手册，确保防火墙没有禁用以下端口：UDP-137、UDP-138、TCP-139、TCP-445。 11、检查RPC、Plug and Play服务已启动，检查相应的系统文件夹的权限，重新注册以下的动态链接库： regsvr32 netshell.dll regsvr32 netcfgx.dll regsvr32 netman.dll 12、设置帐号和密码 由于WinNT内核的操作系统，在访问远程计算机的时候，好像总是首先尝试用本地的当前用户名和密码来尝试，可能造成无法访问，可以在要访问的计算机中把用户密码添加进去，并在‘计算机配置-Windows设置-本地策略-用户权利指派’中，在“从网络上访问该计算机”中添加用户就可以了。 13、尝试用多种方法访问“网络计算机” 通过IP访问，在地址栏上输入在地址输入栏中输入“\\IP地址\”，单击“确定”。 通过计算机用计算机名访问，在地址栏输入“\\计算机名字\”，单击“确定”。 用搜索计算机的方法访问，计算机更新列表需要时间，搜索计算机可以加快更新列表。点击“网上邻居”右键中的“搜索计算机”，输入计算机名，点击“立即搜索”，就可以看到你要访问的计算机。直接双击右边计算机名就可以打开它了。 用映射驱动器的方法访问，进入命令提示符，输入“NET VIEW \计算机名”，回车这是查看对方计算机上有哪些共享文件夹，如E。再输入NET USE Z:\计算机名字\E将对方计算机共享的文件夹E映射为H：盘，在命令提示符下键入“H:”。你会发现你已经连到计算机上了。如果还不行的话，首先，你样要设置在同一个工作组，然后IP要相对，例如他的机子是：192.168.0.1,那么你的就得是：192.168.0.2 IP地址在本地连拉的属性里面设置。至于工作组是在网上邻居里的设置家庭或小型办公网络里进行设置。（两台机子的工作名一定要一样，你可以用MSHOME）最后是在ADSL属性里的高级，在连接共享里选择第一个，把后面两个点掉就可以了
采纳率：71%
为您推荐：
其他类似问题
防火墙的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。Runtime Error
Server Error in '/' Application.
Runtime Error
Description: An application error occurred on the server. The current custom error settings for this application prevent the details of the application error from being viewed remotely (for security reasons). It could, however, be viewed by browsers running on the local server machine.
Details: To enable the details of this specific error message to be viewable on remote machines, please create a &customErrors& tag within a &web.config& configuration file located in the root directory of the current web application. This &customErrors& tag should then have its &mode& attribute set to &Off&.
&!-- Web.Config Configuration File --&
&configuration&
&system.web&
&customErrors mode=&Off&/&
&/system.web&
&/configuration&
Notes: The current error page you are seeing can be replaced by a custom error page by modifying the &defaultRedirect& attribute of the application's &customErrors& configuration tag to point to a custom error page URL.
&!-- Web.Config Configuration File --&
&configuration&
&system.web&
&customErrors mode=&RemoteOnly& defaultRedirect=&mycustompage.htm&/&
&/system.web&
&/configuration&查看:12710|回复：15
以前请教过大家的，这个脚本超级用户登录时可以正常映射网盘，但是Domain Users用户登录就映射不出来网盘。大家帮我找找原因啊！先谢了～ （不太懂VBS，是网上抄来，自己修改的。）
1、在域下建了一个OU，叫“xx贸易公司”，然后再改OU下建好用户和按部门建组
比如：user1、user2；财务部、业务部。
2、vbs脚本放在：
\\mydomain.local\SysVol\rising.local\Policies\{9A55BE3D-857F-4BDD-62980}\User\Scripts\Logon下面。
内容如下：
-----------------------------------------------
On Error Resume Next
Dim objNetwork
Dim objFSO
Dim oShell
Dim strUserPath
Dim strUserName
Dim strDriveLetter1,strDriveLetter2,strDriveLetter3
Dim strRemotePath1,strRemotePath2,strRemotePath3,strRemotePath4,strRemotePath5,strRemotePath6,strRemotePath7
Set objSysInfo = CreateObject(&ADSystemInfo&)
Set objNetwork = CreateObject(&Wscript.Network&)
Set objFSO = CreateObject(&Scripting.FileSystemObject&)
Set oShell= CreateObject(&Shell.Application&)
strUserDN = Replace(objSysInfo.UserName,&/&,&\/&)
strUserPath = &LDAP://& & strUserDN
Set objUser = GetObject(strUserPath)
Wscript.Echo objUser.adspath
'分配“P:”盘映射给个人文件夹
strRemotePath1 = &\\192.168.8.1\HomeDirs\&
'分配“Q:”盘映射给部门文件夹
strRemotePath2 = &\\192.168.8.1\DeptDirs$\财务部&
strRemotePath3 = &\\192.168.8.1\DeptDirs$\业务部&& && && && && && &
strRemotePath4 = &\\192.168.8.1\DeptDirs$\综合部&
strRemotePath5 = &\\192.168.8.1\DeptDirs$\总经办&
'分配“W:”盘映射给共享文件夹
strRemotePath6 = &\\192.168.8.1\ShareFiles&
'分配“S:”盘映射给软件文件夹
strRemotePath7 = &\\192.168.8.1\Software&
strDriveLetter1 = &P:&
strDriveLetter2 = &Q:&
strDriveLetter3 = &W:&
strDriveLetter4 = &S:&
if(ObjFSO.DriveExists(&P:&))then
objNetwork.RemoveNetworkDrive&P:&,true
if(ObjFSO.DriveExists(&Q:&))then
objNetwork.RemoveNetworkDrive&Q:&,true
if(ObjFSO.DriveExists(&S:&))then
objNetwork.RemoveNetworkDrive&S:&,true
if(ObjFSO.DriveExists(&W:&))then
objNetwork.RemoveNetworkDrive&W:&,true
for each strGroup in objUser.MemberOf
& & strGroupPath = &LDAP://& & strGroup
& & Set objGroup = GetObject(strGroupPath)
& & strGroupName = objGroup.CN
& & wscript.echo strGroupName
& & select case strGroupName
& & case &财务部&
& && && & strUserName = objNetwork.UserName
& && && & objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 & strUserName & &$&
& && && & oShell.NameSpace(&P:\&).Self.Name=&个人盘&
& && &wscript.echo strGroupName
& && && & objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2
& && && & oShell.NameSpace(&Q:\&).Self.Name=&财务部&
& && && & objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath6
& && && & oShell.NameSpace(&W:\&).Self.Name=&公共盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath7
& && && & oShell.NameSpace(&S:\&).Self.Name=&软件盘&
& & case &业务部&& && && &&&
& && && & objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath3
& && && & oShell.NameSpace(&Q:\&).Self.Name=&业务部&
& && && & objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath6
& && && & oShell.NameSpace(&W:\&).Self.Name=&公共盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath7
& && && & oShell.NameSpace(&S:\&).Self.Name=&软件盘&
& & case &综合部&
& && && & strUserName = objNetwork.UserName
& && && & objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 & strUserName & &$&
& && && & oShell.NameSpace(&P:\&).Self.Name=&个人盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath4
& && && & oShell.NameSpace(&Q:\&).Self.Name=&综合部&
& && && & objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath6
& && && & oShell.NameSpace(&W:\&).Self.Name=&公共盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath7
& && && & oShell.NameSpace(&S:\&).Self.Name=&软件盘&
& & Case &总经办&
& && && & strUserName = objNetwork.UserName
& && && & objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 & strUserName & &$&
& && && & oShell.NameSpace(&P:\&).Self.Name=&个人盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath5
& && && & oShell.NameSpace(&Q:\&).Self.Name=&总经办&
& && && & objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath6
& && && & oShell.NameSpace(&W:\&).Self.Name=&公共盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath7
& && && & oShell.NameSpace(&S:\&).Self.Name=&软件盘&
& & end select
Set objSysInfo = nothing
Set objNetwork = nothing
Set objFSO = nothing
Set oShell = nothing
Set objUser = nothing
Set objGroup = nothing
--------------------------------------------
3、问题：如果user1用户是属于domain admins组的，登录后就能映射网盘；但如果user2是普通domain users组的就映射不出来网盘。
有哪位在2008R2搞过这个通过组策略映射网盘的，我的问题不知处在何处，请高手指点啊！
引用:原帖由 ahakka 于
11:24 发表
以前请教过大家的，这个脚本超级用户登录时可以正常映射网盘，但是Domain Users用户登录就映射不出来网盘。大家帮我找找原因啊！先谢了～ （不太懂VBS，是网上抄来，自己修改的。）
1、在域下建了一个OU，叫“xx贸易公司”，然后再改OU ... 脚本已经修改好了，我把对你没用的给删除掉了！保存为VBS后，最好先把第一行On Error Resume Next前面加个“'”符号给注释掉！在客户端上执行一下，看看是否可以！测试的时候最好在脚本的最后面加上一句wscript.echo &映射已完成”，之类的结束语句，部署的时候记得一定要将上面的这2项再改回来！
——------------------------------------------
On Error Resume Next
Dim objNetwork
Dim objFSO
Dim oShell
Dim strUserPath
Dim strUserName
Dim strDriveLetter1,strDriveLetter2,strDriveLetter3
Dim strRemotePath1,strRemotePath2,strRemotePath3,strRemotePath4,strRemotePath5,strRemotePath6,strRemotePath7
Set objSysInfo = CreateObject(&ADSystemInfo&)
Set objNetwork = CreateObject(&Wscript.Network&)
Set objFSO = CreateObject(&Scripting.FileSystemObject&)
Set oShell= CreateObject(&Shell.Application&)
strUserPath = &LDAP://& & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
'分配“P:”盘映射给个人文件夹
strRemotePath1 = &\\192.168.8.1\HomeDirs\&
'分配“Q:”盘映射给部门文件夹
strRemotePath2 = &\\192.168.8.1\DeptDirs$\财务部&
strRemotePath3 = &\\192.168.8.1\DeptDirs$\业务部&& && && && && && &
strRemotePath4 = &\\192.168.8.1\DeptDirs$\综合部&
strRemotePath5 = &\\192.168.8.1\DeptDirs$\总经办&
'分配“W:”盘映射给共享文件夹
strRemotePath6 = &\\192.168.8.1\ShareFiles&
'分配“S:”盘映射给软件文件夹
strRemotePath7 = &\\192.168.8.1\Software&
strDriveLetter1 = &P:&
strDriveLetter2 = &Q:&
strDriveLetter3 = &W:&
strDriveLetter4 = &S:&
if(ObjFSO.DriveExists(&P:&))then
objNetwork.RemoveNetworkDrive&P:&,true
if(ObjFSO.DriveExists(&Q:&))then
objNetwork.RemoveNetworkDrive&Q:&,true
if(ObjFSO.DriveExists(&S:&))then
objNetwork.RemoveNetworkDrive&S:&,true
if(ObjFSO.DriveExists(&W:&))then
objNetwork.RemoveNetworkDrive&W:&,true
for each strGroup in objUser.MemberOf
& & strGroupPath = &LDAP://& & strGroup
& & Set objGroup = GetObject(strGroupPath)
& & strGroupName = objGroup.CN
& & select case strGroupName
& & case &财务部&
& && && & strUserName = objNetwork.UserName
& && && & objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 & strUserName & &$&
& && && & oShell.NameSpace(&P:\&).Self.Name=&个人盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2
& && && & oShell.NameSpace(&Q:\&).Self.Name=&财务部&
& && && & objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath6
& && && & oShell.NameSpace(&W:\&).Self.Name=&公共盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath7
& && && & oShell.NameSpace(&S:\&).Self.Name=&软件盘&
& & case &业务部&& && && &&&
& && && & objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath3
& && && & oShell.NameSpace(&Q:\&).Self.Name=&业务部&
& && && & objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath6
& && && & oShell.NameSpace(&W:\&).Self.Name=&公共盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath7
& && && & oShell.NameSpace(&S:\&).Self.Name=&软件盘&
& & case &综合部&
& && && & strUserName = objNetwork.UserName
& && && & objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 & strUserName & &$&
& && && & oShell.NameSpace(&P:\&).Self.Name=&个人盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath4
& && && & oShell.NameSpace(&Q:\&).Self.Name=&综合部&
& && && & objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath6
& && && & oShell.NameSpace(&W:\&).Self.Name=&公共盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath7
& && && & oShell.NameSpace(&S:\&).Self.Name=&软件盘&
& & Case &总经办&
& && && & strUserName = objNetwork.UserName
& && && & objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 & strUserName & &$&
& && && & oShell.NameSpace(&P:\&).Self.Name=&个人盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath5
& && && & oShell.NameSpace(&Q:\&).Self.Name=&总经办&
& && && & objNetwork.MapNetworkDrive strDriveLetter3, strRemotePath6
& && && & oShell.NameSpace(&W:\&).Self.Name=&公共盘&
& && && & objNetwork.MapNetworkDrive strDriveLetter4, strRemotePath7
& && && & oShell.NameSpace(&S:\&).Self.Name=&软件盘&
& & end select
Set objSysInfo = nothing
Set objNetwork = nothing
Set objFSO = nothing
Set oShell = nothing
Set objUser = nothing
Set objGroup = nothing
----------------------------------------------------------------------------
十分感谢版主！
我明天再试试，看结果如何。
初级工程师
为什么不用自带的映射功能不是更方便。。。
问题解决与否,反馈一下,也是对回答者的感谢
楼上的是说用组策略里面的“首先项”吗？曾经考虑过，但好像不能按OU或按组映射网络驱动器哦。
脚本似乎可以了，再简化了一下：
-----------------------------------------
'这个脚本用于按组分部门的组策略，不同于按OU分部门的。
On Error Resume Next
Dim objSysInfo
Dim objNetwork
Dim objFSO
Dim objShell
Dim objUser
Dim objGroup
Dim strUserPath
Dim strUserName
Dim strGroup
Dim strGroupPath
Dim strGroupName
Dim strDrvLetter1,strDrvLetter2,strDrvLetter3
Dim strRePath1,strRePath2,strRePath3,strRePath4,strRePath5,strRePath6,strRePath7
Set objSysInfo = CreateObject(&ADSystemInfo&)
Set objNetwork = CreateObject(&Wscript.Network&)
Set objFSO = CreateObject(&Scripting.FileSystemObject&)
Set objShell= CreateObject(&Shell.Application&)
strUserPath = &LDAP://& & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
'分配“P:”盘映射给个人文件夹
strRePath1 = &\\192.168.8.1\HomeDirs\&
'分配“Q:”盘映射给部门文件夹
strRePath2 = &\\192.168.8.1\DeptDirs$\财务部&
strRePath3 = &\\192.168.8.1\DeptDirs$\业务部&& && && && && && &
strRePath4 = &\\192.168.8.1\DeptDirs$\综合部&
strRePath5 = &\\192.168.8.1\DeptDirs$\总经办&
'分配“W:”盘映射给共享文件夹
strRePath6 = &\\192.168.8.1\ShareFiles&
'分配“S:”盘映射给软件文件夹
strRePath7 = &\\192.168.8.1\Software&
strDrvLetter1 = &P:&
strDrvLetter2 = &Q:&
strDrvLetter3 = &W:&
strDrvLetter4 = &S:&
if(ObjFSO.DriveExists(&P:&))then
objNetwork.RemoveNetworkDrive &P:&, true
if(ObjFSO.DriveExists(&Q:&))then
objNetwork.RemoveNetworkDrive &Q:&, true
if(ObjFSO.DriveExists(&S:&))then
objNetwork.RemoveNetworkDrive &S:&, true
if(ObjFSO.DriveExists(&W:&))then
objNetwork.RemoveNetworkDrive &W:&, true
for each strGroup in objUser.MemberOf
'for each 进行轮询，目的为属于两个组以上的用户可以映射到不同组（部门）的网络驱动器。
& & strGroupPath = &LDAP://& & strGroup
& & Set objGroup = GetObject(strGroupPath)
& & strGroupName = objGroup.CN
& & select case strGroupName
& & case &财务部&
& && && & strUserName = objNetwork.UserName
& && && & objNetwork.MapNetworkDrive strDrvLetter1, strRePath1 & strUserName & &$&
& && && & objShell.NameSpace(&P:&).Self.Name=&个人盘&
& && && & objNetwork.MapNetworkDrive strDrvLetter2, strRePath2
& && && & objShell.NameSpace(&Q:&).Self.Name=&财务部&
& & case &业务部&& && && &&&
& && && & objNetwork.MapNetworkDrive strDrvLetter2, strRePath3
& && && & objShell.NameSpace(&Q:&).Self.Name=&业务部&
& & case &综合部&
& && && & strUserName = objNetwork.UserName
& && && & objNetwork.MapNetworkDrive strDrvLetter1, strRePath1 & strUserName & &$&
& && && & objShell.NameSpace(&P:&).Self.Name=&个人盘&
& && && & objNetwork.MapNetworkDrive strDrvLetter2, strRePath4
& && && & objShell.NameSpace(&Q:&).Self.Name=&综合部&
& & case &总经办&
& && && & strUserName = objNetwork.UserName
& && && & objNetwork.MapNetworkDrive strDrvLetter1, strRePath1 & strUserName & &$&
& && && & objShell.NameSpace(&P:&).Self.Name=&个人盘&
& && && & objNetwork.MapNetworkDrive strDrvLetter2, strRePath5
& && && & objShell.NameSpace(&Q:&).Self.Name=&总经办&
& & end select
'执行公共部分：
& && && & objNetwork.MapNetworkDrive strDrvLetter3, strRePath6
& && && & objShell.NameSpace(&W:&).Self.Name=&公共盘&
& && && & objNetwork.MapNetworkDrive strDrvLetter4, strRePath7
& && && & objShell.NameSpace(&S:&).Self.Name=&软件盘&
Set objSysInfo = nothing
Set objNetwork = nothing
Set objFSO = nothing
Set objShell = nothing
Set objUser = nothing
Set objGroup = nothing
--------------------------------------------------
注意：该脚本保存为vbs格式，存放于\\YourDomain\NETLOGON下，然后在组策略中的“用户配置”的“登录”中添加这个脚本。
初级工程师
引用:原帖由 ahakka 于
11:26 发表
楼上的是说用组策略里面的“首先项”吗？曾经考虑过，但好像不能按OU或按组映射网络驱动器哦。
脚本似乎可以了，再简化了一下：
-----------------------------------------
'这个脚本用于按组分部门的组策略，不同于按OU分 ... 完全可以，在映射设置里，添加指定目标就可以了！
引用:原帖由 紫柒 于
14:41 发表
完全可以，在映射设置里，添加指定目标就可以了！ 能否赐教？！
初级工程师
引用:原帖由 ahakka 于
08:25 发表
能否赐教？！ 看图片，设置里可以设置系统，用户，OU，组织单位，操作系统等等！
(33.34 KB)
感谢你的指点！
引用:原帖由 紫柒 于
09:39 发表
看图片，设置里可以设置系统，用户，OU，组织单位，操作系统等等！ 谢谢！受教了～
在“新建驱动器属性”中，“位置”里我按f3找不到OU的相关变量啊！因为我是建一个叫“DeptDirs&的目录，在其下面建“业务部”、“财务部”等目录，然后共享设为：&\\192.168.8.1\DeptDirs$&的，那我在映射的“位置”框中应该输入：\\192.168.8.1\DeptDirs$\%OU变量%，而且在“标记为”中只能指定的是“部门盘”，也无法输入“%OU变量%”之类，让它映射时具体指定是“业务部”或“财务部”什么的。
在“常用“-》”项目级别目标“中的设置已有所了解，谢谢！
我的上述问题，有好的设置方法吗？
引用:原帖由 ahakka 于
15:18 发表
谢谢！受教了～
在“新建驱动器属性”中，“位置”里我按f3找不到OU的相关变量啊！因为我是建一个叫“DeptDirs&的目录，在其下面建“业务部”、“财务部”等目录，然后共享设为：&\\192.168.8.1\DeptDirs$&的，那我在映射的“位置 ... 位置里一次只能输入一个共享地址，例如：\\192.168.8.1\DeptDirs$\业务部，如果想建立\\192.168.8.1\DeptDirs$\财务部，就需要再新建一个映射驱动器。一个共享地址对应一个映射驱动器。也就是财务部OU需要建立2个，一个是\\192.168.8.1\DeptDirs$\财务部 ，一个是
\\192.168.8.1\HomeDirs\ 。新建项目时，选择“组织单位”，添加财务的OU做为策略应用的对象就可以了！这里注意一下，如果\\192.168.8.1\HomeDirs\下面对应的个人文件夹名是域用户名为文件夹名时，“位置”项可以这样写\\192.168.8.1\HomeDirs\%username%
引用:原帖由 lzy821218 于
15:58 发表
位置里一次只能输入一个共享地址，例如：\\192.168.8.1\DeptDirs$\业务部，如果想建立\\192.168.8.1\DeptDirs$\财务部，就需要再新建一个映射驱动器。一个共享地址对应一个映射驱动器。也就是财务部OU需要建立2个，一个是\\19 ... 谢谢lzy821218老大！热心啊～～
用“首先项”映射网盘的，关于按OU分的，我最终想到的也跟你说的方法不谋而合。我只是嫌要一个一个输入麻烦，特别是部门多时。至于映射个人主目录的，我正是使用%logonuser%这个变量。
不过，我还是最终选择了组策略中“登录”方式执行脚本，这种方式似乎不用打上“首选项”补丁也可以。5楼的脚本已可以正确映射我设定的网络驱动器。
这个脚本，我还有一个问题搞不清楚：使用一个未登录过的用户从客户端（XP）首次登录域时，桌面出现后会弹出一个CMD窗口，里面显示一些信息，其中会出现几次连续四行的“参数不正确”。我想，是不是登录脚本里面有问题呢？这个窗口最后一闪而灭，不知道哪里有记录它的事件文件，可以看到它？或者说我怎样进行调试呢？（我已经在脚本的一些行设置了wscript.echo，登录时可以看到显示的用户或ou名都是正确的啊！）
助理工程师
你这映射感觉也太复杂了，直接可以脚本 ，net use 就可以实现的。很是方便 。也有可能是个人的习惯。:lol
引用:原帖由 ahakka 于
23:48 发表
谢谢lzy821218老大！热心啊～～
用“首先项”映射网盘的，关于按OU分的，我最终想到的也跟你说的方法不谋而合。我只是嫌要一个一个输入麻烦，特别是部门多时。至于映射个人主目录的，我正是使用%logonuser%这个变量。
不过，我 ... 脚本的首行有加“on error resume next&吗？脚本的错误只会在执行时显示，不会详细记录在事件日志里的！有什么影响吗？用新域用户首次登录桌面后，手动执行脚本，看是否会有报错，或者手动放在客户端的“启动”里执行，看会不会有你说的错误出现？
引用:原帖由 fdisk54 于
13:39 发表
你这映射感觉也太复杂了，直接可以脚本 ，net use 就可以实现的。很是方便 。也有可能是个人的习惯。:lol 此脚本的作用是，通过提取登录的域用户，查找此用户所在的组，通过组来判断属于哪个部门，从而映射相应的网络驱动器，属于不同组的域用户，映射的网盘也就不一样！
这个脚本弄好以后，在winxp上运行ok了，昨天在win7上运行，出现登录后不执行脚本情况，心里郁闷啊。退域，再加入；删除用户profile文件，再登录都是同样不执行。搞得很烦。
今天搜了一下，发现也有人出现这种情况，最后看到了一个好像是微软技术中心的工程师解答，才把这个问题解决。因此把这个问题一并在这里说一下，或许以后对大家有帮助。
情况：我的win7加入r2域，脚本放：\\Server\NetLogon里面，登录用户在r2是Domain Admins组，在本地是Administrators组；把脚本拷贝到本地执行就可以得到想要的结果。但用户登录就是不执行脚本。
解决：把win7的UAC（用户帐号控制）彻底关掉，然后重启系统，在登录就OK！
感谢你的问题反馈与分享！
本帖最后由 ahakka 于
10:40 编辑
初级工程师
自带的组策略映射不是更方便吗？