Lecture registre - REG_QWORD

Bonjour,

J'essaye de lire la clé de registre suivante :

HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsBackup\Status\LastSuccess
Cette clé donne la date de la dernière sauvegarde correcte de Windows.

J'utilise le code suivant :

Code:

---

1 2	Set WshShell = WScript.CreateObject("WScript.Shell") WScript.Echo WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsBackup\Status\LastSuccess")

---

En retour, j'ai une erreur 800A000D.
D'après ce que je comprend, c'est le type de données REG_QWORD qui ne peut pas être affiché.
Comment faire pour récupérer cette valeur, dans un format date compréhensible ?

Je vous remercie,
Bonne journée,

Gilou.

bonjour,
l'objet shell de wsh ne gère pas les valeurs REG_QWORD qui sont des entiers sur 64 bits que vbscript ne supporte pas directement

Salut

Je suis bien sûr d'accord avec omen999, tu peux par contre lire se type de cette façon.

Code:

---

1 2 3 4 5 6 7 8

Dim oReg, ClefPrimaire, MsgRecup Const HKEY_LOCAL_MACHINE = &H80000002   Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") ClefPrimaire = "SOFTWARE\Microsoft\Windows\CurrentVersion\StructuredQuery" oReg.GetQWORDValue HKEY_LOCAL_MACHINE, ClefPrimaire, "SchemaChangedLast", MsgRecup Set oReg = Nothing Msgbox MsgRecup

---

réponse en décimale 129491563904692986

Par contre, je n'ai pas trouvé de clefs QWORD ayant l'air de correspondre à une date, donc je n'ai pas peu vérifier les possibilités de conversion.

Merci.