2009-07-25 17:29

'From:  "victor ifrance" <victorgarnier@i...> Tue Oct 15, 2002  8:59 pm
'Subject:  Re: [rapidq] GetComputerName

     $OPTION VBDLL ON            'If you don't put that you'll get an error...

     DECLARE FUNCTION GetComputerName LIB "kernel32" ALIAS "GetComputerNameA"(BYVAL lpBuffer AS STRING, nSize AS LONG) AS LONG
     DIM MyBuffer AS STRING*256
     DIM intVal AS INTEGER
     intVal = 256
     GetComputerName(MyBuffer, intVal)
     MESSAGEBOX(MyBuffer,"",0)

'END

2009-07-25 17:29