Authentication 在VB中为不同的用户编写登录脚本，需要能够映射驱动器。需要帮忙吗

现在发生的事情是.bat文件在登录时运行，它执行驱动器映射。然而，我们现在想要将这些转换为VB脚本。然而，有几个问题：

有18个驱动器需要映射（f到w）

用户分组不正确（如果有）。我可能会将它们改成正确的组，希望是三个不同的组，这样脚本就可以查看该组并知道要做什么

它必须启动一个名为LUMINX的系统（不确定这里是否有人用过它。但是如果你用过，我相信你知道它来自地狱的最黑暗和最深处）。它被设置为特定的IP并且在LUMINX_LIVE下

我对编码很陌生，以前从未真正处理过类似的问题。我已经看过一些可以工作的代码，但是每个人似乎都有点不舒服，没有我需要的东西

---

任何帮助都将不胜感激。

使用vbscript编写映射驱动器的代码

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "F:", "\\Server\Folder\Folder"
objNetwork.MapNetworkDrive "G:", "\\Server\Folder2\Folder2"
objNetwork.MapNetworkDrive "H:", "\\Server\Folder3\Folder3"
.......................
objNetwork.MapNetworkDrive "V:", "\\192.x.x.x\luminx_live"

---

您将需要修改文件夹位置，但这应该适合您。不确定luminx问题（编辑：包含luminx内容）。是服务还是计算机？更多详细信息将很有帮助

您可以使用以下代码映射驱动器，但是这是从bugtussle的代码中修改的，因为它会向用户提供错误消息。如果驱动器无法映射，这可能会很有用

Set wshNetwork = CreateObject( "WScript.Network" )
On Error Resume Next

With wshNetwork
    .MapNetworkDrive "G:", "\\CompanyServer\Dept"
    If Err Then
        WScript.Echo "Error " & Err & " mapping drive G:"
        WScript.Echo "(" & Err.Description & ")"
    End If

    .MapNetworkDrive "H:", "\\CompanyServer\" & .UserName
    If Err Then
        WScript.Echo "Error " & Err & " mapping drive H:"
        WScript.Echo "(" & Err.Description & ")"
    End If
End With

On Error Goto 0
Set wshNetwork = Nothing

---

您需要启动LUMINX的代码还是设置IP的代码？要启动LUMINX_LIVE，它是用特定IP编码的。在.bat文件中，它写为：net use v\\192.x.x.x\luminx\u liveit是一项服务。基本上，这是一个企业福利计划（我的公司就是这么做的）。在.bat文件中，它被用作：net use v\\192.x.x.x\luminx\u live