home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Windows / nahrdily / nahrdily.exe / pcwFixlist.hta < prev    next >
Text File  |  2004-12-30  |  4KB  |  88 lines
  1. <HTML>
  2.  <HEAD>
  3.   <TITLE>Skript PC-WORLDu: NainstalovanΘ updaty</TITLE>
  4.   <HTA:APPLICATION ID="HTA20"
  5.    APPLICATIONNAME="FixList"
  6.    SINGLEINSTANCE="yes"
  7.    NAVIGABLE="no"
  8.    ICON="%WINDIR%\kill.exe"/>
  9.   <STYLE type="text/css">
  10.         
  11. body {        font-family:Tahoma,Verdana,Arial,Geneva;
  12.         font-size:14;
  13.         background-color:Buttonface }    
  14. #Headline {    font-family:Tahoma,Verdana,Arial,Geneva;
  15.         font-weight:bold;
  16.         font-size:14;
  17.         top:5}
  18.   </STYLE>
  19.  </HEAD>
  20.  <SCRIPT language="VBScript">
  21.  
  22. '==================================================================================
  23. 'Nastavenφ velikosti okna a pro mo₧nost aktualizace pomocφ <F5>.
  24. '==================================================================================
  25.     Sub SubInit_Fenster
  26.         window.resizeTo 450, 500
  27.         SubHotfixView()
  28.          Set ObjSet = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_OperatingSystem")
  29.          For Each obj In ObjSet
  30.              document.all.systemver.innerHTML= obj.Caption & ", " & obj.Version
  31.         Next    
  32.     End Sub
  33. '==================================================================================
  34. 'V²pis informacφ o zßplatßch z WMI:
  35. '==================================================================================
  36.      Sub SubHotfixView()
  37.      On Error Resume Next
  38.      Set MyShell = CreateObject("Wscript.Shell")
  39.     Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  40.      Set colItems = objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering",,48)
  41.      StrBeginTable = "<table border=0 cellspacing=0 cellpadding=2 style=" & Chr(34) & "font-size:12" & Chr(34)&">"
  42.      For Each objItem in colItems
  43.              If Not objItem.Description = "" Then
  44.                  strBeschreibung = "<tr><th colspan=" & Chr(34) & "3" & Chr(34) & "></th></tr><tr><td><b>Popis: </b></td><td>" &  objItem.Description & "</td></tr>"
  45.         End If
  46.              
  47.              If Not objItem.InstalledBy = "" Then 
  48.                  strUser = "<tr><th colspan=" & Chr(34) & "3" & Chr(34) & "></th></tr><tr><td><b>Instalovßno: </b></td><td>" &  objItem.InstalledBy & "</td></tr>"
  49.              End If
  50.              
  51.         If objItem.HotFixID = "File 1" Then 'broken entry, needs an exception
  52.         strKBID = objItem.ServicePackInEffect
  53.         Else
  54.         strKBID = objItem.HotFixID
  55.         End If
  56.         
  57.              StrTableData = StrTableData & "<tr><th colspan=" & Chr(34) & "3" & Chr(34) & "><HR></th></tr><tr><td><b>Patch: </b></td><td><a href=" & Chr(34) & "http://support.microsoft.com/default.aspx?scid=kb;cs;" & strKBID & chr(34) & ">" &  strKBID & "</a></td></tr>" & strBeschreibung & strUser
  58.       Next
  59.       StrEndTable = "</table>"
  60.       StrIEVersion = MyShell.RegRead("HKLM\Software\Microsoft\Internet Explorer\Version")
  61.       StrIEMinorVersion = Splitlink(MyShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings\MinorVersion"))
  62.     document.all.tableHotfixListe.innerHTML = StrBeginTable & StrTableData & StrEndTable & "<tr><th colspan=" & Chr(34) & "3" & Chr(34) & "><HR style=" & Chr(34) & "height:2px; color:black" & Chr(34) &"></th></tr>"
  63.     StrIETableVersion = "<tr><th colspan=" & Chr(34) & "3" & Chr(34) & "></th></tr><tr><td><b>Verze Internet Exploreru: </b></td><td>" &  StrIEVersion & "</td></tr>"
  64.     StrIETablePatch = "<tr><th colspan=" & Chr(34) & "3" & Chr(34) & "></th></tr><tr><td><b>Updaty Internet Exploreru: </b></td><td>" &  StrIEMinorVersion & "</td></tr>"
  65.     document.all.tableIEListe.innerHTML = StrBeginTable & StrIETableVersion & StrIETablePatch & StrEndTable & "<tr><th colspan=" & Chr(34) & "3" & Chr(34) & "></tr>"
  66.     End Sub
  67.     
  68.     Function Splitlink(strcon)
  69.       Dim strconArray
  70.       strconArray = Split(strcon,";",-1,1)
  71.       For i=0 To Ubound(strconArray)
  72.         If (Left(strconArray(i),1)) = "Q" OR (Left(strconArray(i),2) = "KB") Then
  73.           result = result & " <a href=" & Chr(34) & "http://support.microsoft.com/default.aspx?scid=kb;cs;" & Trim(strconArray(i)) & chr(34) & ">" &  Trim(strconArray(i)) & "</a>"
  74.         End If    
  75.       Next
  76.     Splitlink = (result)
  77.     End Function
  78.     
  79.   </SCRIPT>
  80.  <BODY scroll="no" onload="SubInit_Fenster()">
  81.  <DIV ID=Headline>Verze: <SPAN id=systemver></SPAN><BR>NainstalovanΘ updaty:</DIV><BR>
  82.  <DIV style="overflow:auto; height:80%;" ID=tableHotfixListe ></DIV>
  83.  <HR style="height:1px; color:black"></th>
  84.  <SPAN id=tableIEListe></SPAN>
  85.  <HR style="height:1px; color:black"></th>
  86.  </BODY>
  87. </HTML>
  88.