transformation d'une valeur ascii en valeur reg_binaryRésolu

Question

Bonjour

Afin de changer l'utilisateur enregistr&#233; dans office par le login utilisateur du pc, j'extrait la valeur de la clef  "HKCU\Software\Microsoft\Office\9.0\Common\UserInfo\UserName".

Celle ci est cod&#233; en hexad&#233;cimal. J'aimerais transformer ma variable chaine (exemple : user) donn&#233; par le code
Set netw = CreateObject("WScript.Network")
netw.UserName

en valeur microsoft reg_binary

"UserName"=hex:75,00,73,00,65,00,72,00,00,00

Comment r&#233;aliser cette op&#233;ration de conversion et d'&#233;criture dans la base de registre en vbscript?

Merci

nono

PCPT · Accepted Answer

salut, j'ai repris ton exemple. tu n'as plus qu'à adapter... [VB6] Option Explicit ' ' Private Sub Form_Load() Const sHexa As String = "75,00,73,00,65,00,72,00,00,00" ' la chaîne en tableau Dim aChaine() As String aChaine = Split (sHexa, ",") ' Integer ascii en tableau Dim aAscii() As Integer ReDim aAscii(UBound(aChaine)) ' ascii = code chaine convertie Dim sResult As String: sResult = "" Dim i As Integer For i = 0 To UBound (aChaine) aAscii(i) = Val(Right$(aChaine(i), 1)) + (Val(Left$(aChaine(i), 1)) * 16) sResult = sResult & Chr$(aAscii(i)) Next i ' on vire les Chr(0) sResult = Replace(sResult, Chr$(0), "") MsgBox sResult End Sub Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

nonos85 · Answer

cela fonctionne nickel mais j'ai du mal &#224; le transformer en vbs. je dois avoir des soucis de syntaxe
Sub transformation


sHexa = "75,00,73,00,65,00,72,00,00,00" 


'   la cha&#238;ne en tableau
    Dim aChaine as String
    aChaine = Split(sHexa, ",")
'   Integer ascii en tableau
    Dim aAscii
    ReDim aAscii(UBound(aChaine)) 


'   ascii = code chaine convertie
    Dim sResult
    Dim i 
    sResult = "" 
      
    For i = 0 To UBound(aChaine) 
        aAscii(i) = Val(Right(aChaine(i), 1)) + (Val(Left(aChaine(i), 1)) * 16) 
        sResult = sResult & Chr(aAscii(i)) 
    Next


'   on vire les Chr(0)
    sResult = Replace(sResult, Chr(0), "") 
    MsgBox sResult 
End Sub


transformation

PCPT · Answer

j'ai mis VB6 parceque je ne peux pas te le faire en VBS.

le code fonctionne, essai de voir dans des bouquins quelles sont les syntaxes....

bon courage

PCPT   [AFCK]

nonos85 · Answer

j'ai trouv&#233; le probl&#232;me c'est la fonction val qui n'a pas l'air d'exister ou de fonctionner de la m&#234;me fa&#231;on

merci en tout cas pour le code j'ai saisi la finalit&#233;

nonos85

PCPT · Answer

alors pense &#224; le valider 

@+

nonos85 · Answer

bon j'ai r&#233;ussi &#224; le transcrire en vbs (il faut simplement enlever val et mettre directement right par exemple) plus qu'&#224; trouver la fonction inverse si tu as cela je suis preneur 

nonos85

PCPT · Answer

non, je ne l'ai pas mais je peux le faire..... Option Explicit ' ' Private Sub Form_Load() Dim i As Integer Const sChaine As String = "user" ' taille Dim iLenChaine As Integer iLenChaine = Len (sChaine) ' la chaîne en tableau Dim aChaine() As String ReDim aChaine(iLenChaine) 'premiere valeur null non utilisée... indice 0 For i = 1 To iLenChaine aChaine(i) = Mid$(sChaine, i, 1) Next i ' ascii integer en tableau Dim aAscii() As Integer ReDim aAscii(iLenChaine) For i = 1 To iLenChaine aAscii(i) = Asc (aChaine(i)) Next i ' ascii hexa en tableau + result Dim sResult As String: sResult = "" Dim aHexa() As String ReDim aHexa(iLenChaine) For i = 1 To (iLenChaine) aHexa(i) = Hex (aAscii(i)) sResult = sResult & CStr(aHexa(i)) & ",00," Next i ' on ajoute le dernier chr(0) sResult = sResult & "00,00" MsgBox sResult 'résultat à obtenir avec "user" = "75,00,73,00,65,00,72,00,00,00" End Sub Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

nonos85 · Answer

g&#233;nial !!! tu me sauves la mise moi qui n'est pas l'habitude de programmer

merci

infiniment

nonos85

Transformation d'une valeur ascii en valeur reg_binary

8 réponses

Discussions similaires