FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Palette (une de plus): 16, 48 ou 216 couleurs
par mindstorm Aujourd'hui à 21:55

» La roue de la fortune
par Jean Claude Aujourd'hui à 21:23

» Modifier le son d'une vidéo
par Jean Claude Aujourd'hui à 21:10

» SimpleEditor
par Klaus Aujourd'hui à 20:02

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 18:21

» Synedit_Editor - nouvelles versions
par Klaus Aujourd'hui à 12:25

» Gestionnaire de Projets Panoramic
par Laurent (Minibug) Hier à 23:23

» Un nouveau
par jjn4 Hier à 20:32

» PANO-LIKE : Une copie de Panoramic Editeur
par Laurent (Minibug) Dim 23 Avr 2017 - 18:42

» Un compteur de lignes de code source
par Klaus Sam 22 Avr 2017 - 21:55

» Rechercher une chaîne de caractère dans un fichier.
par papydall Sam 22 Avr 2017 - 13:45

» Problème avec la fonction IsolateWordsFromString.
par Klaus Sam 22 Avr 2017 - 10:42

» Recherche Hardware MIDI
par Yannick Ven 21 Avr 2017 - 21:08

» Panoramic Editor
par Yannick Jeu 20 Avr 2017 - 23:18

» Problème avec la fonction ReplaceStringInString.
par Pedro Alvarez Jeu 20 Avr 2017 - 17:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Avril 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Caractéristiques système

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



Nombre de messages : 5859
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Caractéristiques système   Mer 23 Sep 2015 - 19:29

Affichage des caractéristiques du système, stockées dans le registre:
Code:
DIM fm$,a$,a1$,b$,b1$,c$,i%,k%,t$(100),t1$(100),l%(100),x%(100),n%,xd%
fm$ = "C:\TEMP\Liste.txt"
EXECUTE_WAIT "cmd.exe /c wmic OS >"+fm$

FILE_OPEN_READ 1,fm$
    FILE_READLN 1,a$
    FILE_READLN 1,a1$
FILE_CLOSE 1
FILE_DELETE fm$

b$ = ""
FOR i% = 1 TO LEN(a$)
    c$ = MID$(a$,i%,1)
    IF ASC(c$)<>0 THEN b$ = b$+c$
NEXT i%
b1$ = ""
FOR i% = 1 TO LEN(a1$)
    c$ = MID$(a1$,i%,1)
    IF ASC(c$)<>0 THEN b1$ = b1$+c$
NEXT i%
b$ = RIGHT_POS$(b$,3)
xd% = 1: n% = 0
k% = INSTR_POS(b$," ",xd%)
WHILE k%>0
    n% = n%+1: t$(n%) = MID$(b$,xd%,k%-xd%): x%(n%)=xd%
    xd%=xd%+LEN(t$(n%)): WHILE MID$(b$,xd%,1) = " ": xd%=xd%+1: END_WHILE
    l%(n%) = xd%-x%(n%): ' longueur du champ
    t1$(n%) = MID$(b1$,x%(n%),l%(n%)): ' valeur
    k% = INSTR_POS(b$," ",xd%)
END_WHILE
n% = n%+1: t$(n%) = RIGHT_POS$(b$,xd%)
HEIGHT 0,800: WIDTH 0,600: FONT_NAME 0,"Lucida Console"
MEMO 1: FULL_SPACE 1
FOR i% = 1 TO n%
    IF t$(i%)<>"" THEN ITEM_ADD 1,t$(i%)+ " : "+t1$(i%)
NEXT i%
END

En fait je cherchais le moyen de récupérer le code d'installation de Windows, nécessaire pour le cas de réinstallation, de la forme
1A2B3-4C5D6-E7F8G-9H0J1-K2L3M
Il figure dans le registre sous forme cryptée, dans la clé:
HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId
On peut la visualiser partiellement avec regedit (et même entièrement avec un petit artifice),
Je peux la récupérer de diverses manières, notamment avec un script vbs (qui fait aussi le décodage), en ligne de commande, mais ça ne marche pas si je lance le même script depuis un programme Panoramic, il doit falloir être en mode Administrateur...
Par exemple la commande:
REG QUERY HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId
ne la trouve pas, et pourtant elle existe !
Après il faut la décoder, c'est un peu tordu mais possible.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4742
Age : 62
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Caractéristiques système   Mer 23 Sep 2015 - 20:08

Salut JL35,

Sous W10, on a bien le n° de série de l'OS, mais il manque la clé d'activation.

J'ai vérifié avec Everest et comparé avec tes résultats.

Utile pour W7.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5859
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Caractéristiques système   Mer 23 Sep 2015 - 21:00

Bonsoir Jean Claude,
Je précise que le programme ci-dessus ne donne pas le 'ProductKey' de Windows, qui permet la réinstallation, je n'ai pas réussi à le faire en Panoramic.
Sinon il suffit de lancer un petit script vbs depuis la ligne de commande ou l'explorateur, et ça doit marcher, par exemple:
Code:
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
à sauvegarder par exemple en ProductKey.vbs, et exécuter tel quel (cliquer dans l'explorateur windows).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Caractéristiques système   

Revenir en haut Aller en bas
 
Caractéristiques système
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» caractéristiques de ma ligne fixe
» caractéristiques velsatis
» caractéristiques technique du Renault espace
» caractéristiques espace
» caractéristiques techniques laguna II

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Présentation et bavardage-
Sauter vers: