'******** Primer izpisa
'
'Racunalnik:                    MOJPC
'Pomnilnik:                     3.954 MB
'Procesor:                      Intel(R) Core(TM) i7 CPU       M 620  @ 2.67GHz
'Graficna kartica:              NVIDIA NVS 3100M
'Velikost trdega diska:         149,05 GB
'
'10.4.2011 22:39:37
'
'******** Konec izpisa


'******** Deklaracija konstant ter vnos imena in priimka za dolocitev izhodne datoteke:
Const ForWriting = 2
Const HardDisk = 3
strPriimek = InputBox("Vstavite vas priimek", "VNOS PRIIMKA")
OutputFile = "TEST" & strPriimek & "-IZHOD.txt"



'******** Priprava objektov:
'** Priprava sistemskega objekta za datoteke "objFSO"                                               = 0,5 t
Set objFSO = CreateObject("Scripting.FileSystemObject")

'** Kreiranje izhodne datoteke "objOutput"                                                          = 0,5 t
Set objOutput = objFSO.CreateTextFile(OutputFile)

'** Dostop do informacij Windows Management Instrumentation "objWMIService"                         = 0,5 t
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")



'******** Vnos podatkov v datoteko:
'** Ime racunalnika (ComputerName) in skupni pomnilnik (TotalPhysicalMemory) v MB na nic decimalk   = 1,5 t
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objItem In colItems
  objOutput.WriteLine "Racunalnik: " & objItem.Name
Next
Set colOSItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objOSItem In colOSItems
  objOutput.WriteLine "Pomnilnik: " & Round(objOSItem.FreePhysicalMemory / 1024, 0) & " MB"
Next


'** Ime (Name) procesorja                                                                           = 0,5 t
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
    objOutput.WriteLine "Procesor: " & objItem.Name
Next


'** Ime (Name) graficne kartice                                                                     = 0,5 t
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController")
For Each objItem in colItems
    objOutput.WriteLine "Graficna kartica: " & objItem.Name
Next


'Fizicna velikost (Size) trdega diska v GB na dve decimalki                                         = 1 t
Set colDiskDrives = objWMIService.ExecQuery("Select * from Win32_DiskDrive")
For each objDiskDrive in colDiskDrives
    objOutput.WriteLine "Velikost trdega diska: " & Round(objDiskDrive.Size/ 1073741824  , 2)& " GB"
Next




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