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

  • 问题

  • 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
    2018年2月24日 0:34

答案

全部回复

  • 您好,

    根据您的情况,建议可以通过组策略中的“驱动器映射”共享公共盘,下面的截图供您参考:


    另外,有关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

    2018年2月26日 2:45
  • 您好,

    请问之前提供的信息有帮助吗?

    如果您需要进一步的帮助,请告诉我们。

    此致
    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

    2018年2月28日 5:17
  • 您好,

    我正在查看这个问题的进度,如果您有任何问题,请随时与我们联系。

    如果您使用我们的方法解决了问题,请将其“标记为答复”,以帮助其他社区成员能够快速找到有帮助的答复。
    如果您使用自己的方法解决了问题,请在此分享您的经验,这将对其他有类似问题的社区成员非常有益。
    如果问题还没有解决,请回复并告诉我们目前的情况,以便我们能够提供进一步的帮助。

    期待您的反馈。

    此致
    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

    2018年3月5日 6:05