Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата NLOLegion:
допускаю что фигню пишу »
Ага. Файл c:\temp\processlist.txt у Вас создаётся дважды: сначала посредством PowerShell, а затем переписывается поверх непосредственно из кода пакетного файла.

Цитата megaloman:
Mid(DT, 1, 4) + "." + Mid(DT, 5, 2) + "." + Mid(DT, 7, 2) + " " + Mid(DT, 9, 2) + ":" + Mid(DT, 11, 2) + ":" + Mid(DT, 13, 2) »
Правильнее будет так:

Скрытый текст
Код: Выделить весь код
Option Explicit

Dim objSWbemServicesEx
Dim objSWbemDateTime
Dim objSWbemObjectEx


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

WScript.Echo "Creation Date/Time" & vbTab & "Name"

For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT Name, CreationDate FROM Win32_Process")
	objSWbemDateTime.Value = objSWbemObjectEx.CreationDate
	WScript.Echo objSWbemDateTime.GetVarDate() & vbTab & objSWbemObjectEx.Name
Next

Set objSWbemDateTime   = Nothing
Set objSWbemServicesEx = Nothing

WScript.Quit 0
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:58, 03-01-2020 | #9