Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » System

Wmi mit Parametern aufrufen

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.Redakteurytwinky 24.02.2011

Endlich habe ich mal eine Möglichkeit gefunden, die variable Parameter-Übergabe von FreeBasic zu testen. Natürlich mit der WMI(deshalb können linux-user nur das Prinzip sehen..)^^
Aber es funktioniert(auch wenn es auf englisch ist) und zwar so:

'+------------------------------------------------------------------------------------------+
'|   Header: Bestimmen der Übergabeparameter'                                               |
'|           AnzeigeCheck:|Il1 sind Alt-0124, Großes i, kleines L, Eins  „”áŽ™šñ¸=äöüßÄÖܱ©|
Const Author="WmFBFun.Bas v1.0 ¸2011 by ytwinky, MD"'                                       |
'|           (Tastenkombination: keine)                                                     |
'|                                                                                          |
'|   Purpose: Call WMI with different parameters(variable list)                             |
'+------------------------------------------------------------------------------------------+
'Function to call wmi in a flexible way, but only to GET results..
'Caller MUST provide Wmi-Namespace(eg. \root\cimv2) and Wmi-Class(eg. Win32_Bios)
'other args as needed, but at least one, if not the program will crash..
'if there are dates to be transformed(eg. for german users^^) do it manually
'Win32_BIOS
'\root\cimv2
'BiosCharacteristics
'BuildNumber
'CodeSet
'CurrentLanguage
'Description
'IdentificationCode
'InstallDate
'InstallableLanguages
'LanguageEdition
'ListOfLanguages
'Manufacturer
'Name
'OtherTargetOS
'PrimaryBIOS
'ReleaseDate
'SMBIOSBIOSVersion
'SMBIOSMajorVersion
'SMBIOSMinorVersion
'SMBIOSPresent
'SerialNumber
'SoftwareElementID
'SoftwareElementState
'Status
'TargetOperatingSystem
'Version
#include once "windows.bi"               'in
#define UNICODE                          'this
#include once "disphelper/disphelper.bi" 'order
Declare Function strComputer(SetNew As Integer=False, c As String=".") As String
Declare Function CallWMI Cdecl (WmiNameSpace As String, ...) As String
Var s=Author &!"\nCalling Wmi on "
Print s &strComputer &!"\n" &CallWMI("\root\cimv2", "Win32_BIOS", "ReleaseDate", "Description", "Manufacturer", "Name")
Print "Eniki..";
GetKey
End

Function strComputer(setNew As Integer=False, c As String=".") As String
    Static As String s
    If InStr(c, "\\") Then c=Mid(c, 3)
    If setNew Then s=*IIf(c="", @".", SAdd(c))
    If s="" Then s=Environ("ComputerName")
    Return s
End Function

Function CallWMI Cdecl(WmiNameSpace As String, ...) As String
    Dim hres As HRESULT
    Dim WmiArgs() As String
    Dim devPtr As ZString Ptr
    Dim As Any Ptr Arg=va_first() 'Ptr to the first arg(it MUST be there..)
    Var s="", i=0, impersonate="winmgmts:{impersonationLevel=impersonate}!\\" &strComputer &WmiNameSpace
    Do
        ReDim Preserve WmiArgs(i) As String
        WmiArgs(i)=*va_arg(Arg, ZString Ptr)
        If InStr(WmiArgs(i), ".") Then WmiArgs(i)=Mid(WmiArgs(i), 2)
        Arg=va_next(Arg, ZString Ptr)
        If (*va_arg(Arg, ZString Ptr)<>"") Then i+=1
    Loop Until *va_arg(Arg, ZString Ptr)=""
    s="WMI-Class:" &WmiArgs(0) &!"\n"
    DISPATCH_OBJ(WmiSvc)
    DISPATCH_OBJ(Items)
    dhInitialize(True)
    'this reports errors whether you want to see them or not:
    'dhToggleExceptions(TRUE)
    hres=dhGetObject(impersonate, Null, @WmiSvc)
    hres=dhGetValue("%o", @Items, WmiSvc, ".ExecQuery(%s)", "Select * From " &WmiArgs(0))
    FOR_EACH0(Item, Items, Null)
        For i=1 To UBound(WMIArgs) 'beware:0 is the namespace (of the wmi object)
        hres=dhGetValue("%s", @devPtr, Item, "." &WMiArgs(i))
        If hres Then *devPtr="error in " &WMiArgs(i) &" " & hres
        s &= WMiArgs(i) &":" &*devPtr &!"\n"
        Next
    NEXT_(Item)
    SAFE_RELEASE(WmiSvc)
    SAFE_RELEASE(Items)
    dhUninitialize(True)
    Return Left(s, Len(s)-1) 'remove last LF
End Function 'split the string As needed in your program(separator is obviously !"\n")

Viel Spaß beim Ausprobieren
Gruß
ytwinky


Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 24.02.2011 von Redakteurytwinky angelegt.
  • Die aktuellste Version wurde am 24.02.2011 von Redakteurytwinky gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen