Win11下使用 Rclone 挂载 OneDrive 为本地硬盘 Win11隐藏RaiDrive运行的CMD界面

在Win11 下我用的脚本是这个

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
Dim FlagR, FlagS, WS
FlagR = true
FlagS = true
For Each objDrive in colDrives
if strcomp(objDrive.DriveLetter, "X") = 0 then
FlagR = false
Wscript.Echo "Drive X has already been used!" 
elseif strcomp(objDrive.DriveLetter, "Y") = 0 then
FlagS = false
Wscript.Echo "Drive Y has already been used!" 
end if
Next
if FlagR then
Set WS = Wscript.CreateObject("Wscript.Shell")
WS.Run "rclone mount ""OneDrive"":/ X: --cache-dir D:\OneDrive --vfs-cache-mode writes", 0
end if
if FlagS then
Set WS = Wscript.CreateObject("Wscript.Shell")
WS.Run "rclone mount ""Dropbox Hotmail"":/ Y: --cache-dir C:\Temp --vfs-cache-mode writes", 0
end if