r4v3n Posted February 14, 2007 Posted February 14, 2007 nice util. 3 suggestions...Could you add all fields? Some are left out and could be used. Good with servername perhaps to diagnose server rename issues as well. objOutputFile.WriteLine "Number: " & num objOutputFile.WriteLine "Caption: " & objItem.Caption objOutputFile.WriteLine "CSName: " & objItem.CSName objOutputFile.WriteLine "Description: " & objItem.Description objOutputFile.WriteLine "FixComments: " & objItem.FixComments objOutputFile.WriteLine "HotFixID: " & objItem.HotFixID objOutputFile.WriteLine "InstalledBy: " & objItem.InstalledBy objOutputFile.WriteLine "InstalledOn: " & objItem.InstalledOn objOutputFile.WriteLine "Name: " & objItem.Name objOutputFile.WriteLine "ServicePackInEffect: " & objItem.ServicePackInEffect objOutputFile.WriteLine "Status: " & objItem.StatusCould you add numbers for each hotfix as well? Helps when comparing 2 lists. Could you write Windows 2003 x64 instead of XP x64 when running on Windows 2003 x64?
gunsmokingman Posted February 15, 2007 Author Posted February 15, 2007 (edited) nice util. 3 suggestions...Could you add all fields? Some are left out and could be used. Good with servername perhaps to diagnose server rename issues as well. objOutputFile.WriteLine "Number: " & num objOutputFile.WriteLine "Caption: " & objItem.Caption objOutputFile.WriteLine "CSName: " & objItem.CSName objOutputFile.WriteLine "Description: " & objItem.Description objOutputFile.WriteLine "FixComments: " & objItem.FixComments objOutputFile.WriteLine "HotFixID: " & objItem.HotFixID objOutputFile.WriteLine "InstalledBy: " & objItem.InstalledBy objOutputFile.WriteLine "InstalledOn: " & objItem.InstalledOn objOutputFile.WriteLine "Name: " & objItem.Name objOutputFile.WriteLine "ServicePackInEffect: " & objItem.ServicePackInEffect objOutputFile.WriteLine "Status: " & objItem.StatusCould you add numbers for each hotfix as well? Helps when comparing 2 lists. Could you write Windows 2003 x64 instead of XP x64 when running on Windows 2003 x64?No problem on that if you could provide the build numbers for those version I can add it.That a good idea about number the updates, I can do that.The reason I have slowed down working on this is due to my health, the new medication I am on right now is really hard on my body and I am still trying to adjust to it.I have completed scripts for a few other things that will be added to the hta when I more healthier.Network Adaptor InformationstrComputer = "." Dim colItems, Nwa, objItemDim Wmi :Set Wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer &"\root\cimv2") Set colItems = Wmi.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration",,48) For Each objItem In colItems If Not IsNull(objItem.IPAddress) Then For i=LBound(objItem.IPAddress) To UBound(objItem.IPAddress) Nwa = Nwa & "Ip Address " & vbtab&objItem.IPAddress(i)& vbCrLf Next End If NextSet colItems = Wmi.ExecQuery("SELECT * FROM Win32_NetworkAdapter",,48) For Each objItem in colItems Nwa = Nwa &_ "Name " & vbtab&objItem.Name & vbCrLf &_ "Description" & vbtab &objItem.Description & vbCrLf &_ "ServiceName" & vbtab &objItem.ServiceName & vbCrLf NextCreateObject("Wscript.Shell").Popup space(9) & "Win32_NetworkAdapter" & vbCrLf & Nwa,30,"NetworkAdapter",4128 Edited March 7, 2007 by gunsmokingman
gunsmokingman Posted March 7, 2007 Author Posted March 7, 2007 (edited) Here is a new script that I have made and would like to knowif this would be enough infomation. It only produces a text filefor now, but if you think it is enough I will add it the HTA stufffor it later.I have Updated This Code In A Lower PoststrComputer = "." Dim Act : Set Act = CreateObject("Wscript.Shell") Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim Wmi : Set Wmi = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Dim Cnt, GFile, Rpt, TS, Var1, Var2, Var3, Var4 Rpt = Act.ExpandEnvironmentStrings("%UserProfile%\Desktop\SysReport.txt") Var1 = Space(2) & Chr(171) & " --------------------------- " & Chr(187) Set TS = Fso.CreateTextFile(Rpt) TS.WriteLine Space(2)& Chr(187) & Chr(160) & Now() TS.writeline Var1 Set colItems = Wmi.ExecQuery("SELECT * FROM Win32_ComputerSystem",,48) For Each objItem in colItems If Not isNull(objItem.SupportContactDescription) Then Var2 = Var2 & Join(objItem.SupportContactDescription, Space(3) & vbCrLf & Space(3)) End If Next If InStr(Var2,"For Technical Support:") Then Var3 = Replace(Var2,"For Technical Support:",Space (2) & "For Technical Support:") TS.WriteLine Var3 & vbCrLf & Space(2) & Var1 Else TS.WriteLine Var2 & vbCrLf & Space(2) & Var1 End If Set colItems = Wmi.ExecQuery("SELECT * FROM Win32_QuickFixEngineering",,48) For Each objItem in colItems Cnt = Cnt + 1 If Cnt > 9 Then Cnt = Cnt ElseIf Cnt = 9 Then Cnt = "0" & Cnt Else Cnt = "0" & Cnt End If Var4 = Var4 & Space(3)& Cnt & vbCrLf &_ Space(4)& "Hot Fix ID " & objItem.HotFixID & vbCrLf &_ Space(4)& "Installed By " & objItem.InstalledBy & vbCrLf &_ Space(4)& "Installed On " & objItem.InstalledOn & vbCrLf & Var1 & vbCrLf Next TS.WriteLine vbCrLf & UCase(" « Installed Updates » ") & vbCrLf & Var4 TS.Close() Set GFile = Fso.GetFile(Rpt) Act.Run(GFile.Path),1,True Dim VBS : VBS = Act.ExpandEnvironmentStrings("%SystemDrive%\ComputerInfo_v1.vbs") If Fso.FileExists(VBS) Then Fso.DeleteFile(VBS) End If Edited April 25, 2007 by gunsmokingman
Yzöwl Posted March 7, 2007 Posted March 7, 2007 Here is the output from a not quite up to date XP system. » 07/03/2007 20:45:02 « --------------------------- » « --------------------------- » « INSTALLED UPDATES » 01 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 02 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 03 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 04 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 05 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 06 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 07 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 08 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 09 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 10 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 11 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 12 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 13 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 14 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 15 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 16 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 17 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 18 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 19 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 20 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 21 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 22 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 23 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 24 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 25 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 26 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 27 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 28 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 29 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 30 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 31 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 32 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 33 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 34 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 35 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 36 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 37 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 38 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 39 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 40 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 41 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 42 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 43 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 44 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 45 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 46 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 47 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 48 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 49 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 50 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 51 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 52 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 53 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 54 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 55 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 56 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 57 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 58 Hot Fix ID Q147222 Installed By Installed On « --------------------------- » 59 Hot Fix ID KB917283 Installed By Yzöwl Installed On 06/01/2007 « --------------------------- » 60 Hot Fix ID KB922770 Installed By Yzöwl Installed On 06/01/2007 « --------------------------- » 61 Hot Fix ID IDNMitigationAPIs Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 62 Hot Fix ID NLSDownlevelMapping Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 63 Hot Fix ID KB925398_WMP64 Installed By Installed On « --------------------------- » 64 Hot Fix ID MSCompPackV1 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 65 Hot Fix ID KB873339 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 66 Hot Fix ID KB885626 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 67 Hot Fix ID KB885836 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 68 Hot Fix ID KB886185 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 69 Hot Fix ID KB888302 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 70 Hot Fix ID KB890859 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 71 Hot Fix ID KB891781 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 72 Hot Fix ID KB893756 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 73 Hot Fix ID KB896358 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 74 Hot Fix ID KB896423 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 75 Hot Fix ID KB896424 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 76 Hot Fix ID KB896428 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 77 Hot Fix ID KB898461 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 78 Hot Fix ID KB899587 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 79 Hot Fix ID KB899591 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 80 Hot Fix ID KB900485 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 81 Hot Fix ID KB900725 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 82 Hot Fix ID KB901017 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 83 Hot Fix ID KB901214 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 84 Hot Fix ID KB902400 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 85 Hot Fix ID KB904706 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 86 Hot Fix ID KB905414 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 87 Hot Fix ID KB905749 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 88 Hot Fix ID KB908519 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 89 Hot Fix ID KB908531 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 90 Hot Fix ID KB910437 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 91 Hot Fix ID KB911280 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 92 Hot Fix ID KB911562 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 93 Hot Fix ID KB911927 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 94 Hot Fix ID KB912919 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 95 Hot Fix ID KB913580 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 96 Hot Fix ID KB914388 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 97 Hot Fix ID KB914389 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 98 Hot Fix ID KB915865 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 99 Hot Fix ID KB916595 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 100 Hot Fix ID KB917422 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 101 Hot Fix ID KB917953 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 102 Hot Fix ID KB918439 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 103 Hot Fix ID KB919007 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 104 Hot Fix ID KB920213 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 105 Hot Fix ID KB920670 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 106 Hot Fix ID KB920683 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 107 Hot Fix ID KB920685 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 108 Hot Fix ID KB920872 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 109 Hot Fix ID KB921398 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 110 Hot Fix ID KB922582 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 111 Hot Fix ID KB922616 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 112 Hot Fix ID KB922819 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 113 Hot Fix ID KB923191 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 114 Hot Fix ID KB923414 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 115 Hot Fix ID KB923694 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 116 Hot Fix ID KB923980 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 117 Hot Fix ID KB924191 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 118 Hot Fix ID KB924270 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 119 Hot Fix ID KB926139 Installed By Installed On « --------------------------- » 120 Hot Fix ID KB926239 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 121 Hot Fix ID KB926255 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 122 Hot Fix ID XpsEPSC Installed By Installed On « --------------------------- »I'm not sure about all the (57) empty entries at the beginning.
gunsmokingman Posted March 7, 2007 Author Posted March 7, 2007 (edited) Here is the output from a not quite up to date XP system. » 07/03/2007 20:45:02 « --------------------------- » « --------------------------- » « INSTALLED UPDATES » 01 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 02 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 03 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 04 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 05 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 06 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 07 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 08 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 09 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 10 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 11 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 12 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 13 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 14 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 15 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 16 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 17 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 18 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 19 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 20 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 21 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 22 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 23 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 24 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 25 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 26 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 27 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 28 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 29 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 30 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 31 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 32 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 33 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 34 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 35 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 36 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 37 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 38 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 39 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 40 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 41 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 42 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 43 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 44 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 45 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 46 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 47 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 48 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 49 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 50 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 51 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 52 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 53 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 54 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 55 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 56 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 57 Hot Fix ID File 1 Installed By Installed On « --------------------------- » 58 Hot Fix ID Q147222 Installed By Installed On « --------------------------- » 59 Hot Fix ID KB917283 Installed By Yzöwl Installed On 06/01/2007 « --------------------------- » 60 Hot Fix ID KB922770 Installed By Yzöwl Installed On 06/01/2007 « --------------------------- » 61 Hot Fix ID IDNMitigationAPIs Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 62 Hot Fix ID NLSDownlevelMapping Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 63 Hot Fix ID KB925398_WMP64 Installed By Installed On « --------------------------- » 64 Hot Fix ID MSCompPackV1 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 65 Hot Fix ID KB873339 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 66 Hot Fix ID KB885626 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 67 Hot Fix ID KB885836 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 68 Hot Fix ID KB886185 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 69 Hot Fix ID KB888302 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 70 Hot Fix ID KB890859 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 71 Hot Fix ID KB891781 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 72 Hot Fix ID KB893756 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 73 Hot Fix ID KB896358 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 74 Hot Fix ID KB896423 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 75 Hot Fix ID KB896424 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 76 Hot Fix ID KB896428 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 77 Hot Fix ID KB898461 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 78 Hot Fix ID KB899587 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 79 Hot Fix ID KB899591 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 80 Hot Fix ID KB900485 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 81 Hot Fix ID KB900725 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 82 Hot Fix ID KB901017 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 83 Hot Fix ID KB901214 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 84 Hot Fix ID KB902400 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 85 Hot Fix ID KB904706 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 86 Hot Fix ID KB905414 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 87 Hot Fix ID KB905749 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 88 Hot Fix ID KB908519 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 89 Hot Fix ID KB908531 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 90 Hot Fix ID KB910437 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 91 Hot Fix ID KB911280 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 92 Hot Fix ID KB911562 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 93 Hot Fix ID KB911927 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 94 Hot Fix ID KB912919 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 95 Hot Fix ID KB913580 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 96 Hot Fix ID KB914388 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 97 Hot Fix ID KB914389 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 98 Hot Fix ID KB915865 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 99 Hot Fix ID KB916595 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 100 Hot Fix ID KB917422 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 101 Hot Fix ID KB917953 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 102 Hot Fix ID KB918439 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 103 Hot Fix ID KB919007 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 104 Hot Fix ID KB920213 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 105 Hot Fix ID KB920670 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 106 Hot Fix ID KB920683 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 107 Hot Fix ID KB920685 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 108 Hot Fix ID KB920872 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 109 Hot Fix ID KB921398 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 110 Hot Fix ID KB922582 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 111 Hot Fix ID KB922616 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 112 Hot Fix ID KB922819 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 113 Hot Fix ID KB923191 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 114 Hot Fix ID KB923414 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 115 Hot Fix ID KB923694 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 116 Hot Fix ID KB923980 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 117 Hot Fix ID KB924191 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 118 Hot Fix ID KB924270 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 119 Hot Fix ID KB926139 Installed By Installed On « --------------------------- » 120 Hot Fix ID KB926239 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 121 Hot Fix ID KB926255 Installed By SYSTEM Installed On 1/6/2007 « --------------------------- » 122 Hot Fix ID XpsEPSC Installed By Installed On « --------------------------- »I'm not sure about all the (57) empty entries at the beginning.I forgot to add the filter to remove those entries that a Homer Moment there.This is what I got on Vista » 3/7/2007 1:39:35 PM « --------------------------- » « INSTALLED UPDATES » 01 Hot Fix ID {FFB59000-EB47-45BC-842A-EFFBDA635C94} Installed By Installed On 20070213 « --------------------------- » 02 Hot Fix ID {01D2D18F-B421-4D45-9668-3BC302A91ACD} Installed By Installed On 20070217 « --------------------------- » 03 Hot Fix ID {02BE569D-7BBD-4451-A955-C0CDFB0695F1} Installed By Installed On 20070217 « --------------------------- » 04 Hot Fix ID {191BB17D-7BB4-43E9-8C98-7A981EF8AA43} Installed By Installed On 20070213 « --------------------------- » 05 Hot Fix ID {2AFBAC85-8F32-4EDB-AF56-D68239DAFF7D} Installed By Installed On 20070213 « --------------------------- » 06 Hot Fix ID {3A494A73-0731-48A6-B705-3965382F86D6} Installed By Installed On 20070217 « --------------------------- » 07 Hot Fix ID {4031623D-AC43-4B41-A0DF-584797918684} Installed By Installed On 20070217 « --------------------------- » 08 Hot Fix ID {52F34B4D-32E3-4065-9869-74F96B1AFA23} Installed By Installed On 20070213 « --------------------------- » 09 Hot Fix ID {5482BBD9-1042-4385-8662-74AF4616856C} Installed By Installed On 20070217 « --------------------------- » 10 Hot Fix ID {691E8ABA-4D04-4389-8738-692BF5E426C5} Installed By Installed On 20070217 « --------------------------- » 11 Hot Fix ID {6EE34979-0355-44EB-8761-21D32B1CE4AB} Installed By Installed On 20070213 « --------------------------- » 12 Hot Fix ID {81CFF79E-04E6-41BC-B4FA-D2FF4DE58A15} Installed By Installed On 20070213 « --------------------------- » 13 Hot Fix ID {9F931B29-A990-47A8-AC1C-C3AA70A5BB5F} Installed By Installed On 20070217 « --------------------------- » 14 Hot Fix ID {C6F1E87D-F3E1-4874-97EC-F87DAB6D6878} Installed By Installed On 20070213 « --------------------------- » 15 Hot Fix ID {D08B83BB-C13A-40A8-9BBC-6C581AFCAB2C} Installed By Installed On 20070213 « --------------------------- » 16 Hot Fix ID {DD0CF6CB-ADBC-4062-B30C-D53B21A83AFB} Installed By Installed On 20070213 « --------------------------- » 17 Hot Fix ID {F0EDE60D-BD69-4351-81BA-706E51179F7E} Installed By Installed On 20070217 « --------------------------- » 18 Hot Fix ID 930063 Installed By S-1-5-21-1202660629-436374069-1801674531-500 Installed On 01c7445dfc13aafd « --------------------------- » 19 Hot Fix ID 929327 Installed By S-1-5-21-1202660629-436374069-1801674531-500 Installed On 01c74fec0ea54a34 « --------------------------- » 20 Hot Fix ID 929328 Installed By S-1-5-21-1202660629-436374069-1801674531-500 Installed On 01c7445dfc160d57 « --------------------------- » 21 Hot Fix ID KB905866 Installed By S-1-5-21-1202660629-436374069-1801674531-500 Installed On 01c74fec11d24c16 « --------------------------- » 22 Hot Fix ID KB929735 Installed By S-1-5-21-1202660629-436374069-1801674531-500 Installed On 01c7445dfc186fb1 « --------------------------- » 23 Hot Fix ID KB930857 Installed By S-1-5-21-1202660629-436374069-1801674531-500 Installed On 01c7445dfc186fb1 « --------------------------- » 24 Hot Fix ID KB931573 Installed By S-1-5-21-1202660629-436374069-1801674531-500 Installed On 01c7445dfc186fb1 « --------------------------- » 25 Hot Fix ID KB928089 Installed By S-1-5-21-1202660629-436374069-1801674531-500 Installed On 01c7445dfc186fb1 « --------------------------- » 26 Hot Fix ID KB929427 Installed By S-1-5-21-1202660629-436374069-1801674531-500 Installed On 01c7445dfc186fb1 « --------------------------- »I have updated the sfx and the code.Save As ComputerInfo_v1.vbsstrComputer = "." Dim Act : Set Act = CreateObject("Wscript.Shell") Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim Wmi : Set Wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"& strComputer &"\root\cimv2") Dim WmiVar : WmiVar = wbemFlagReturnImmediately + wbemFlagForwardOnly Dim Cnt, colItems, GFile, objItem, OsVer, Rpt, TS, Var1, Var2, Var3, Var4'/-> Get The OS Version Set colItems = Wmi.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", WmiVar) For Each objItem In colItems : OsVer = objItem.Version: Next Rpt = Act.ExpandEnvironmentStrings("%UserProfile%\Desktop\SysReport.txt") Var1 = Space(2) & Chr(171) & " --------------------------- " & Chr(187) Set TS = Fso.CreateTextFile(Rpt) TS.WriteLine Space(2)& Chr(187) & Chr(160) & Now() TS.writeline Var1'/-> Start Computer Info Set colItems = Wmi.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", WmiVar) For Each objItem in colItems If Not isNull(objItem.SupportContactDescription) Then Var2 = Var2 & Join(objItem.SupportContactDescription, Space(3) & vbCrLf & Space(3)) End If Next If InStr(Var2,"For Technical Support:") Then Var3 = Replace(Var2,"For Technical Support:",Space (2) & "For Technical Support:") TS.WriteLine Var3 & vbCrLf & Space(2) & Var1 Else TS.WriteLine Var2 & vbCrLf & Space(2) & Var1 End If '/-> Quick Fix Engineering Set colItems = Wmi.ExecQuery("SELECT * FROM Win32_QuickFixEngineering", "WQL", WmiVar) Dim Qfe1, Qfe2, Qfe3 For Each objItem in colItems Qfe1 = "Hot Fix ID " & objItem.HotFixID Qfe2 = "Installed By " & objItem.InstalledBy Qfe3 = "Installed On " & objItem.InstalledOn'/-> XP x86 If InStr(OsVer,"5.1.2600") Then If InStr(Qfe1,"Windows") Then XP_x86() End If End If '/-> XP x64 If InStr(OsVer,"5.2.3790") Then If InStr(objItem.HotFixID,"File 1") Then XP_x64() End If End If '/-> Vista x86 If InStr(OsVer,"6.0.6000") Then Vista_x86() End If Next TS.WriteLine vbCrLf & UCase(" « Installed Updates » ") & vbCrLf & Var4 TS.Close()'/-> Function XP_x86() CountQfe() Var4 = Var4 & Space(3)& Cnt & vbCrLf & Space(4)& Qfe1 & _ vbCrLf & Space(4)& Qfe2 & vbCrLf & Space(4)& Qfe3 & vbCrLf & Var1 & vbCrLf End Function Function XP_x64() CountQfe() Var4 = Var4 & Space(3)& Cnt & vbCrLf & Space(4)& Qfe1 & _ vbCrLf & Space(4)& Qfe2 & vbCrLf & Space(4)& Qfe3 & vbCrLf & Var1 & vbCrLf End Function '/-> Function Vista_x86() CountQfe() Var4 = Var4 & Space(3)& Cnt & vbCrLf & Space(4)& Qfe1 & _ vbCrLf & Space(4)& Qfe2 & vbCrLf & Space(4)& Qfe3 & vbCrLf & Var1 & vbCrLf End Function '/-> Count Updates Function CountQfe() Cnt = Cnt + 1 If Cnt > 9 Then Cnt = Cnt ElseIf Cnt = 9 Then Cnt = "0" & Cnt Else Cnt = "0" & Cnt End If End Function '/-> Run The Report Set GFile = Fso.GetFile(Rpt) Act.Run(GFile.Path),1,True '/-> Delete The VBS File Dim VBS : VBS = Act.ExpandEnvironmentStrings("%SystemDrive%\ComputerInfo_v1.vbs") If Fso.FileExists(VBS) Then Fso.DeleteFile(VBS) End If Edited April 25, 2007 by gunsmokingman
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now