RECLONE.VBS 挂在脚本

2019年4月20日 0条评论 136次阅读 0人点赞

Option Explicit
Dim WMIService, Process, Processes, Flag, WS
Set WMIService = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
Set Processes = WMIService.ExecQuery("select * from win32_process")
Flag = true
for each Process in Processes
    if strcomp(Process.name, "rclone.exe") = 0 then
        Flag = false
        exit for
    end if
next
Set WMIService = nothing
if Flag then
    Set WS = Wscript.CreateObject("Wscript.Shell")
    WS.Run "rclone mount GDrive:/ x: --cache-dir F:\Temp --vfs-cache-mode writes", 0
end if


如果想要挂载多个，请问该如何操作呢？

WS.Run “rclone mount GDrive:/ x: –cache-dir F:\Temp –vfs-cache-mode writes”, 0
再添加一行修改

Option Explicit

Dim WMIService, Process, Processes, Flag, WS

Set WMIService = GetObject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")

Set Processes = WMIService.ExecQuery("select * from win32_process")

Flag = true

for each Process in Processes

if strcomp(Process.name, "rclone.exe") = 0 then

Flag = false

exit for

end if

Set WMIService = nothing

if Flag then

Set WS = Wscript.CreateObject("Wscript.Shell")

WS.Run "rclone mount GDrive:/ x: --cache-dir F:\Temp --vfs-cache-mode writes", 0

end if

如果想要挂载多个，请问该如何操作呢？

WS.Run “rclone mount GDrive:/ x: –cache-dir F:\Temp –vfs-cache-mode writes”, 0

再添加一行修改