Accueil Compétences Patterns Script batch Visual Basic Script déterminer l'architecture de windows

déterminer l'architecture de windows

Clique:
2776

Réponse

Avec windows 7, je rencontre de plus en plus d'architecture 64bits.
Mon principal problème c'est de déterminer où sont installées les applications classiques (32bits).
Avec une version 64bits ce répertoire se nomme  "program files (x86)" au lieu de "program files".
Ce petit script permet de connaitre sur quel type de plateforme on se trouve (32 ou 64 bits).
La propriété OSArchitecture n'est implémentée que sur les plateformes récentes de windows
Ce n'est pas le cas de : Windows Server 2003, Windows 2000, Windows NT 4.0, Windows XP, and Windows Me/98/95
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
b32=false
For Each objOperatingSystem in colOperatingSystems
	if instr(objOperatingSystem.Caption,"Windows XP") > 0 then
		b32 = true
		exit for
	else
		if instr(objOperatingSystem.OSArchitecture, "32") > 0 then
			b32 = true
			exit for
		end if
	end if
Next
if b32 then
	msgbox("32")
else
	msgbox("64")
end if

 pour plus d'information sur ce sujet, vous pouvez aller ici