Bulldog (Need help with script downloaded from script center)

Discussion in 'Scripting' started by Bulldog Bill, Jan 15, 2009.

  1. Bulldog Bill

    Bulldog Bill Guest

    I downloaded the below script for listing all software loaded on a client
    station but when i run it undesr wscript or use the GUI I have to ok each
    and every capture, I am trying to get a list of what is on the station and
    get it output to a csv file if possible. I am new at all of this so any help
    at all would be appreciated. thanks in advance>

    Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
    strComputer = "."
    strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
    strEntry1a = "DisplayName"
    strEntry1b = "QuietDisplayName"
    strEntry2 = "InstallDate"
    strEntry3 = "VersionMajor"
    strEntry4 = "VersionMinor"
    strEntry5 = "EstimatedSize"

    Set objReg = GetObject("winmgmts://" & strComputer & _
    "/root/default:StdRegProv")
    objReg.EnumKey HKLM, strKey, arrSubkeys
    WScript.Echo "Installed Applications" & VbCrLf
    For Each strSubkey In arrSubkeys
    intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
    strEntry1a, strValue1)
    If intRet1 <> 0 Then
    objReg.GetStringValue HKLM, strKey & strSubkey, _
    strEntry1b, strValue1
    End If
    If strValue1 <> "" Then
    WScript.Echo VbCrLf & "Display Name: " & strValue1
    End If
    objReg.GetStringValue HKLM, strKey & strSubkey, _
    strEntry2, strValue2
    If strValue2 <> "" Then
    WScript.Echo "Install Date: " & strValue2
    End If
    objReg.GetDWORDValue HKLM, strKey & strSubkey, _
    strEntry3, intValue3
    objReg.GetDWORDValue HKLM, strKey & strSubkey, _
    strEntry4, intValue4
    If intValue3 <> "" Then
    WScript.Echo "Version: " & intValue3 & "." & intValue4
    End If
    objReg.GetDWORDValue HKLM, strKey & strSubkey, _
    strEntry5, intValue5
    If intValue5 <> "" Then
    WScript.Echo "Estimated Size: " & Round(intValue5/1024, 3) & "
    megabytes"
    End If
    Next
     
    Bulldog Bill, Jan 15, 2009
    #1
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.