[Iska]

руские буквы отображатет некоректно, »

Где отображает?

как поменять на 1251 кодировку »

Где менять, зачем менять?

и отсортировать по именам сервисов? »

Они и так отсортированы по именам. Добавьте «objService.Name» в выдачу и посмотрите.

[andr_mozg]

скрипт отрабатывает на удаленной машине с Русской виндой.
при выводе русские буквы отображаются криво.

как отсортировать по дисплей нейму, а не по нейму?

[Iska]

скрипт отрабатывает на удаленной машине с Русской виндой. при выводе русские буквы отображаются криво. »

Как? Так?

Код:

strComputer = "RemoteMachineName"

Покажите скриншот. Разницы не должно быть, независимо от того, на локальной (".") или удалённой ("RemoteMachineName") машинах сие происходит.

как отсортировать по дисплей нейму, а не по нейму? »

Например, так:

читать дальше »

Код:

Option Explicit

Const adVarChar = 200

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx


strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM  Win32_Service")

With WScript.CreateObject("ADODB.Recordset")
	With .Fields
		.Append "Name",        adVarChar, 2^15 - 1
		.Append "DisplayName", adVarChar, 2^15 - 1
		.Append "State",       adVarChar, 2^15 - 1
	End With
	
	.Open
	.Sort = "DisplayName ASC"
	
	For Each objSWbemObjectEx In collSWbemObjectSet
		.AddNew Array("Name", "DisplayName", "State"), Array(objSWbemObjectEx.Name, objSWbemObjectEx.DisplayName, objSWbemObjectEx.State)
	Next
	
	.MoveFirst
	
	Do Until .EOF
		With .Fields
			WScript.Echo .Item("Name").Value, vbTab, .Item("State").Value, vbTab, .Item("DisplayName").Value
		End With
		
		.MoveNext
	Loop
	
	.Close
End With

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0

[andr_mozg]

скрипт запускает удаленно агент, видимо в этом проблема. по аналогии с Psexec, тоесть скрипт запускается локально на удаленном хосте, а ответ передается обратно.

[Iska]

andr_mozg, прямо ответьте на вопрос — Вы указываете имя/адрес удалённой машины здесь:

Код:

strComputer = "RemoteMachineName"

?

И где скриншот? Не вижу его в Вашем сообщении.

[andr_mozg]

нет. скрипт запускается тот что в первом посте. он запускается локально но ответ возвращает агент обратно.

если использую CMD
и пишу ipconfig
то русские буквы так же не читаемы(кривая кодировка)!
но если пишу chcp 1251 && ipconfig
то все ок.

скриншот могу кинуть, но позже нет под рукой.

[Iska]

Что такое «агент»? Почему не используете указанный способ подключения?

[andr_mozg]

на куче машин стоит агент.
он умеет удаленно управлять машиной,
и так же поддерживает работу VBS , через CMD и т.д.

все запускается локально, ответ получаю я на серверной части.
скрипт запускается как в первом посте, локально!!!! не как не иначе.
так более понятно?

[Iska]

Понятно. Что или Вы знать не знаете, или не хотите сказать — ни что за «агент», ни привести скриншот.