Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
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?
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 SubPeriaate toimii myös vb.net:ssä.
Ihan mukava. Näkee koulunkin koneiden tiedot ilman järjestelmänhallintaa :P
Aihe on jo aika vanha, joten et voi enää vastata siihen.