Tracy,

The problem is you define REG_SZ twice. Remove it from procedure ReadREG_SZ.

>Nevermind. I just remembered that I cannot use #Define of course in this case...
>
>
>IF the below code is saved to a program named c1.prg and c1.prg is run using "do c1.prg" from a command window it works fine. However, if c1.prg is called using =execscript(filetostr('c1.prg')) then it bombs with a syntax error. Any ideas?
>
>TIA!
>
>

>#Define HKEY_CLASSES_ROOT           -2147483648
>#Define HKEY_CURRENT_USER           -2147483647
>#Define HKEY_LOCAL_MACHINE          -2147483646
>#Define HKEY_USERS                  -2147483645
>#Define REG_SZ 				1	&& String
>#Define REG_BINARY 			3	&& Binary data
>#Define REG_DWORD 			4	&& 32bits int
>#Define ERROR_SUCCESS		0	&& OK
>
>PRIVATE nKey, cSubKey, cValue, cValueRead, m.value, value1, value2, value3, value4, value5, value6
>m.value = sys(17)+chr(13)
>nkey = HKEY_LOCAL_MACHINE
>
>cSubKey = "Hardware\DESCRIPTION\System\CentralProcessor\0"
>cValue = "ProcessorNameString"
>cValueRead=''
>cValueRead = ReadREG_SZ(nKey, cSubKey, cValue)
>IF !EMPTY(cValueRead)
>	m.value = m.value + "Processor 1: "+LTRIM(cValueRead)+CHR(13)
>ENDIF
>
>cSubKey = "Hardware\DESCRIPTION\System\CentralProcessor\1"
>cValue = "ProcessorNameString"
>cValueRead=''
>cValueRead = ReadREG_SZ(nKey, cSubKey, cValue)
>IF !EMPTY(cValueRead)
>	m.value = m.value + "Processor 2: "+LTRIM(cValueRead)+CHR(13)
>ENDIF
>
>cSubKey = "Hardware\DESCRIPTION\System\CentralProcessor\2"
>cValue = "ProcessorNameString"
>cValueRead=''
>cValueRead = ReadREG_SZ(nKey, cSubKey, cValue)
>IF !EMPTY(cValueRead)
>	m.value = m.value + "Processor 3: "+LTRIM(cValueRead)+CHR(13)
>ENDIF
>
>cSubKey = "Hardware\DESCRIPTION\System\CentralProcessor\3"
>cValue = "ProcessorNameString"
>cValueRead=''
>cValueRead = ReadREG_SZ(nKey, cSubKey, cValue)
>IF !EMPTY(cValueRead)
>	m.value = m.value + "Processor 4: "+LTRIM(cValueRead)+CHR(13)
>ENDIF
>
>value2nd = passtwo()
>m.value = m.value+value2nd+CHR(13)
>? m.value
>RETURN m.value
>
>PROCEDURE ReadREG_SZ
>   PARAMETERS  nKey, cSubKey, cValue
>   #DEFINE REG_SZ   1                && <<==== REMOVE THIS
>
>   DECLARE Integer RegOpenKey IN Win32API ;
>      Integer nHKey, String @cSubKey, Integer @nResult
>   DECLARE Integer RegQueryValueEx IN Win32API ;
>      Integer nHKey, String lpszValueName, Integer dwReserved,;
>      Integer @lpdwType, String @lpbData, Integer @lpcbData
>   DECLARE Integer RegCloseKey IN Win32API Integer nHKey
>
>   LOCAL nErrCode      && Error Code returned from Registry functions
>   LOCAL nKeyHandle    && Handle to Key that is opened in the Registry
>   LOCAL lpdwValueType && Type of Value that we are looking for
>   LOCAL lpbValue      && The data stored in the value
>   LOCAL lpcbValueSize && Size of the variable
>   LOCAL lpdwReserved  && Reserved Must be 0
>
>   nKeyHandle = 0
>   lpdwReserved = 0
>   lpdwValueType = REG_SZ
>   lpbValue = ""
>
>   nErrCode = RegOpenKey(nKey, cSubKey, @nKeyHandle)
>   IF (nErrCode # 0) THEN
>      RETURN ""
>   ENDIF
>
>   lpcbValueSize = 1
>   nErrCode=RegQueryValueEx(nKeyHandle, cValue, lpdwReserved, @lpdwValueType, @lpbValue, @lpcbValueSize)
>
>   lpbValue = SPACE(lpcbValueSize)
>   nErrCode=RegQueryValueEx(nKeyHandle, cValue, lpdwReserved, @lpdwValueType, @lpbValue, @lpcbValueSize)
>
>   =RegCloseKey(nKeyHandle)
>   IF (nErrCode # 0) THEN
>      RETURN ""
>   ENDIF
>
>   lpbValue = LEFT(lpbValue, lpcbValueSize - 1)
>RETURN lpbValue
>
>
>************************
>PROCEDURE passtwo
>newvalue = ''
>VALUE1 = "Number of CPUs: " +GETENV("NUMBER_OF_PROCESSORS")+CHR(13)
>value2 =  "Processor Architecture: " +GETENV("PROCESSOR_ARCHITECTURE")+CHR(13)
>value3 =  "Processor Identifier: " +GETENV("PROCESSOR_IDENTIFIER")+CHR(13)
>value4 =  "Processor Level: " +GETENV("PROCESSOR_LEVEL")+CHR(13)
>value5 = "Processor Revision: " +GETENV("PROCESSOR_REVISION")+CHR(13)
>newvalue = value1+value2+value3+value4+value5
>RETURN newvalue
>*************************
>