dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "https://i.imgur.com/h0byYbA.png", False
xHttp.Send
with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "ahoaho.png", 2 '//overwrite
end with

Set Fso = CreateObject( "Scripting.FileSystemObject" )

Set objShell = CreateObject("Shell.Application")
strTarget = Fso.getParentFolderName(WScript.ScriptFullName) & "\ahoaho.png"
strPath = Fso.GetParentFolderName(strTarget)
strFile = Fso.GetFileName(strTarget)

Set objFolder = objShell.NameSpace(strPath)
Set objFile = objFolder.ParseName(strFile)

For Each objItem In objFile.Verbs
	Dim lngPos
	lngPos = InStr(objItem.Name, "B)")
	if  lngPos Then
		'Wscript.Echo "hiraku"
		objItem.DoIt()
		Exit For
	end if

Next