Download Pelles C here: http://www.pellesc.se
include CheckOS.inc
.data
m1 db 'The application is native 32-bit app on a 32-bit OS or a native 64-bit app on a 64-bit OS.',0
m2 db 'The application is running via the WOW64 translation layer.',0
tbl dd OFFSET m1,OFFSET m2
.code
start:
invoke IsOS,OS_WOW6432
xor ecx,ecx
test eax,eax
setne cl
push ecx
shl ecx,2
lea edx,[tbl+ecx]
invoke StdOut,DWORD PTR [edx]
pop eax
invoke ExitProcess,eax
OPTION PROLOGUE:NONE
OPTION EPILOGUE:NONE
OS_DOMAINMEMBER equ 28
ExitProcess PROTO :QWORD
IsOS PROTO :QWORD
printf PROTO :QWORD,:VARARG
.data
m1 db 'The computer is not joined to a domain.',0
m2 db 'The computer is joined to a domain.',0
tbl dq OFFSET m1,OFFSET m2
.data?
rv dq ?
.code
start:
sub rsp,4*8+8
invoke IsOS,OS_DOMAINMEMBER
xor rdx,rdx
test rax,rax
setne dl
mov rv,rdx
shl rdx,3
lea rax,[tbl+rdx]
invoke printf,QWORD PTR [rax]
invoke ExitProcess,rv
END start
Page created in 0.055 seconds with 15 queries.