Historie úprav

setapouch

Odpověděl/a – 28.srpen 21:21

Spusť notepad a do něj zkopíruj níže uvedený kód. Na prvním řádku můžeš změnit cestu. Celé ulož jako info.vbs (musíš zvolit typ souboru Všechny soubory). Soubor spusť. Obsah soubor z prvního řádku zkopíruj sem do diskuse.

outFile=„C:\od­povediczinfo.txt“
strComputer = „.“
Set objWMIService = GetObject(„win­mgmts:\\“ & strComputer & „\root\CIMV2“)

Set gpu = objWMIService­.ExecQuery(„SE­LECT * FROM Win32_VideoCon­troller“,,48)
Set cpu = objWMIService­.ExecQuery(„Se­lect * from Win32_Processor“,,48)
Set ram = objWMIService­.ExecQuery(„Se­lect * from Win32_Physical­Memory“,,48)

Set objFSO=Create­Object(„Scrip­ting.FileSyste­mObject“)
Set objFile = objFSO.Create­TextFile(outFi­le,True)

objFile.WriteLine „CPU“
For Each objItem in cpu
objFile.WriteLine "Name: " & objItem.Name
objFile.WriteLine "Maximum Clock Speed: " & objItem.MaxCloc­kSpeed
Next

i = 1
For Each obj In ram
memTmp1 = obj.capacity / 1024 / 1024
TotalRam = TotalRam + memTmp1
i = i +1
Next

objFile.WriteLine „RAM: " & TotalRam & " MB“

For Each objItem in gpu
objFile.WriteLine "GK: " & objItem.Caption
Next

objFile.Close

setapouch

Odpověděl/a – 28.srpen 21:30

Spusť notepad a do něj zkopíruj níže uvedený kód. Na prvním řádku můžeš změnit cestu. Celé ulož jako info.vbs (musíš zvolit typ souboru Všechny soubory). Soubor spusť. Obsah soubor z prvního řádku zkopíruj sem do diskuse.

outFile=„C:\od­povediczinfo.txt“
strComputer = „.“
Set objWMIService = GetObject(„win­mgmts:\\“ & strComputer & „\root\CIMV2“)

Set gpu = objWMIService­.ExecQuery(„SE­LECT * FROM Win32_VideoCon­troller“,,48)
Set cpu = objWMIService­.ExecQuery(„Se­lect * from Win32_Processor“,,48)
Set ram = objWMIService­.ExecQuery(„Se­lect * from Win32_Physical­Memory“,,48)

Set objFSO=Create­Object(„Scrip­ting.FileSyste­mObject“)
Set objFile = objFSO.Create­TextFile(outFi­le,True)

objFile.WriteLine „CPU“
For Each objItem in cpu
objFile.WriteLine "Name: " & objItem.Name
objFile.WriteLine "Maximum Clock Speed: " & objItem.MaxCloc­kSpeed
Next

i = 1
For Each obj In ram
memTmp1 = obj.capacity / 1024 / 1024
TotalRam = TotalRam + memTmp1
i = i +1
Next

objFile.WriteLine „RAM: " & TotalRam & " MB“

For Each objItem in gpu
objFile.WriteLine "GK: " & objItem.Caption
Next

objFile.Close
Doplňuji:
Rozšířeno o verzi operačního systému:

outFile=„C:\U­sers\zkodrla\Des­ktop\odpovedic­zinfo.txt“
strComputer = „.“
Set objWMIService = GetObject(„win­mgmts:\\“ & strComputer & „\root\CIMV2“)

Set gpu = objWMIService­.ExecQuery(„SE­LECT * FROM Win32_VideoCon­troller“,,48)
Set cpu = objWMIService­.ExecQuery(„Se­lect * from Win32_Processor“,,48)
Set ram = objWMIService­.ExecQuery(„Se­lect * from Win32_Physical­Memory“,,48)
Set os = objWMIService­.ExecQuery („Select * from Win32_Operatin­gSystem“)

Set objFSO=Create­Object(„Scrip­ting.FileSyste­mObject“)
Set objFile = objFSO.Create­TextFile(outFi­le,True)

objFile.WriteLine „CPU“
For Each objItem in cpu
objFile.WriteLine "Name: " & objItem.Name
objFile.WriteLine "Maximum Clock Speed: " & objItem.MaxCloc­kSpeed
Next

i = 1
For Each obj In ram
memTmp1 = obj.capacity / 1024 / 1024
TotalRam = TotalRam + memTmp1
i = i +1
Next

objFile.WriteLine „RAM: " & TotalRam & " MB“

For Each objItem in gpu
objFile.WriteLine "GK: " & objItem.Caption
Next

For Each os in os
objFile.WriteLine "Caption: " & os.Caption
objFile.WriteLine "Version: " & os.Version
Next

objFile.Close