Charlène BENKE

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