制作永久映射 - vb脚本

Question

我想要完成的是：

我的工作组服务器有三个人的主目录，这些主目录需要使用vbs从他们的工作站进行映射。

1. 检索登录用户的用户名

2. 为\ wgserver \ homes \制作永久映射（在重新启动或重启后保留），其中用户名是已检索登录用户的用户名

基本上什么都没发生，没有错误信息或任何东西，这让我感到困惑，任何解决这个问题的提示都将不胜感激！

---

Option Explicit
Dim objNetwork
Dim wshShell
Dim strUserName

Set objNetwork = CreateObject("WScript.Network")
Set wshShell = WScript.CreateObject("WScript.Shell")

strUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")

Dim strDriveLetter
Dim strRemotePath

strDriveLetter = "H:"
strRemotePath = "\\wgserver\Homes\%username%"

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

Answer 1

您已经展开%USERNAME%并将用户名字符串返回到strUserName变量。所以只需将该值连接到您的路径：

变化：

strRemotePath = "\\wgserver\Homes\%username%"

要：

strRemotePath = "\\wgserver\Homes\" & strUserName

要将映射存储在用户的配置文件中，请将第3个参数设置为True。有关详细信息，请参阅MapNetworkDrive功能：

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, True