J'ai une page Web qui me permet de faire la liste des applications installées sur les postes. Je réussis à faire afficher l'information dans un "message box", mais si je veux la faire afficher directement sur la page, j'ai un message d'erreur: "Type incompatible"
Dans la page j'ai une section "SCRIPT", comme suit:
<SCRIPT language="VBScript" type="text/vbscript">
test = InstalledApplications("cls03soupc00121")
'Function Apps
msgbox InstalledApplications("cls03soupc00125")
'End Function
Function InstalledApplications(node)
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Set oRegistry = GetObject("winmgmts://" _
& node & "/root/default:StdRegProv")
sBaseKey = _
"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys)
For Each sKey In arSubKeys
iRC = oRegistry.GetStringValue( _
HKLM, sBaseKey & sKey, "DisplayName", sValue)
If iRC <> 0 Then
oRegistry.GetStringValue _
HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
End If
If sValue <> "" Then
InstalledApplications = _
InstalledApplications & sValue & "<br>"
End If
Next
End function
</SCRIPT>
Comme c'est là, j'ai la boite me donne le résultat. Avec la ligne en bleue:
test = InstalledApplications("cls03soupc00121")
j'essai de faire afficher l'information sur la page plus bas (en dehors de la section "SCRIPT") avec <%=test%>. Dépendemment où je place la ligne en bleue, soit il n'y a rien, soit j'ai le message "Type incompatible".
Merci pour votre aide!