Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум
Имя пользователя:
Пароль:
 

Название темы: Состоит ли в домене?
Показать сообщение отдельно

Ветеран


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

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

2exo …
Цитата exo:
Код: Выделить весь код
systeminfo | findstr /B /C:"Domain"
»
Код: Выделить весь код
systeminfo.exe | findstr /B /C:"Домен"
Цитата:
Код: Выделить весь код
Домен:                            MSHOME

Код: Выделить весь код
wmic.exe ComputerSystem get PartOfDomain
На WSH:
читать дальше »
Код: Выделить весь код
With WScript.CreateObject("WinNTSystemInfo")
	If .DomainName = .ComputerName Then
		WScript.Echo "Not in domain"
	Else
		WScript.Echo "Domain: " & .DomainName
	End If
End With
Или:
Код: Выделить весь код
With GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
	For Each objSWbemObjectEx In .ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
		If objSWbemObjectEx.PartOfDomain Then
			WScript.Echo "Domain: " & objSWbemObjectEx.Domain
		Else
			WScript.Echo "Workgroup: " & objSWbemObjectEx.Domain
		End If
		
		Exit For
	Next
End With

Последний раз редактировалось Iska, 04-05-2013 в 18:32.

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

Отправлено: 18:24, 04-05-2013 | #5

Название темы: Состоит ли в домене?