;;RETURNS        40 element array
;;               0   short/full operating system description
;;               1   kernel description (Win2K, WinXP, Win2K3, Vista)
;;               2   operating system role (workstation, member server, domain controller)
;;               3   operating system service pack level
;;               4   operating system build level
;;               5   uni/multi-processor type
;;               6   Computer Name
;;               7   registered owner,organization
;;               8   Serial Number
;;               9   Install Date - YYYY/MM/DD hh:mm:ss
;;               10  Local Date/Time  - YYYY/MM/DD hh:mm:ss
;;               11  Last Boot Time - YYYY/MM/DD hh:mm:ss
;;               12  TimeZone info (Std, Daylight, Bias)
;;               13  Primary Domain Affiliation
;;               14  Installed Hotfix list
;;               15  OS Version (numeric)
;;               16  Future Use
;;               17  O/S Architecture
;;               18  Install Method (Clean, Upgrade, SysPrep)
;;               19  RAM/PageFile Info (location MinSize MaxSize)
;;               20  System Brand
;;               21  System Model
;;               22  System S/N
;;               23  System BIOS Revision
;;               24  Processor Type
;;               25  Processor Speed
;;               26  Processor Count (Physical)
;;               27  Processor Count (Logical)
;;               28  Processor Cores
;;               29  Physical Memory
;;               30  Fixed-Disk Labels, null if none
;;               31  Fixed-Disk Mount Point ("d:\" for drives, path for mounted volumes) (2K3 & higher)
;;               32  Fixed-Disk Drives (A:-Z:, or "MV:" for mounted Volumes)
;;               33  Fixed-Disk Capacities, bytes
;;               34  Fixed-Disk FreeSpace, bytes
;;               35  CD-ROM Disk List
;;               36  Connected Network Drives
;;               37  Hardware Architecture
;;               38  Processor DataWidth
;;               39  Future Use

00  Microsoft Windows 8 Pro
01  Unknown
02  Member Workstation
03
04  9200
05  Multiprocessor Free
06  ICWD011
07  user/
08  00178-10077-75869-AA763
09  2013/01/05 23:33:30
10  2014/01/07 11:36:02
11  2013/12/21 14:46:27
12  Eastern Standard Time / Eastern Daylight Time / 5
13  itcg.lan,ITCG
14
15  6.2.9200
16
17  64-bit
18  Clean
19  12224
20  Hewlett-Packard
21  HP Compaq 8100 Elite CMT PC
22  2UA04305JS
23  HPQOEM - 20091216
24  Intel(R) Core(TM) i7 CPU         860  @ 2.80GHz
25  2933
26  1
27  8
28  4
29  12817047552
30  ,Work,System Reserved
31  C:\,E:\,\\?\Volume{67bb6fab-57b9-11e2-be65-806e6f6e6963}\
32  C:,E:,MV:
33  749786361856,750153334784,366997504
34  362244497408,308648706048,113971200
35  B:,D:
36  <SNIP>W:=\\icwwcmsp01\WebSites,X:=\\icwismsp01\MediaRoot,Y:=\\icwifpsp01\SWDist
37  x64
38  64
39

$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colSoft = $objWMIService.ExecQuery("SELECT * FROM Win32_Product WHERE Name Like 'Microsoft Office%'")

If $colSoft.Count = 0
   $bits = "na"		; Office not installed
Else
   For Each $objItem In $colSoft
      $item = $objitem.caption
      If InStr($item, "-bit") AND Len($bits) = 0
         $bits = Right(Split($item, "-bit")[0], 2)
      Endif
   Next
EndIf

? "Bits: "+$bits

get $

Break On

If @onwow64 = 1 
   $SearchKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstalledPackages"
Else
   $SearchKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
EndIf

   $RegArray = SearchReg($SearchKey,"Outlook",7)
   If @Error
      ? 'No matching items found'
   Else
      For Each $value in $RegArray
         ? $value
         $x = Join(Split($value, $SearchKey + "\"), "")
         If SubStr($x, 1, 1) = 9 
            ? "office found"   
            If SubStr($x, 20, 1) =  1
               ? "Office 64Bit found"
               $OfficeBit = 64
            Else
               ? "Office 32Bit found"
               $OfficeBit = 32
            EndIf
         EndIf         
      Next
   EndIf

  ? Get $x
Exit

;; 
;;====================================================================== 
;; 
;;FUNCTION       SearchReg() 
;; 
;;ACTION         Searches a specific registry path for a value 
;; 
;;AUTHOR         Allen Powell 
;;		 Adapted, formatted, & documented by Glenn Barnas 
;; 
;;VERSION        1.0 / 2014/01/11 
;; 
;;SYNTAX         SearchReg(Key, String, Search) 
;; 
;;PARAMETERS     Key    - Required -  
;; 
;;		 String - Required -  
;; 
;;		 Search - Required -  
;; 
;;   1 For Value
;;   2 for ValueName
;;   3 for Value and ValueName
;;   4 for KeyName
;;   5 for Value and KeyName
;;   6 for ValueName and KeyName
;;   7 for search in all
;;
;;Remarks:
;;  KiXtart reads and writes default ValueNames as an empty string.
;;  SearchReg() replaces the empty ValueName with the text: <Default>
;;  Remember to replace the text '<Default>' with an empty string if you want to check
;;  the found entries further.
;;
;;RETURNS         
;;
;;  Array containing values where SearchFor string was found.
;;  arraymember format is:
;;    KeyName<=>ValueName
;;   (If the Searchstring is found in the KeyName, ValueName is set to <KeyName>
;;
;;  Errors returned:
;;    @Error    1 = No data returned from search 
;;
;; 
;;DEPENDENCIES   none 
;; 
;;TESTED WITH    WXP, W2K3, W2K8, W2K12, Win7, Win8 
;; 
;;KiXtart:
;;  KiX 4.20
;;
;;Example:
;;  Break On
;;  $RegArray = SearchReg("HKEY_LOCAL_MACHINE\Software\Microsoft","dir",7)
;;  If @Error
;;     ? 'No matching items found'
;;  Else
;;     For Each $value In $RegArray
;;        ? $value
;;     Next
;;  EndIf
;;  ? Get $x
;;  
;;
;;Source:
Function SearchReg($_Key, $_Str, $_SrcIn)
    
   Dim $_Idx
   Dim $_vName
   Dim $_Value
   Dim $_Num
   Dim $_SubKey
   Dim $_fArr
   Dim $_mbr
    
    
   $SearchReg = ''
   $_Num = 0
   $_Idx = 0
   $_vName = EnumValue($_Key, $_Idx)
    
   Do
      $_mbr = ''
      If $_SrcIn & 1
         $_Value = ReadValue($_Key, $_vName)
         If InStr($_Value, $_Str)
            $_mbr = $_Key + "<=>" + IIf($_vName, $_vName, '<Default>')
         EndIf
      EndIf
       
      If ($_SrcIn & 2) And InStr($_vName, $_Str)
         $_mbr = $_Key + "<=>" + $_vName
      EndIf
       
      If $_mbr
         ReDim Preserve $SearchReg[$_Num]
         $SearchReg[$_Num] = $_mbr
         $_Num = $_Num + 1
      EndIf
       
      $_Idx = $_Idx + 1
      $_vName = EnumValue($_Key, $_Idx)
       
   Until @Error
    
   $_Idx = 0
   $_SubKey = EnumKey($_Key, $_Idx)
    
   While $_SubKey
      If ($_SrcIn & 4) And InStr($_SubKey, $_Str)
         ReDim Preserve $SearchReg[$_Num]
         $SearchReg[$_Num] = $_Key + '\' + $_SubKey + "<=><KeyName>"
         $_Num = $_Num + 1
      EndIf
       
      $_fArr = SearchReg($_Key + "\" + $_SubKey, $_Str, $_SrcIn)
      If @Error = 0
         For Each $_mbr in $_fArr
            ReDim Preserve $SearchReg[$_Num]
            $SearchReg[$_Num] = $_mbr
            $_Num = $_Num + 1
         Next
      EndIf
       
      $_Idx = $_Idx + 1
      $_SubKey = EnumKey($_Key, $_Idx)
       
   Loop
    
   Exit VarType($SearchReg) = 8
    
EndFunction

if exist("C:\Program Files\Microsoft Office\Office15\WinWord.exe")
  ? "Office 64bit"
else
  ? "Office 32bit"
endif

If EXIST(%%ProgramFiles(x86)%%)
  ;Windows = 64-bit, check for Office
  If EXIST("%%ProgramFiles%%\Microsoft Office\Office15\WinWord.exe")
    ? "Office 64bit")
  EndIf
  If EXIST("%%ProgramFiles(x86)%%\Microsoft Office\Office15\WinWord.exe")
    ? "Office 32bit"
  EndIf
Else
  ;Windows = 32-bit, if there is office, office will be 32-bit
EndIf

If %PROCESSOR_ARCHITECTURE% = 'x86'
  'Office 32bit' @CRLF			; Can't be 64-bit on x86 platform
Else
  ; 64-bit platform - see which version of Office is present
  If Exist('C:\Program Files\Microsoft Office\Office15\WinWord.exe')
    ; app found in 64-bit location, is x64
    'Office 64bit' @CRLF
  Else
    'Office 32bit' @CRLF
  EndIf
EndIf

Function OfficeBits()

  If %PROCESSOR_ARCHITECTURE% = 'x86'
    $OfficeBits = 32			; Can't be 64-bit
  Else
    ; 64-bit platform - see which version of Office is present
    If Exist('C:\Program Files\Microsoft Office\Office15\WinWord.exe')
      ; found in 64-bit path
      $OfficeBits = 64
    Else
      If Exist('C:\Program Files(x86)\Microsoft Office\Office15\WinWord.exe')
        $OfficeBits = 32      ; found in 32-bit path
      Else
        $OfficeBits = 0       ; not found!
      EndIf
    EndIf
  EndIf

  Exit 0

EndFunction

dir "c:\program files\microsoft office\winword.exe" /s /b

Function OfficeBits()
   $version = Right(ReadValue("HKCR\Word.Application\CurVer", ""), 2)
   If Len($version)
      If @OnWow64 AND Exist("C:\Program Files\Microsoft Office\Office"+$version+"\winword.exe")
         $OfficeBits = 64
      Else
         $OfficeBits = 32
      Endif
   Else
      $OfficeBits = 0
   Endif
EndFunction

pushd "%~dp0"
cd /d "%~dp0"
cls
@echo off
if not defined ProgramFiles(x86) goto x86
echo Basic check says we're on x64 64-bit so add some code to do something ...
goto eof
:x86
echo Basic check says we're on x86 32-bit so add some code to do something ...
goto eof
:eof
pause
popd

@ECHO off
FOR /f "tokens=3" %%a IN ('reg query^
 "HKLM\Software\Microsoft\Office\14.0\Outlook" /v Bitness') DO (
    SET answer=%%a
) 
IF %answer%==x86 (
    GOTO :x86
) ELSE (
    GOTO :x64
)

:x86
MSG * Office 2010 is x86
GOTO :END

:x64
MSG * Office 2010 is x64
GOTO :END

:END
pause

@ECHO OFF
FOR /F "tokens=3*" %%A IN ('reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe" /v Path') DO SET answer=%%A %%B
echo %answer% | findstr Office11
if errorlevel 1 (
    GOTO :12
) ELSE (
    GOTO :office11
)
:12
echo %answer% | findstr Office12
if errorlevel 1 (
    GOTO :13
) ELSE (
    GOTO :office12
)
:13
echo %answer% | findstr Office13
if errorlevel 1 (
    GOTO :14
) ELSE (
    GOTO :office13
)
:14
echo %answer% | findstr Office14
if errorlevel 1 (
    GOTO :END
) ELSE (
    GOTO :office14
)
:Office11
MSG * Found Office 2003
GOTO :END

:Office12
MSG * Found Office 2007
GOTO :END

:Office13
MSG * Found Office 2010
GOTO :END

:Office14
MSG * Found Office 2013
GOTO :END

:END
pause