Oto jak uzyskać listę zainstalowanych programów dla danej stacji roboczej

 Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\install.txt", True)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery _
    ("Select * from Win32_Product")

objTextFile.WriteLine "Caption" & vbtab & _
    "Install Date" & vbtab & "Install Location" & vbtab & _
    "Install State" & vbtab & "Name" & vbtab & _ 
    "Vendor" & vbtab
      

For Each objSoftware in colSoftware
    objTextFile.WriteLine objSoftware.Caption & vbtab & _  
    objSoftware.InstallDate2 & vbtab & _
    objSoftware.InstallLocation & vbtab & _
    objSoftware.InstallState & vbtab & _
    objSoftware.Name & vbtab & _
    objSoftware.Vendor & vbtab
Next
wscript.echo "List has been prepared"
objTextFile.Close

Ostatnie uaktualnienie : 18-06-2009 10:46

Słowa kluczowe : Lista zainstalowanych programów, vbs, vbscript

Średnia ocena użytkownika

Brak ocen