Windows domain membership

[Vortex]

This quick code checks if your computer is a member of a domain :

Code Select Expand

include IsDomainMemb.inc

.data

m1  db 'The computer is not joined to a domain.',0
m2  db 'The computer is joined to a domain.',0
tbl dd OFFSET m1,OFFSET m2

.code

start:

    invoke  IsOS,OS_DOMAINMEMBER

    xor     ecx,ecx
    mov     eax,29
    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

StdOut PROC _string:DWORD

    sub     esp,2*4
   
    invoke  GetStdHandle,STD_OUTPUT_HANDLE
    mov     DWORD PTR [esp+4],eax
   
    invoke  lstrlen,DWORD PTR [esp+12]
    mov     edx,esp
   
    invoke  WriteFile,DWORD PTR [esp+20],\
            DWORD PTR [esp+24],\
            eax,edx,0
           
    add     esp,2*4
    retn    4

StdOut ENDP

OPTION PROLOGUE:PrologueDef
OPTION EPILOGUE:EpilogueDef

END start

[Marco]

Hi Vortex,

Although I wrote some programs in pure assembly language in 1992, it is not my area of expertise. Nevertheless, I would like to thank you for consistently providing new examples.

Marco