In this article, Code to copy html content from a web html page to local machine is explained. You can try the code, saving it as vbs file and running.
''Create a file using scripting.fileSystemObject Set objFSO=CreateObject("Scripting.FileSystemObject") ''Provide the Path of html file testfilePath="d:/testing.html" '' Create html file using filesystem object Set objFile = objFSO.CreateTextFile(testfilePath,True) ''Define the Page URL from which html is to be extracted WebURL="http://seleniumbites.blogspot.in/2016/12/install-jenkins-as-windows-service.html" Set httpcontent = CreateObject("Microsoft.XmlHttp") On Error Resume Next httpcontent.open "GET", URL, False httpcontent.send "" if err.Number = 0 Then objFile.Write httpcontent.responseText Else msgbox err.description End If Set httpcontent = Nothing objFile.Close