![需要将批处理登录脚本转换为 VBScript](https://linux22.com/image/1426670/%E9%9C%80%E8%A6%81%E5%B0%86%E6%89%B9%E5%A4%84%E7%90%86%E7%99%BB%E5%BD%95%E8%84%9A%E6%9C%AC%E8%BD%AC%E6%8D%A2%E4%B8%BA%20VBScript.png)
我们目前正在从使用批处理登录脚本转向使用 VBScript。
我们应该如何在 VBScript 批处理文件中写入以下几行才能达到相同的效果?
net use p: \\server\%username%$ /persistent:yes
任何想法都将不胜感激!
答案1
Dim WshNetwork, WshShell, username
set WshShell = WScript.CreateObject("WScript.Shell")
username = WshShell.ExpandEnvironmentStrings("%username%")
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "P:", "\\Server\" & username, True