登录
Microsoft.com
 
Microsoft
 
 
 

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

 > 

  • 问题

  • Question
    登录进行投票
    0
    登录进行投票
    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
    |

答案

全部回复

  • Question
    登录进行投票
    0
    登录进行投票
    您好，

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


    另外，有关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
    |
  • Question
    登录进行投票
    0
    登录进行投票
    您好，

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

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

    此致
    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
    |
  • Question
    登录进行投票
    0
    登录进行投票
    您好，

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

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

    期待您的反馈。

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