Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB6: Näyttää käyttöjärjestelmän tiedot

Aku2 [15.12.2003 08:41:35]

#

Testattu järjestelmä (XP +Visual Basic 6 pro +SP 5)
Vanhemmissa kuin W2k ja ME käyttöjärjestelmissä tulee olla asennettuna Microsoftin WMI, joka löytyy osoitteesta:
http://www.microsoft.com/downloads/details.aspx?FamilyId=98A4C5BA-337B-4E92-8C18-A63847760EA5&displaylang=en

Yksinkertaisuudessaan hakee käyttöjärjestelmän tietoja.
Luo 5 Labelia ja nimeä ne seuraavasti.
Lbl_system
Lbl_systemM
Lbl_systemB
Lbl_versio
Lbl_serial

' General Declaratiosn kohtaan tämä
Private QueryObject As Object
Private Sub Form_Load()
Set SystemSet = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

For Each System In SystemSet
    ' Haetaan käyttöjärjestelmän tieto
    Lbl_system.Caption = System.Caption
    ' Haetaan käyttöjärjestelmän valmistaja
    Lbl_systemM.Caption = System.Manufacturer
    ' Haetaan Käyttöjärjestelmän tyyppitieto
    Lbl_systemB.Caption = System.BuildType
    ' Haetaan Käyttöjärjestelmän versionumero
    Lbl_versio.Caption = System.Version
    ' Haetaan Käytöjärjestelmän seriaali
    Lbl_serial.Caption = System.SerialNumber
Next
End Sub

tnb [17.12.2003 22:29:20]

#

Periaate toimii myös vb.net:ssä.

sooda [18.12.2003 09:59:54]

#

Ihan mukava. Näkee koulunkin koneiden tiedot ilman järjestelmänhallintaa :P

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta