windows - VBScript 错误 - 使用用户名和密码创建 FTP 快捷方式

Question

我有一个可以部署给用户的 vbsscript，它会在用户桌面上创建一个 FTP 驱动器的快捷方式。此脚本以这种形式工作:

Set objShell=Wscript.CreateObject("Wscript.shell")
strDesktopFolder=objShell.SpecialFolders("Desktop") & "\"
Set objShortcut=objShell.CreateShortcut(strDesktopFolder & "FTP.lnk")
objShortCut.TargetPath = "ftp://ftp.website.com"
objShortCut.Description = "FTP"
objShortCut.Save

这很好，但它要求用户输入用户名和密码才能访问该文件夹。我真的需要在部署之前保存用户名和密码，并为最终用户消除额外的步骤。因此，我想在部署时将用户名和密码保存为 vbs 脚本的一部分。我已经接近并可以使用以下内容保存用户名和密码:

Set objShell=Wscript.CreateObject("Wscript.shell")
strDesktopFolder=objShell.SpecialFolders("Desktop") & "\"
Set objShortcut=objShell.CreateShortcut(strDesktopFolder & "FTP.lnk")
objShortCut.TargetPath = "ftp://user:pass@ftp.website.com"
objShortCut.Description = "FTP"
objShortCut.Save

但是，问题是我无法正确保存它们。用户名格式为:

user@website.com

这是我的 ftp 站点的格式。我无法改变这一点。此格式返回错误 (800A0005)。我需要我的脚本像这样无错误地工作:

Set objShell=Wscript.CreateObject("Wscript.shell")
strDesktopFolder=objShell.SpecialFolders("Desktop") & "\"
Set objShortcut=objShell.CreateShortcut(strDesktopFolder & "FTP.lnk")
objShortCut.TargetPath = "ftp://user@website.com:pass@ftp.website.com"
objShortCut.Description = "FTP"
objShortCut.Save

感谢所有帮助!

Answer 1

如果您的用户名包含 @ 符号，而您的网络浏览器或 Windows 资源管理器不喜欢它，您必须将其替换为 + 符号，如下所示:

user@website.com = user+website.com

Set objShell=Wscript.CreateObject("Wscript.shell")
strDesktopFolder=objShell.SpecialFolders("Desktop") & "\"
Set objShortcut=objShell.CreateShortcut(strDesktopFolder & "FTP.lnk")
objShortCut.TargetPath = "ftp://user+website.com:pass@ftp.website.com"
objShortCut.Description = "FTP"
objShortCut.Save