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

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

Ветеран


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

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


Ну, например:
Код: Выделить весь код
Option Explicit

If StrComp( _
		GetObject("LDAP://" & WScript.CreateObject("ADSystemInfo").ComputerName).Parent, _
		"LDAP://CN=SC,OU=Group,DC=SRV,DC=RU", _
		vbTextCompare _
	) = 0 Then
	
	' Place your code here
End If

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

Отправлено: 10:39, 25-09-2015 | #4