Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
Doplnění dotazu: moc se omlouvám, ale přesměrování do souboru nemůžu využít, takže nejspíš něco přes…
Pavel 26.06.2006 18:34
Pavel
Tak už jsem něco našel: http://www.computerperformance.co.uk/vbscript/wmi_m emory.htm ' Memory.vbs…
Pavel 26.06.2006 18:54
Pavel
Upravil jsem skript tak, aby počítal paměť v kB a MB, programátoři prominou za lehce naivní implemen… nový
Pavel 26.06.2006 19:01
Pavel
no vidíš to.. ani to nebolelo :-D nový
touchwood 26.06.2006 20:05
touchwood
Jenom bych podotkl: narazil jsem na autoit a opouštím WSH, viz http://pc.poradna.net/question/view/4… poslední
Pavel 05.07.2006 16:39
Pavel
mem /c > vypis.txt - vyhovuje zadaniu Edit: Ale len pre konvenčnú pamäť, keďže CMD tabuľka je "DOS"… nový
msx. 27.06.2006 09:09
msx.

Tak už jsem něco našel: http://www.computerperformance.co.uk/vbscript/wmi_m emory.htm

' Memory.vbs
' Sample VBScript to discover how much RAM in computer
' Author Guy Thomas computerperformance.co.uk
' Version 1.3 - August 2005
' -------------------------------------------------- -----'
Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
Wscript.Echo "System Name: " & objComputer.Name _
& vbCr & "Total RAM " & objComputer.TotalPhysicalMemory
Next

WScript.Quit

' End of Sample Memory WMI / VBScript

Pavel

Upravil jsem skript tak, aby počítal paměť v kB a MB, programátoři prominou za lehce naivní implementaci:

' Memory.vbs
' Sample VBScript to discover how much RAM in computer
' Author Guy Thomas computerperformance.co.uk
' Version 1.3 - August 2005
' -------------------------------------------------- -----'
Option Explicit
Dim objWMIService, objComputer, colComputer
Dim strLogonUser, strComputer
Dim MemkB
Dim MemMB

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
MemkB = objComputer.TotalPhysicalMemory/1024
MemMB = MemkB/1024
Wscript.Echo "System Name: " & objComputer.Name _
& vbCr & "Total RAM " & MemMB & " MBytes"
Next

WScript.Quit

' End of Sample Memory WMI / VBScript

Pavel

Zpět do poradny Odpovědět na původní otázku Nahoru