AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

How to check if pc is notebook?

Ein Thema von Razor · begonnen am 8. Aug 2007 · letzter Beitrag vom 8. Aug 2007
Antwort Antwort
Razor
(Gast)

n/a Beiträge
 
#1

How to check if pc is notebook?

  Alt 8. Aug 2007, 17:26
Yes how to check if a pc is notebook,or in other words how to check what kind of type the machine is?Is it a normal pc,pocket pc or a notebook?How can i check that with code?

And if that isnt possible notebooks have mobile cpus,how can i check if a cpu is mobile.



Thanks !
  Mit Zitat antworten Zitat
Benutzerbild von Dunkel
Dunkel

Registriert seit: 26. Mär 2007
Ort: Klingenstadt
541 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: How to check if pc is notebook?

  Alt 8. Aug 2007, 17:44
If you undesrtand some words german look at this, otherwise use google-translation or similar services to look at this .
Es ist zu wahr um schön zu sein...
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#3

Re: How to check if pc is notebook?

  Alt 8. Aug 2007, 18:41
You can download a DELPHI-Version of the following Program:

Source:

http://www.microsoft.com/technet/scr...4/hey0921.mspx


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 Each strChassisType in objChassis.ChassisTypes
        Select Case strChassisType
            Case 1
                Wscript.Echo "Other"
            Case 2
                Wscript.Echo "Unknown"
            Case 3
                Wscript.Echo "Desktop"
            Case 4
                Wscript.Echo "Low Profile Desktop"
            Case 5
                Wscript.Echo "Pizza Box"
            Case 6
                Wscript.Echo "Mini Tower"
            Case 7
                Wscript.Echo "Tower"
            Case 8
                Wscript.Echo "Portable"
            Case 9
                Wscript.Echo "Laptop"
            Case 10
                Wscript.Echo "Notebook"
            Case 11
                Wscript.Echo "Handheld"
            Case 12
                Wscript.Echo "Docking Station"
            Case 13
                Wscript.Echo "All-in-One"
            Case 14
                Wscript.Echo "Sub-Notebook"
            Case 15
                Wscript.Echo "Space Saving"
            Case 16
                Wscript.Echo "Lunch Box"
            Case 17
                Wscript.Echo "Main System Chassis"
            Case 18
                Wscript.Echo "Expansion Chassis"
            Case 19
                Wscript.Echo "Sub-Chassis"
            Case 20
                Wscript.Echo "Bus Expansion Chassis"
            Case 21
                Wscript.Echo "Peripheral Chassis"
            Case 22
                Wscript.Echo "Storage Chassis"
            Case 23
                Wscript.Echo "Rack Mount Chassis"
            Case 24
                Wscript.Echo "Sealed-Case PC"
            Case Else
                Wscript.Echo "Unknown"
            End Select
    Next
Next
Angehängte Dateien
Dateityp: rar isnotebook-incl.source_133.rar (236,0 KB, 16x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#4

Re: How to check if pc is notebook?

  Alt 8. Aug 2007, 19:06
At my desktop the script don't show a box. Why ? The select command show nothing.
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#5

Re: How to check if pc is notebook?

  Alt 8. Aug 2007, 19:22
Download and check it with Project1.exe.
  Mit Zitat antworten Zitat
Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#6

Re: How to check if pc is notebook?

  Alt 8. Aug 2007, 19:29
In the Attachment is the Result !!
Angehängte Grafiken
Dateityp: bmp clipboard01_129.bmp (327,3 KB, 32x aufgerufen)
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#7

Re: How to check if pc is notebook?

  Alt 8. Aug 2007, 19:40
WMI-Diagnoseprogramm
Ein neues Dienstprogramm zum Diagnostizieren und Beheben von Problemen mit dem WMI-Dienst

http://www.microsoft.com/germany/tec...p/wmidiag.mspx
Angehängte Dateien
Dateityp: exe wmidiag_123.exe (555,4 KB, 10x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von Mackhack
Mackhack

Registriert seit: 29. Nov 2003
Ort: San Diego, CA/USA
1.446 Beiträge
 
Delphi 2006 Architect
 
#8

Re: How to check if pc is notebook?

  Alt 8. Aug 2007, 19:45
What do they mean with Pizza Box?
Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können.
(George Lukas)
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#9

Re: How to check if pc is notebook?

  Alt 8. Aug 2007, 19:56
http://en.wikipedia.org/wiki/Pizza_box_form_factor
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz