แสดงรายการโปรแกรมที่ติดตั้งในเครื่อง

ในคอมในคอมพิวเตอร์เครื่องหนึ่งมีโปรแกรมอะไรบ้างติดตั้งอยู่บ้าง? ถ้าอยากจะรู้คุณๆ ก็มีวิธีช่วยให้คุณรู้ได้ง่ายๆ คือ การเขียน ?VBScript เพื่อการแสดงรายการโปรแกรมทั้งหมดขึ้นมา

วิธีการก็มีดังนี้…

1.ให้เปิด Notepad ขึ้นมา แล้วก็อปปี้ Script ข้างล่างนี้มาปะที่ Notepad

strComputer = “.”

Dim objExplorer, binFirstWindow, strTextOutput

const crlf=”<BR>”

Set objWMIService = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)

Set colSoftware = objWMIService.ExecQuery(“Select Name from Win32_Product”)

strResult = “”

For Each objSoftware in colSoftware

strResult = strResult & objSoftware.Name & crlf

Next

showText(strResult)

showText(crlf & “Done!”)

Wscript.Quit

Sub showText(strText)

If binFirstWindow = False Then

binFirstWindow = True

Set objExplorer = WScript.CreateObject(“InternetExplorer.Application”)

With ObjExplorer

.Navigate “about:blank”

.ToolBar = 0

.StatusBar = 0

.Width=400

.Height = 200

.Left = 0

.Top = 0

End With

Do While (objExplorer.Busy)

Wscript.Sleep 200

Loop

strTextOutput = “”

objExplorer.Visible = 1

End If

strTextOutput = strTextOutput & strText & crlf

objExplorer.Document.Body.InnerHTML = strTextOutput

End Sub

2.บันทึกไฟล์นี้เป็นชื่อ List Installed Program.vbs

3.เวลาใช้งานก็ดับเบิลคลิกที่ไฟล์สร้างขึ้นมา จะมีหน้าต่าง Blank Page-Windows Internet Explorer แสดงรายการโปรแกรมทั้งหมดในคอมพิวเตอร์ออกมา

เพื่อความสะดวกของคุณๆ ที่อ่านบทความ สามารถดาวน์โหลดไฟล์ได้ที่นี่

http://www.4shared.com/file/CWV8jx9R/List_Installed_Program.html