Discussion :

[tomenbois]

Bonjour,

J'aimerais pouvoir, au moment de l'authentification d'un utilisateur de mon application, récupérer des données concernant l'ordinateur qu'il utilise comme la configuration matérielle, espace disque, OS + version, ...

Je ne sais pas du tout comment m'y prendre. Merci pour votre aide !!!

[mail.spam]

Bonjour...

Regarde du coté des fonctions system dans l'aide..
exemple SysEspace(sysEspaceStockageLibre)

Bonne recherche

[mogwai162]

Voici quelques fonctions que tu peux utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
PROCEDURE Adresse_IP()
 
AdrIP est une chaîne
 
i est un entier
 
POUR i = 0 A 4
 
	AdrIP = NetAdresseIP(SansEspace(Poste),i)
	SI Gauche(AdrIP,3) = "10." ALORS RENVOYER AdrIP
 
FIN
 
RENVOYER ""
 
PROCEDURE Comment_Reseau()
 
OK est un booléen
Comment est une chaîne
 
Comment = RegistreLit("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP","Comment",OK)
 
SI PAS OK ALORS 
	Comment = RegistreLit("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\LanManServer\Parameters","SrvComment",OK)
	SI PAS OK ALORS RENVOYER ""
FIN
 
RENVOYER SansEspace(Comment)
 
PROCEDURE Modele_Machine()
 
// Renvoie le modèle de la machine. Sous réserve de la présence du fichier OEMINFO dans le
// répertoire système.
 
Resultat, Fichier sont des chaînes
 
Fichier = ComplèteRep(SysRep()) + "\OEMINFO.INI"
 
Resultat = INILit("GENERAL","Model","",Fichier)
 
RENVOYER SansEspace(Resultat)
 
PROCEDURE Nom_Poste()
 
Nom est une chaîne = Répète(" ",255)
Lg  est un entier  = 255
 
AppelDLL32("kernel32","GetComputerNameA",&Nom,&Lg)
 
SI SansEspace(Nom) <> "" ALORS RENVOYER SansEspace(Gauche(Nom,Lg))
 
Nom = Répète(" ",100)
Lg  = 100
AppelDLL32("kernel32","GetComputerNameA",&Nom,&Lg)
 
RENVOYER SansEspace(Gauche(Nom,Lg))
 
PROCEDURE Nom_Utilisateur()
 
Lib est une chaîne
Resultat, N sont des entiers  
 
Lib = Répète(" ",250)
N=251
 
Resultat = AppelDLL32("advapi32","GetUserNameA",&Lib,&N)
 
Lib = SansEspace(Gauche(Lib,Position(Lib,Caract(0))))
 
RENVOYER Lib
 
PROCEDURE Processeur()
 
OK est un booléen
Process est une chaîne
 
Process = RegistreLit("HKEY_LOCAL_MACHINE\Hardware\Description\System\CentralProcessor\0","Identifier",OK)
 
SI PAS OK ALORS RENVOYER ""
 
RENVOYER SansEspace(Process)
 
PROCEDURE Service_Pack()
 
OK est un booléen
SP est une chaîne
 
SP = RegistreLit("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","CSDVersion",OK)
 
SI PAS OK ALORS RENVOYER ""
 
RENVOYER SansEspace(SP)
 
PROCEDURE Windows_Version()
 
// Renvoie la version de Windows. Au vu des tests réalisés dans ce code, son fonctionnement 
// est donné sous reserve...
 
MyVer est composé de
    dwOSVersionInfoSize	est un entier  
    dwMajorVersion		est un entier  
    dwMinorVersion		est un entier  
    dwBuildNumber		est un entier  
    dwPlatformId		est un entier  
    szCSDVersion		est une chaîne fixe sur 128
    wSPMajor			est un entier sur 2 octets
FIN
 
VER_PLATFORM_WIN32_WINDOWS	est un entier = 1
VER_PLATFORM_WIN32_NT		est un entier = 2
 
WinVer est une chaîne
 
MyVer.dwOSVersionInfoSize = 148
 
AppelDLL32("kernel32","GetVersionExA", &MyVer)
 
MyVer.dwBuildNumber = ETBinaire(MyVer.dwBuildNumber,65535)
 
SI MyVer.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS ALORS
	SI MyVer.dwMajorVersion = 4 AND MyVer.dwMinorVersion = 0 ALORS
		SELON MyVer.dwBuildNumber
			CAS 950
				WinVer = "Windows 95"
			CAS 1111
				WinVer = "Windows 95 OSR1"
			CAS 1212
				WinVer = "Windows 95 OSR2"
			AUTRES CAS
				WinVer = "Windows 95 ???"
		FIN
	SINON
		SI MyVer.dwMajorVersion = 4 AND MyVer.dwMinorVersion = 10 ALORS
			SI MyVer.dwBuildNumber = 1998 ALORS
                WinVer = "Windows 98"
            SINON
                WinVer = "Windows 98 SE"
            FIN
		SINON
			SI MyVer.dwMajorVersion >= 4 AND MyVer.dwMinorVersion > 10 ALORS
	            WinVer = "Windows ME"
        	FIN
		FIN
	FIN
SINON
	SI MyVer.dwPlatformId = VER_PLATFORM_WIN32_NT ALORS
		SI MyVer.dwMajorVersion = 3 AND MyVer.dwMinorVersion = 0 ALORS
            WinVer = "Windows NT 3.0"
		SINON 
			SI MyVer.dwMajorVersion = 3 AND MyVer.dwMinorVersion = 1 ALORS
				WinVer = "Windows NT 3.1"
			SINON
				SI MyVer.dwMajorVersion = 3 AND MyVer.dwMinorVersion = 5 ALORS
					WinVer = "Windows NT 3.5"
				SINON
					SI MyVer.dwMajorVersion = 4 ALORS
						WinVer = "Windows NT 4.0"
					SINON
						SI MyVer.dwMajorVersion = 5 AND MyVer.dwMinorVersion = 0 ALORS
							WinVer = "Windows 2000"
						SINON
							SI MyVer.dwMajorVersion = 5 AND MyVer.dwMinorVersion = 1 ALORS
								WinVer = "Windows XP"
							SINON
								SI MyVer.dwMajorVersion = 6 AND MyVer.dwMinorVersion = 0 ALORS
									WinVer = "Windows Vista"
								FIN
							FIN
						FIN
					FIN
				FIN
			FIN
		FIN
	FIN
FIN
 
RENVOYER WinVer
 
PROCEDURE Windows_Version_Number()
 
// Renvoie la sous-version de Windows.
 
MyVer est composé de
    dwOSVersionInfoSize	est un entier  
    dwMajorVersion		est un entier  
    dwMinorVersion		est un entier  
    dwBuildNumber		est un entier  
    dwPlatformId		est un entier  
    szCSDVersion		est une chaîne fixe sur 128
    wSPMajor			est un entier sur 2 octets
FIN
 
WinVer est une chaîne
 
MyVer.dwOSVersionInfoSize = 148
 
AppelDLL32("kernel32","GetVersionExA", &MyVer)
 
WinVer = MyVer.dwMajorVersion + "." + MyVer.dwMinorVersion + "-" + ETBinaire(MyVer.dwBuildNumber,65535)
 
RENVOYER WinVer

[tomenbois]

Super merci vous deux pour vos réponses rapides !!!
Ça va bien m'aider !!!!



J'y pense, ceci ne va marcher que pour les poste qui tournent sous Windows, mais sous linux ? ou mac ?

[mail.spam]

Oui effectivement ça marche que pour Windows