[решено] Узнать РАБОЧУЮ ГРУППУ - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Узнать РАБОЧУЮ ГРУППУ (http://forum.oszone.net/showthread.php?t=170684)

Узнать РАБОЧУЮ ГРУППУ

Какой командой возможно узнать имя РАБОЧЕЙ ГРУППЫ ?

TERMINAL,

Код:

#include <CompInfo.au3>



Dim $aSystemInfo

_ComputerGetSystem($aSystemInfo)

MsgBox(0, "Рабочая группа", $aSystemInfo[1][13])

Computer Info - Библиотека для получения инфы о компьютере

madmasles, А другой вариант можешь предложить ещё?

TERMINAL, тогда сначала скажите, чем не устраивает предложенный вариант.

Iska, Устраивал пока не началась иногда (когда захочет) выпадать ошибка Variable must be of type "Object", не пойму по какой причине....

~~Пробуйте самое простое:~~

Код:

Local $oWshNetwork = ObjCreate("WScript.Network")

MsgBox(0, "Domain", $oWshNetwork.UserDomain)

Iska, Выводит имя компьютера...

TERMINAL, боюсь, я действительно погорячился. Попробую вечером вспомнить.

TERMINAL, попробуйте ещё так:

Код:

Local $oWinNTSystemInfo = ObjCreate("WinNTSystemInfo")

MsgBox(0, "Domain", $oWinNTSystemInfo.DomainName)

TERMINAL, добрался я до машины с рабочей группой, посмотрел — в основном так же, через Wbem опрашивают.

Давайте попробуем и мы опять то же самое, только не через библиотеку «CompInfo.au3», а уже напрямую:

Код:

#Include <Misc.au3>



AutoItSetOption("MustDeclareVars", 1)



Local $oSWbemLocator = ObjCreate("WbemScripting.SWbemLocator")

Local $oSWbemObjectEx



For $oSWbemObjectEx In $oSWbemLocator.ConnectServer(".", "root\cimv2").ExecQuery( "Select * from Win32_ComputerSystem")

    ConsoleWrite(_Iif($oSWbemObjectEx.PartOfDomain, "Computer Domain: ", "Workgroup: ") & $oSWbemObjectEx.Domain & @CRLF)

Next



Exit(0)

Что скажет данный код на проблемных:

Цитата:

Цитата TERMINAL

иногда (когда захочет) выпадать ошибка Variable must be of type "Object", »

машинах?

P.S. Наткнулся у Роба на хорошую обзорную статью по теме и решил добавить сюда: VBScript Scripting Techniques: Retrieving (User and Computer) Domain or Workgroup Names.

Iska, найду проблемную машинку-отпишусь.... А пока ещё попутный вопрос-возможно ли определить наличие машины в домене или в рабочей группе?

Iska, ConsoleWrite($oSWbemObjectEx.PartOfDomain)
Это показатель наличие машины в домене с результатом true ?

Цитата:

Цитата TERMINAL

Это показатель наличие машины в домене с результатом true ? »

Для XP и выше — да: Win32_ComputerSystem class.

Цитата:

PartOfDomain

Data type: boolean
Access type: Read-only

If True, the computer is part of a domain. If the value is NULL, the computer is not in a domain or the status is unknown. If you unjoin the computer from a domain, the value becomes False.

Windows 2000 and Windows NT: This property is not available.

Iska, Спасибо, вроде на твоём варианте проблема изчезла.

Посмотрите ещё здесь.