problème lecture d'une valeur avec le caractere slach - VB/VBA/VBS - Programmation
Marsh Posté le 24-11-2004 à 10:17:19
Biensur ca sera plus facile
le but etant de faire apparaitre via une msgbox les valeurs.
voici mon fichier reg:
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Pytheas\PAMScan\]
"Date scan"="20041005094813"
"Version"="3.3.3"
"PAMScan version"="PamScan32 6.0.38"
[HKEY_LOCAL_MACHINE\SOFTWARE\Pytheas\PAMScan\\Questions]
"COMPUTER1\\otInternalNumber"="00019463"
"COMPUTER1\\otSerialNumber"="CF1XJ0J"
"test"="blabla"
et voici mon vbs :
Dim FSO,cl1,cl2,cl3,cl4,var,key
Dim annee,mois,jour
On Error Resume Next
Set FSO=WScript.CreateObject("WScript.Shell" )
' RECUPERATION DE LA DATE DU SCAN
cl1=FSO.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Pytheas\PAMScan\Date scan" )
If Err<0 Then
MsgBox ("Matériel non répertorié"_
& VbCrLf & "Prendre contact avec la Hotline"_
& VbCrLf & "pour inventorier la machine" )_
,vbCritical,"Service informatique Apec"
WScript.Echo (Err)
Else
annee=Left(cl1,4)
mois=Mid(cl1,5,2)
jour=Mid (cl1,7,2)
key=Chr(47)
key="HKEY_LOCAL_MACHINE\SOFTWARE\Pytheas\PAMScan\Questions\COMPUTER1\\\otManufactor"
WScript.Echo (key)
cl2=FSO.RegRead (key)
'FSO.Exec ("reg export HKEY_LOCAL_MACHINE\SOFTWARE\Pytheas\PAMScan\Questions c:\questions.reg" )
WScript.Echo (cl2& " ---> " & Err)
MsgBox (jour &"/"& mois &"/"& annee),,"date du scanne"
End If
Marsh Posté le 29-11-2004 à 11:14:16
Bonjour à tous !!!!
Alors est ce que quelqu'un est capable de m'éditer une valeur de type "xxx/yyy"="chaine" via la methode regread de vbs ?
Marsh Posté le 23-11-2004 à 17:20:39
Bonjour à tous,
Je rencontre un problème pour lire une valeur de la bdr qui est nommé de "xxx/yyy"="chain" avec la methode regread de vbs
vbs me renvoit un code d'erreur negatif.
La methode fonctionne sans le backslach
Si quelqu'un pouvait m'aider je lui serait reconnaissant
merci !!!