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 |
Partager