1

Konu: Mac Bilgisi

Local pGUID,rGUID,lcOldError, lnResult

Declare Integer CoCreateGuid In 'OLE32.dll' String @pguid
Declare Integer UuidCreateSequential In 'RPCRT4.dll'  String @ Uuid
Declare Integer StringFromGUID2 In 'OLE32.dll' ;
        string rguid, String @lpsz, Integer cchMax

pGUID=Replicate(Chr(0),16)
rGUID=Replicate(Chr(0),80)

lcOldError = On('error')
On Error lnResult = CoCreateGuid(@pGUID)
lnResult = UuidCreateSequential(@pGUID)
On Error &lcOldError

LcMac= Substr( Iif( lnResult = 0 And ;
    StringFromGUID2(pGUID,@rGUID,40) # 0, ;
    StrConv(Left(rGUID,76),6), "" ), 26,12)

Yukarıdaki Kodla Bilgisayarın Mac Bilgisini alabiliyorum. Programı terminalde çalıştırdığımda terminalin mac bilgisi geliyor. Terminallerde de ana makinenin mac bilgisini nasıl alabilirim.

2

Re: Mac Bilgisi

bu kodu ana bilgisayarda çalıştırıp database e alıp, terminalden bu koda baksak?

3

Re: Mac Bilgisi

smentes yazdı:


Yukarıdaki Kodla Bilgisayarın Mac Bilgisini alabiliyorum. Programı terminalde çalıştırdığımda terminalin mac bilgisi geliyor. Terminallerde de ana makinenin mac bilgisini nasıl alabilirim.

Merhaba

Sanırım ana makinin IP adresini biliyorsundur. Terminalde command prompt da

Visual Fox Pro
arp -a


dersen, sana MAC adresi verir. Ama dikkat: arp listesi sık sık sıfırlanır. Bu nedenle ilk önce ana makineye bir ping atarsan, arp listesi güncellenir.
VFP içinden sanırım en basiti, bir ShellExecute ile arp komutunu bir dosyaya yönlendirmek ver FileToStr() ile o dosyayı okumak.

Bir projenin bitmesi için 3 seçenek vardır: hızlı, ucuz, iyi. Bu seçeneklerden iki tanesini seçiniz.