Merci bbil pour ta réponse rapide.
J'ai essayé différents scripts de ce genre mais rien ne s'affiche.
Pour ne pas en rester à ce stade est en apprendre un peu plus sur le sujet, je vais me focaliser sur un script du lien que tu m'a transmis
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
<SCRIPT LANGUAGE="VBScript">
Dim objWMIService, colInstalledPrinters, objPrinter
Dim nomPC, Resultat
nomPC = "."
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & nomPC & "\root\cimv2")
Set colInstalledPrinters = _
objWMIService.execQuery("Select * from Win32_Printer")
For Each objPrinter In colInstalledPrinters
Resultat = Resultat & "Nom: " & objPrinter.Name & " active : " _
& objPrinter.Default & vbLf
Next
MsgBox Resultat
</SCRIPT> |
Aucune information n'apparait mais il y a une erreur. Ne connaissant pas VBScript quelqu'un peut-il m'aider à comprendre cette erreur et comment la corriger.
Un composant ActiveX ne peut pas créer un objet : 'GetObject'
Quelqu'un pourrait-il m'expliquer le paramètre de cette fonction GetObject? mon soucis vient peut être uniquement d'une mauvaise configuration?
J'ai également essayé de modifer les paramètre de mon navigateur mais sans résultat positif seulement un changement d'erreur vers "permission denied"
Partager