MainBoard Infos

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
Konne
Beiträge: 764
Registriert: 30.03.2005 02:20
Kontaktdaten:

MainBoard Infos

Beitrag von Konne »

Hallo, weiß jemand wie ich den Namen von meinem Mainboard herausbekommen kann?

Zudem würde mich auch noch der Name des BIOS Interessieren.

Gibt es vielleicht ein Tutrorial oder eine Dll um an Infos des PC's zu kommen?
Benutzeravatar
gekkonier
Beiträge: 314
Registriert: 20.04.2007 09:06
Wohnort: Wien

Beitrag von gekkonier »

Mach den Computer auf, auf der Platine steht meistens etwas grösser die Boardbezeichnung.

z.B. GA-G1975X

Wenn du ins Bios reingehst (beim Booten geht das oft per der del Taste z.B.) steht das meist in der allerobersten Zeile.

Oder willst du das alles per Programm auslesen können?
Benutzeravatar
bingo
Beiträge: 118
Registriert: 16.09.2004 18:33
Wohnort: thüringen
Kontaktdaten:

Beitrag von bingo »

das , was unter win mit msinfo32.exe erscheint , kann mit wmi ausgelesen werden ...

WMI Code Creator v1.0
http://www.microsoft.com/downloads/deta ... laylang=en

wmi kann auch in pb genutzt werden 8)
1:0>1
Benutzeravatar
Konne
Beiträge: 764
Registriert: 30.03.2005 02:20
Kontaktdaten:

Beitrag von Konne »

Hehe, danke für den Tipp, aber ich will ein programm schreiben des solche Werte des PC's überprüft. Ich kann ja schlecht hinschreiben:

Ihr Mainboard heißt: Öffnen sie den PC und schauen sie nach nem Mainboard...
Außerdem Interessiert es mich brennend wie so etwas geht da ich davon ehrlich gesagt noch gar keine Ahnung habe. Und schließlich will ich ja meinen Wissenhorizont erweitern.

Aber trotzdem Thx nochmal für die schnelle Antwort.
Benutzeravatar
Konne
Beiträge: 764
Registriert: 30.03.2005 02:20
Kontaktdaten:

Beitrag von Konne »

bingo hat geschrieben:das , was unter win mit msinfo32.exe erscheint , kann mit wmi ausgelesen werden ...

WMI Code Creator v1.0
http://www.microsoft.com/downloads/deta ... laylang=en

wmi kann auch in pb genutzt werden 8)
Wie zur Hölle benutzt man WMI (und für was steht das denn eigendlich?)

EDIT:
Also könnte mir jemand nur ein kleines example schreiben wie ich zB CPU Name oder so bekomme.
Wäre echt nett.
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3873
Registriert: 13.09.2004 17:48
Kontaktdaten:

Beitrag von bobobo »

‮pb aktuel 6.2 windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Benutzeravatar
Shardik
Beiträge: 746
Registriert: 25.01.2005 12:19

Beitrag von Shardik »

Benutzeravatar
Konne
Beiträge: 764
Registriert: 30.03.2005 02:20
Kontaktdaten:

Beitrag von Konne »

Sehr geil.
Danke für die mühe das alles raus zu suchen.

:allright:
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Bios Name und Version:

Code: Alles auswählen

EnableExplicit

Procedure.s GetBiosVersion()

  Protected Script$
  
  Script$ = "Set objWMIService = GetObject(" + #DQUOTE$ + "winmgmts:\\.\root\CIMV2" + #DQUOTE$ + ")" + #CRLF$
  Script$ + "Set colItems = objWMIService.ExecQuery(" + #DQUOTE$ + "SELECT * FROM Win32_BIOS" + #DQUOTE$ + ",,48)" + #CRLF$
  Script$ + "For Each objItem in colItems" + #CRLF$
  Script$ + "If isNull(objItem.BIOSVersion) Then" + #CRLF$
  Script$ + "myBios = I'm sure, I don't know" + #CRLF$
  Script$ + "Else" + #CRLF$
  Script$ + "myBios = Join(objItem.BIOSVersion, " + #DQUOTE$ + "," + #DQUOTE$ + ")" + #CRLF$
  Script$ + "End If" + #CRLF$
  Script$ + "Next"

  ProcedureReturn Script$

EndProcedure

dhToggleExceptions(#True)

Define.l Result, obj = dhCreateObject("MSScriptControl.ScriptControl")
Define.s Script

If obj

  dhPutValue(obj, "Language = %s", @"VBScript")
  Script = GetBiosVersion()
  dhCallMethod(obj, "AddCode(%s)", @Script)
  dhGetValue("%s", @Result, obj, "Eval(%s)", @"myBios")
  
  If Result

    MessageRequester("BIOSVersion:", PeekS(Result), #MB_ICONINFORMATION)
    dhFreeString(Result) : Result = 0
  
  EndIf  
  
  dhReleaseObject(obj) : obj = 0
  
EndIf
erfordert aber diese Lib:
http://www.purebasic.fr/german/viewtopic.php?t=12701
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Antworten