[Iska]

Есть N ПК в группе в домене (весь домен очень большой, нужны только пк из этой группы). »

Давайте сразу уточним: в «группе» или же таки в организационном подразделении (OU)?

[s_Nomad]

организационном подразделении (OU) »

м... щас уже нет возможности посмотреть, но в любом случае, у меня есть файл-список NetBIOS имен ПК которые нужно опросить и в .txt и в .csv формате

[Iska]

у меня есть файл-список NetBIOS имен ПК которые нужно опросить и в .txt и в .csv формате »

Кодировка этого файла какова?

[s_Nomad]

Кодировка этого файла какова? »

ANSI
Это имеет значение? Ведь можно перегнать в любую кодировку что текстовый файл, что файл с данными разделенный запятыми

[Iska]

s_Nomad, примерно так:

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

Код:

Option Explicit

Dim strMachineList

Dim strComputer
Dim objSWbemLocator
Dim objSWbemObjectEx


If WScript.Arguments.Count = 1 Then
	strMachineList = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(strMachineList) Then
			Set objSWbemLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
			
			With .OpenTextFile(strMachineList)
				Do Until .AtEndOfStream
					strComputer = Trim(.ReadLine())
					
					If IsConnected(strComputer) Then
						For Each objSWbemObjectEx In objSWbemLocator.ConnectServer(strComputer, "root\cimv2").ExecQuery("SELECT * FROM Win32_ComputerSystem")
							WScript.Echo objSWbemObjectEx.Name, vbTab, objSWbemObjectEx.TotalPhysicalMemory
						Next
					Else
						WScript.Echo strComputer & " not found."
					End If
				Loop
				
				.Close
			End With
			
			Set objSWbemLocator = Nothing
		Else
			WScript.Echo "Machine list file [" & strMachineList & "] not found."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Machine list file>"
	WScript.Quit 1
End If

WScript.Quit 0
'=============================================================================

'=============================================================================
Function IsConnected(strAddress)
	Dim objSWbemObjectEx
	
	IsConnected = False
	
	For Each objSWbemObjectEx In GetObject( _
		"winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery( _
			"SELECT * FROM Win32_PingStatus WHERE Address = '" & strAddress & "'" _
		)
		
		With objSWbemObjectEx
			If Not IsNull(.StatusCode) And .StatusCode = 0 Then
				IsConnected = True
			End If
		End With
		
		Exit For
	Next
	
	Set objSWbemObjectEx = Nothing
End Function
'=============================================================================

В именах машин нет кириллицы?

[s_Nomad]

В именах машин нет кириллицы? »

Нет, только латиница и каждое имя с новой строки.

Machine list file »

я так понимаю в место этого я вписываю полный путь к .txt файлу, а куда он выводит?

[Iska]

Нет, только латиница »

Это хорошо, ибо я сталкивался с некорректной работой Win32_PingStatus на кириллических именах.

и каждое имя с новой строки. »

Хорошо, так и ожидается.

я так понимаю в место этого я вписываю полный путь к .txt файлу, »

Нет, имя файла ожидается увидеть аргументом скрипта.

а куда он выводит? »

При запуске по умолчанию, посредством «wscript.exe» — сообщениями на экран, при запуске посредством «cscript.exe» — на консоль. В последнем случае этот вывод можно перенаправить в файл. Т.е., например:

Код:

cscript.exe //nologo "E:\Песочница\0432\My Machine List.txt" >"c:\My Output List.txt"

где: «E:\Песочница\0432\My Machine List.txt» — перечень имён/адресов машин, «c:\My Output List.txt» — файл вывода.

[s_Nomad]

Iska, Спасибо тебе огромное! Все сработало. В строчном порядке начну учить скрипты. Вот колеблюсь только между VBS и Powershell.
Что посоветуешь? Есть ли какой-то кросплатформеный язык? чтоб и под форточки и под линь канал?

[Iska]

Вот колеблюсь только между VBS и Powershell. »

Если ещё не знакомы ни с тем, ни с другим, и эксплуатируемые ОС не ниже XP — начинайте сразу с PowerShell.

Есть ли какой-то кросплатформеный язык? чтоб и под форточки и под линь канал? »

Угу. Python. Но советовать не буду.