Hi,

I'm planning a migration to Vista for my company. But to avoid unnecessary license cost i'd like to make a vb-script that lists all installed software for the current machine. I'd also like to know the date the user last used the software.

Anyone any idea how to do this? I found this but that doesn't report correct.


<job id="FindSoftware">
<script language="VBScript">
On Error Resume Next
Dim X
set X = createobject("WSCRIPT.Network")
dim U
U=x.UserName

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

Set colFeatures = objWMIService.ExecQuery _
("SELECT * FROM Win32_SoftwareFeature")

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("MYSERVERshare" & U & ".txt",2)
For each objFeature in colFeatures
file.writeline "Product Name: " & objFeature.Name & ";"
file.writeline "Caption: " & objFeature.Caption & ";"
file.writeline "Description: " & objFeature.Description & ";"
file.writeline "Vendor: " & objFeature.Vendor & ";"
file.writeline "Last Use: " & objFeature.LastUse & ";"
file.writeline ""


Next
set file =nothing
set fso=nothing
wscript.echo "finished"

</script>
</job>


Regards

Joeri.

0 Comments   [ - ] Hide Comments