Advertisement
Guest User

Untitled

a guest
May 5th, 2015
298
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;CPUTYPE
  2. ; IN  : /
  3. ; OUT : 1 -> x86
  4. ;       2 -> x64
  5. Function CPUTYPE()
  6.     $CPUTYPE = 0
  7.     ;On verifie si la machine est X64 ou X86
  8.     $Processor = READVALUE("\\" + $Computer + "\HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\Environment","PROCESSOR_ARCHITECTURE")
  9.     if InStr($Processor, "AMD64") <> 0
  10.         $CPUTYPE = 1
  11.     else
  12.         $CPUTYPE = 2
  13.     endif
  14. Endfunction
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement