Delphi Laptop oder Desktop Computer ermitteln??

Thema durchsuchen

Ansicht

Themen-Optionen

Laptop oder Desktop Computer ermitteln??

Ein Thema von Piro · begonnen am 22. Feb 2007 · letzter Beitrag vom 28. Feb 2007

Vorheriger Beitrag

Nächster Beitrag

Gehstock

Registriert seit: 28. Jan 2006
Ort: Görlitz / Sachsen
489 Beiträge

Delphi 2007 Professional

#10

Re: Laptop oder Desktop Computer ermitteln??

24. Feb 2007, 16:53

VB Script

zusammenfalten · markieren

Delphi-Quellcode:

			strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colChassis = objWMIService.ExecQuery _

    ("Select * from Win32_SystemEnclosure")

For Each objChassis in colChassis

    For i = Lbound(objChassis.ChassisTypes) to Ubound(objChassis.ChassisTypes)

        Wscript.Echo objChassis.ChassisTypes(i)

    Next

Next

im netz gefunden