[exo]

Код:

systeminfo | findstr /B /C:"Domain"

[Limonica]

Благодарю, но случается такое:

[exo]

но случается такое: »

эта и другие темы в поиске

[Iska]

2exo …

Код: 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

[exo]

Iska, у меня в немецкой винде вообще: Domane )

Домен: MSHOME »

а если бы был домен, то было бы MSHOSME.TLD, если домен правильно настроен.

[Iska]

а если бы был домен, то было бы MSHOSME.TLD, »

Надо будет не забыть глянуть. Я как-то не обращал специального внимания на этот момент.

если домен правильно настроен. »

А ежели-таки несмотря ни на что окажется single-label domain ? А в домене NT4 ? А машине нельзя дать такое имя — с точкой?

[exo]

Я как-то не обращал специального внимания на этот момент »

я бы не написал, не проверив )

А в домене NT4 »

тут не смогу помочь, раритетом не занимаюсь.

[Iska]

я бы не написал, не проверив ) »

Да я про себя писал .