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
» Mathématiques pour les transformations du plan
par papydall Aujourd'hui à 3:17

» petite animation
par papydall Aujourd'hui à 3:13

» Pour coincer la bulle
par Marc Aujourd'hui à 0:39

» De l’utilité de l’inutile : i^n
par papydall Hier à 16:02

» Un catalogue de photos de fleurs, avec KBDD
par papydall Hier à 15:25

» KGF_dll - nouvelles versions
par Klaus Hier à 15:01

» Version instantanée V 0.9.28i14 du 10/02/2018
par Klaus Hier à 13:05

» Racine cubique d'un nombre
par Marc Jeu 15 Fév 2018 - 21:24

» Problèmes de résolution écran avec Panoramic.
par Pedro Alvarez Jeu 15 Fév 2018 - 17:03

» Changement pour GRID_ONE_COLUMN_WIDTH
par Klaus Jeu 15 Fév 2018 - 8:33

» Exemples de définition et utilisation de Fonctions FNC
par papydall Jeu 15 Fév 2018 - 2:48

» Visualisation d'une équation. Source inachevé...
par Marc Mer 14 Fév 2018 - 21:06

» Pas de limites pour GRID !
par Oscaribout Mar 13 Fév 2018 - 1:14

» Choix de la police dans l'IDE Panoramic
par Marc Lun 12 Fév 2018 - 23:21

» Extension de la dimension des variables de type tableau
par papydall Lun 12 Fév 2018 - 17:17

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 Caractéristiques système

Aller en bas 
AuteurMessage
JL35



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

MessageSujet: Caractéristiques système   Mer 23 Sep 2015 - 18: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 : 5170
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Caractéristiques système   Mer 23 Sep 2015 - 19: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 : 6139
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Caractéristiques système   Mer 23 Sep 2015 - 20: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
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 :: Présentation et bavardage-
Sauter vers: