[Iska]

Можно:

Скрытый текст

Код:

Option Explicit

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemObjectEx

Dim lngProcessID


strComputer = "."


Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT TotalPhysicalMemory FROM Win32_ComputerSystem")
	If CSng(objSWbemObjectEx.TotalPhysicalMemory) > 3 * 2 ^ 30 Then
		If objSWbemServicesEx.Get("Win32_Process").Create("c:\Windows\System32\notepad.exe", "c:\Windows\System32", Null, lngProcessID) = 0 Then
			WScript.Echo "Success execute. PID: [" & CStr(lngProcessID) & "]."
		Else
			WScript.Echo "Execute failure."
		End If
	End If
Next

Set objSWbemObjectEx   = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0

[null999]

("SELECT TotalPhysicalMemory FROM Win32_ComputerSystem") »

всегда прописывать win32 или для x64 нужно заменять на win64 ?

[Iska]

всегда прописывать win32 или для x64 нужно заменять на win64 ? »

Не нужно. Win32_ComputerSystem — это имя класса: Win32_ComputerSystem class (Windows), где Win32_ является частью имени.

[null999]

cпасибо, работает, вот только можно ли убрать окно, которое после удачного запуска появляется?что бы закрить ужно каждый раз "ок" кликать

[Iska]

которое после удачного запуска появляется?что бы закрить ужно каждый раз "ок" кликать »

Закомментируйте строку:

Код:

			'WScript.Echo "Success execute. PID: [" & CStr(lngProcessID) & "]."

[null999]

работает, спасибо

и подскажите еще, как так сделать с видеокартой

[Iska]

и подскажите еще, как так сделать с видеокартой »

А что с видеокартой?!

[null999]

проверять, есть ли там допустим 512мб?
на что тогда поменять TotalPhysicalMemory?

[Iska]

проверять, есть ли там допустим 512мб? на что тогда поменять TotalPhysicalMemory? »

Тут, пожалуй, придётся перейти на язык с более строгой типизацией (в VBScript нет подтипа прямо соответствующего беззнаковому целому UInt).

PowerShell:

Скрытый текст

Код:

Get-WmiObject -ComputerName "." -Class 'Win32_VideoController' -Property 'AdapterRAM' |`
    ForEach-Object -Process {
        if($_.AdapterRAM -gt 512Mb) {
            $o__PARAMETERS = ([WMICLASS]'\\.\Root\CimV2:Win32_Process').Create('c:\Windows\System32\notepad.exe', 'c:\Windows\System32', $Null)
            if($o__PARAMETERS.ReturnValue -eq 0) {
                Write-Host "Success execute. PID: [$($o__PARAMETERS.ProcessId)]."
            } else {
                Write-Host "Execute failure."
            }
       }
    }

У PowerShell помимо обращения к Wbem существуют и иные возможности по удалённой работе.