i want a script that can look in the
HKLM\Software\Microsoft\Current Version\Run
and get all the programs that startup
i am not sure how to do this, not knowing the value name
i had a script before that can get all subkeys, but i have the key and need the data and values
thanks
this is what i had for the subkeys if its any help
'Check for software installed
Function GetSoftware()
On Error resume next
Const HKLM=&H80000002 'HKEY Local Machine
strComputer="." 'Computer "." for local
strKey="Software\Microsoft\Windows\CurrentVersion\Uninstall"
SRP.EnumKey HKLM,strKey,strSubKeys
For Each subkey In strSubKeys
SRP.GetStringValue HKLM,strKey & "\" & subkey,"DisplayName",dn
If dn >"" Then
strSoftware = strSoftware & dn & vbcrlf
Else
SRP.GetStringValue HKLM,strKey & "\" & subkey,"QuietDisplayName",dn
If dn >"" Then
strSoftware = strSoftware & dn & vbcrlf
Else
strSoftware = strSoftware & subkey & vbcrlf
End If
End If
Next
End Function
HKLM\Software\Microsoft\Current Version\Run
and get all the programs that startup
i am not sure how to do this, not knowing the value name
i had a script before that can get all subkeys, but i have the key and need the data and values
thanks
this is what i had for the subkeys if its any help
'Check for software installed
Function GetSoftware()
On Error resume next
Const HKLM=&H80000002 'HKEY Local Machine
strComputer="." 'Computer "." for local
strKey="Software\Microsoft\Windows\CurrentVersion\Uninstall"
SRP.EnumKey HKLM,strKey,strSubKeys
For Each subkey In strSubKeys
SRP.GetStringValue HKLM,strKey & "\" & subkey,"DisplayName",dn
If dn >"" Then
strSoftware = strSoftware & dn & vbcrlf
Else
SRP.GetStringValue HKLM,strKey & "\" & subkey,"QuietDisplayName",dn
If dn >"" Then
strSoftware = strSoftware & dn & vbcrlf
Else
strSoftware = strSoftware & subkey & vbcrlf
End If
End If
Next
End Function