Visual Basic 6:ssa on mahdollisuus hakea tietoja käytetystä käyttöjärjestelmästä ja näyttää ne ohjelmassa.
Alla ohjeet kuinka tämä tehdään käytännössä.
Seriaali on osittain poistettu kuvasta
HUOM!
Visual Basicissa pitää olla asennettuna vähintään ServicePack 4, jotta koodin saa toimimaan suoraan Visual Basicista.
Samoin jos käyttöjärjestelmänä on vanhempi kuin Windows 2000 tai Windows ME, joutuu hakemaan erillisen lisäpalvelun Windowsiin nimeltä Windows Management Instrumentation (WMI), jonka saa ladattua erillisenä Microsoftin sivuilta. Tämä WMI on hyvä lisätä myös lopulliseen asennuspakettiin mukaan.
Luo Label ja nimeä se Lbl_system
Luo Label ja nimeä se Lbl_systemM
Luo Label ja nimeä se Lbl_systemB
Luo Label ja nimeä se Lbl_versio
Luo Label ja nimeä se Lbl_serial
Tämän jälkeen koodiosassa kirjoita alla olevat koodit:
‘ Laita tämä rivi General Declarations kohtaan Private QueryObject As ObjectPrivate Sub Form_Load() Set SystemSet = GetObject(“winmgmts:”).InstancesOf(“Win32_OperatingSystem”) For Each System In SystemSet ‘ Haetaan käyttöjärjestelmän valmistaja ‘ Haetaan Käyttöjärjestelmän tyyppitieto ‘ Haetaan Käyttöjärjestelmän versionumero ‘ Haetaan Käytöjärjestelmän seriaali Next |