积极答复者
共享了4个公共盘,第4个盘经常出不来,即Z盘经常会出不来,通过组策略在用户开机登陆运行脚本。代码如下:

问题
-
On Error Resume Next
Set objNetwork = WScript.CreateObject("WScript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count - 1 Step 2
objNetwork.RemoveNetworkDrive colDrives.Item(i), true, true
Next
Set objNetwork = Nothing
WScript.Sleep 5000
dim netdrive,myuser
set netdrive = CreateObject("wscript.network")
myuser=netdrive.username
netdrive.MapNetworkDrive "M:","\\XXXX\" & myuser
WScript.Sleep 500
netdrive.MapNetworkDrive "O:","\\XXXX"
WScript.Sleep 500
netdrive.MapNetworkDrive "P:","\\XXXX"
WScript.Sleep 500
netdrive.MapNetworkDrive "Z:","\\XXXX"
set netdrive=nothing
set myuser=nothing
dim netrename
set netrename = CreateObject("Shell.Application")
netrename.NameSpace("M:").Self.Name = "个人盘"
netrename.NameSpace("O:").Self.Name = "部门盘"
netrename.NameSpace("P:").Self.Name = "报表盘"
netrename.NameSpace("Z:").Self.Name = "公告栏"
set netrename=nothing
答案
-
您好,
根据您的情况,建议可以通过组策略中的“驱动器映射”共享公共盘,下面的截图供您参考:
另外,有关VBS的问题,您也可以在“The Official Scripting Guys Forum!”论坛中寻求帮助:
https://social.technet.microsoft.com/Forums/scriptcenter/en-US/home?forum=ITCG
我们推荐适当发布的原因是您将获得更加专业的回答,并且定期浏览论坛的其他用户也可以分享他们的知识与见解,或者从您和我们的互动中学习。
感谢您的理解与合作。
此致,
Albert
Please remember to mark the replies as an answers if they help.
If you have feedback for TechNet Subscriber Support, contact tnmff@microsoft.com- 已编辑 Albert LingMicrosoft contingent staff 2018年2月26日 2:46
- 已建议为答案 Albert LingMicrosoft contingent staff 2018年2月27日 5:18
- 已标记为答案 rory_lei 2018年3月19日 9:02
全部回复
-
您好,
根据您的情况,建议可以通过组策略中的“驱动器映射”共享公共盘,下面的截图供您参考:
另外,有关VBS的问题,您也可以在“The Official Scripting Guys Forum!”论坛中寻求帮助:
https://social.technet.microsoft.com/Forums/scriptcenter/en-US/home?forum=ITCG
我们推荐适当发布的原因是您将获得更加专业的回答,并且定期浏览论坛的其他用户也可以分享他们的知识与见解,或者从您和我们的互动中学习。
感谢您的理解与合作。
此致,
Albert
Please remember to mark the replies as an answers if they help.
If you have feedback for TechNet Subscriber Support, contact tnmff@microsoft.com- 已编辑 Albert LingMicrosoft contingent staff 2018年2月26日 2:46
- 已建议为答案 Albert LingMicrosoft contingent staff 2018年2月27日 5:18
- 已标记为答案 rory_lei 2018年3月19日 9:02
-
您好,
请问之前提供的信息有帮助吗?
如果您需要进一步的帮助,请告诉我们。
此致
AlbertPlease remember to mark the replies as an answers if they help.
If you have feedback for TechNet Subscriber Support, contact tnmff@microsoft.com -
您好,
我正在查看这个问题的进度,如果您有任何问题,请随时与我们联系。
如果您使用我们的方法解决了问题,请将其“标记为答复”,以帮助其他社区成员能够快速找到有帮助的答复。
如果您使用自己的方法解决了问题,请在此分享您的经验,这将对其他有类似问题的社区成员非常有益。
如果问题还没有解决,请回复并告诉我们目前的情况,以便我们能够提供进一步的帮助。
期待您的反馈。
此致
AlbertPlease remember to mark the replies as an answers if they help.
If you have feedback for TechNet Subscriber Support, contact tnmff@microsoft.com