Jump to content

HTA Scan For Computer Info

gunsmokingman
 Share

Recommended Posts

r4v3n

r4v3n

Posted
Posted

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.Status

Could 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?

Link to comment
Share on other sites

gunsmokingman

gunsmokingman

Posted
  • Author
Posted (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.Status

Could 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 Information

strComputer = "." 
Dim colItems, Nwa, objItem
Dim 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
  Next

Set 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 
Next

CreateObject("Wscript.Shell").Popup space(9) & "Win32_NetworkAdapter" & vbCrLf & Nwa,30,"NetworkAdapter",4128

Edited by gunsmokingman
Link to comment
Share on other sites
  • 3 weeks later...
gunsmokingman

gunsmokingman

Posted
  • Author
Posted (edited)

Here is a new script that I have made and would like to know

if this would be enough infomation. It only produces a text file

for now, but if you think it is enough I will add it the HTA stuff

for it later.

I have Updated This Code In A Lower Post

strComputer = "." 
 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 by gunsmokingman
Link to comment
Share on other sites
Yzöwl

Yzöwl

Posted
Posted

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.

Link to comment
Share on other sites
gunsmokingman

gunsmokingman

Posted
  • Author
Posted (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.vbs

strComputer = "." 
 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 by gunsmokingman
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...