Discussion :

[LeGilou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[omen999]

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

[ProgElecT]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[LeGilou]

Merci.