home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 September / PCWorld_2006-09_cd.bin / zabezpeceni / privatefolder / MSPF10ENU.msi / Binary.GenuineVBScript < prev    next >
Encoding:
Text File  |  2006-08-08  |  610 b   |  19 lines
  1. Function IsConnect
  2. On error resume next
  3.     Dim xmlhttp : Set xmlhttp = CreateObject("Msxml2.XMLHTTP.4.0")
  4.     xmlhttp.open "POST", "http://go.microsoft.com/fwlink", false
  5.     xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  6.     xmlhttp.send
  7.  
  8.     IF Err.Number = 0 then
  9.         Session.Property("IsConnect") = "1"
  10.     ELSE
  11.         Session.Property("IsConnect") = "0"
  12.     END IF
  13. End Function
  14.  
  15. Function ConnectUrl
  16.     Dim shell : Set shell = CreateObject("Shell.Application")
  17.     shell.ShellExecute Session.Property("Genuine web") & "&LegitCheckError=" & Session.Property("LegitCheckResult")
  18. End Function
  19.