Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

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

Ветеран


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

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


Например, так:
Код: Выделить весь код
AutoItSetOption("MustDeclareVars", 1)

Local $sComputer         = "."
Local $oSWbemLocator     = ObjCreate("WbemScripting.SWbemLocator")
Local $oSWbemServicesEx  = $oSWbemLocator.ConnectServer($sComputer, "root\cimv2")
Local $oSWbemObjectEx

Local $sDomain   = "domain"
Local $sUserName = "username"

For $oSWbemObjectEx In $oSWbemServicesEx.ExecQuery( _
		"SELECT * FROM Win32_UserAccount WHERE " & _
		"Domain = '" & $sDomain & "' AND " & _
		"Name   = '" & $sUserName & "'" _
	)

	ConsoleWrite($oSWbemObjectEx.SID & @CRLF)
Next

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

Отправлено: 22:13, 24-05-2013 | #4