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
» Quelle option est cochée ?
par Klaus Hier à 20:07

» PPE...le retour ?...
par Jean Claude Hier à 19:57

» Univers sans fin
par jjn4 Hier à 17:55

» Palette de couleurs
par jjn4 Hier à 17:51

» New: Maître-expert alphabétique
par jjn4 Hier à 17:12

» Sortie de Sub intempestive
par JL35 Dim 19 Fév 2017 - 17:31

» Caracteres de blocs
par Yannick Sam 18 Fév 2017 - 16:04

» KGF_dll - nouvelles versions
par Yannick Sam 18 Fév 2017 - 15:46

» KGF.dll et EXCEL
par Jicehel Sam 18 Fév 2017 - 14:38

» Gestion des évènements par une DLL
par Klaus Sam 18 Fév 2017 - 13:50

» un éditeur en attendant Panoramic_Editor OK
par Jack Sam 18 Fév 2017 - 8:19

» Bug de PANORAMIC.EXE
par Klaus Ven 17 Fév 2017 - 21:00

» PLM N35
par Jean Claude Ven 17 Fév 2017 - 18:42

» Maître-expert couleur
par Jicehel Ven 17 Fév 2017 - 15:55

» La (micro) guerre des Etoiles
par Yannick Ven 17 Fév 2017 - 14:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728     
CalendrierCalendrier

Partagez | 
 

 Caractéristiques système

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



Nombre de messages : 5779
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



Nombre de messages : 4629
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 : 5779
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 techniques laguna II
» Caractéristiques Train

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: