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.Ihr Mainboard heißt: Öffnen sie den PC und schauen sie nach nem Mainboard...
Wie zur Hölle benutzt man WMI (und für was steht das denn eigendlich?)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
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