GetComputerName implementation

[Haim]

Hi,
Can anyone show me how to implement the GetComputerName Windows API in Aurora?

Thanks,

Haim

[pistol350]

Hi Haim!

I've found this Ebasic routine from the program "Artificial inteligence" by Piet Defoe

Code Select Expand

'********************  Find Computer name skanked from help 
Sub FindComputerName 
Def pSize:Pointer 
Def nSize:Int 
Declare "Kernel32",GetComputerNameA(buffer:String,size:Pointer),Int 
nSize = 255 
pSize = nSize 
GetComputerNameA(ComputerNameB,pSize) 
ComputerName = LCase$( ComputerNameB )   
return
endsub

Hope this can help.

[Haim]

Thanks,
i'll try to convert it1

Haim