'******** Deklaracija konstant ter vnos imena in priimka za doloèitev izhodne datoteke:
Const ForWriting = 2
Const HardDisk = 3
strIme = InputBox("Vstavite vaše ime:", "VNOS IMENA")
OutputFile = "Koda" & strIme & "-IZHOD.txt"


'******** Priprava objektov:
' Dostop do informacij preko objekta "objWMIService"


' Priprava sistemskega objekta "objFSO"


' Nastavitev objekta "objOutput" in kreiranje izhodne datoteke


'******** Vnos podatkov v datoteko:
' Serijska številka BIOSa


' Tip CPE ter širina naslovnega in podatkovnega vodila


' Hitrost predpomnilnika L2


' Proizvajalec diska, število glav in cilindrov


' Imena pogonov (C:, D:), velikost pogonov v GB na nic decimalk in nezasedeni prostor na pogonih v GB na štiri decimalke


'******** Zapiranje datoteke in reset objektov
objOutput.WriteLine
objOutput.WriteLine Date & " " & Time
objOutput.Close
Set objOutput = Nothing
Set objFSO = Nothing
Set objWMIService = Nothing