'******** 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:
' Id naprave diska, število sledi na cilinder, število sektorjev na sled


' Tip CPE ter širina naslovnega in podatkovnega vodila


' Ime graficne kartice, datum in verzija gonilnika


'  Kolicina prostega in celotnega virtualnega pomnilnika v GB, 3 decimalke

'  Kolicina prostega in celotnega virtualnega pomnilnika v MB, 2 decimalki


' Proizvajalec in ime osnovne plošce


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