' ----------------------------------------------------------
' Script VBS de lecture de clef de la BDR
' JCB - © 2002
' ----------------------------------------------------------
Dim Shell,args
Set Shell = WScript.CreateObject("WScript.Shell")
Set args  = Wscript.Arguments
If args.Count>0 Then
	Key=args(0)
Else
	Wscript.Echo "Nom de clef manquante!"
	WScript.Quit
	End If
p=instr(key,"\")
If p>0 Then
	root=left(key,p-1)
	suite=mid(key,p)
	key=ucase(root) & suite
Else
	key=ucase(key)
	End If
Valeur=ReadKey(Key)
Wscript.echo Valeur
Wscript.Quit Err.Number
' ----------------------------------------------------------
Function ReadKey(key) 
On Error Resume Next
ReadKey=shell.RegRead(key)
If Err.Number<>0 Then
	If right(key,1)<>"\" Then key=key & "\"
	Err.Clear
	ReadKey=shell.RegRead(key)
	If Err.Number<>0 Then Wscript.Echo "Erreur dans la lecture de la clef" & vbcrlf & key
	End If
end function
' ----------------------------------------------------------