Get biosid

sec · Post by **sec** » Sat Sep 13, 2003 5:48 pm

Code updated For 5.20+

; GetBiosid()
; by sec
; Many thank to Sebi

Procedure.s GetBIOSid()
  
  temppath.s=Space(1024)
  GetTempPath_(1024,@temppath)
  If Right(temppath,1)<>"\"
    temppath+"\"
  EndIf
  
  ;Extract data to a file
  If CreateFile(0,temppath+"getid.com")
    WriteData(0,?CData,?CDataEnd-?CData)
    CloseFile(0)
  EndIf
  
  ;run getid.com 
  RunProgram(temppath+"getid.com"," >getid.res","",1|2)
  
  ;delete file com
  DeleteFile(temppath+"getid.com")
  
  ;read the result
  If ReadFile(0,temppath+"getid.res")
    result.s=ReadString(0)
    CloseFile(0)
  Else
    result.s=""
  EndIf
  
  ;delete file with result
  DeleteFile(temppath+"getid.res") 
  
  ;return the result
  ProcedureReturn result
  
  ;code for the com ( CHANGED!!! )
  DataSection
    CData:
    Data.b 184,0,240,142,216,190,113,236,138,20,128
    Data.b 250,0,116,7,180,2,205,33,70,235,242,195
    CDataEnd:
  EndDataSection
  
EndProcedure


Debug GetBIOSid()

grapy · Post by **grapy** » Sun Sep 14, 2003 5:17 pm

Good job,

but you call it BiosID.
Better is Motherboard ID.
Look at http://www.aida32.hu.

urs Grapy

Karbon · Post by **Karbon** » Sun Sep 14, 2003 7:35 pm

Hmm.. Gives a bunch of garble when I run it on my Compaq laptop.. Returns a readable string on my desktops though...

Is there no way to get the ID in "pure" purebasic? What can the getid.com do that you can't do in straight PB?

sec · Post by **sec** » Mon Sep 15, 2003 6:20 am

Karbon wrote:Is there no way to get the ID in "pure" purebasic? What can the getid.com do that you can't do in straight PB?

on win9x, below command is well:
MessageRequester("SN",PeekS($FEC71),0)
but with win2k (as i used) when run it will crash with peeks($fec71) ...
i try shell dos (get string at f000:0ec71), and it ran :d

Post by **Berikco** » Mon Sep 15, 2003 9:15 am

You need to use a device driver to get acces to this memory locations under NT-W2K-XP

viewtopic.php?t=5309
viewtopic.php?t=2549

sec · Post by **sec** » Tue Sep 16, 2003 1:05 am

;viewtopic.php?t=5309
;viewtopic.php?t=2549

thanks for link.

;Is there no way to get the ID in "pure" purebasic?

pure? can, i will as soon as post (need time for read

)