1 |
sng |
106 |
On Error Resume Next |
2 |
|
|
Set objWMIService = GetObject( "winmgmts://./root/CIMV2" ) |
3 |
|
|
Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_Processor", "WQL", 48 ) |
4 |
|
|
For Each objItem In colItems |
5 |
|
|
architecture = objItem.Architecture |
6 |
|
|
level = objItem.Level |
7 |
|
|
Next |
8 |
|
|
'Architecture 9 means an x86-64 processor |
9 |
|
|
If architecture = 9 Then WScript.Echo "The x86-64 edition of Clonezilla-SysRescCD is recommended for you." |
10 |
|
|
If architecture <> 9 Then |
11 |
|
|
'Architecture 0 means an IA-32 processor |
12 |
|
|
If architecture = 0 Then |
13 |
|
|
If level >= 6 Then WScript.Echo "The i686 edition of Clonezilla-SysRescCD is recommended for you." |
14 |
|
|
ElseIf level >= 4 Then WScript.Echo "The i486 edition of Clonezilla-SysRescCD is recommended for you." |
15 |
|
|
Else WScript.Echo "Your computer is unable to run any edition of Clonezilla-SysRescCD." |
16 |
|
|
End If |
17 |
|
|
End If |
18 |
|
|
'Neither x86-64 nor IA-32: unable to run x86 code |
19 |
|
|
If architecture <> 9 Then |
20 |
|
|
If architecture <> 0 Then |
21 |
|
|
WScript.Echo "Your computer is unable to run any edition of Clonezilla-SysRescCD." |
22 |
|
|
End If |
23 |
|
|
End If |