[решено] Узнать РАБОЧУЮ ГРУППУ

[TERMINAL]

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

[madmasles]

TERMINAL,
#include <CompInfo.au3>

Dim (http://www.autoitscript.com/autoit3/docs/keywords.htm#Dim) $aSystemInfo
_ComputerGetSystem($aSystemInfo)
MsgBox (http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm)(0, "Рабочая группа", $aSystemInfo[1][13])
Computer Info - Библиотека для получения инфы о компьютере (http://autoit-script.ru/index.php?topic=15.0)

[TERMINAL]

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

[Iska]

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

[TERMINAL]

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

[Iska]

Пробуйте самое простое:
Local $oWshNetwork = ObjCreate("WScript.Network")
MsgBox(0, "Domain", $oWshNetwork.UserDomain)

[TERMINAL]

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

[Iska]

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

[Iska]

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

Local $oWinNTSystemInfo = ObjCreate("WinNTSystemInfo")
MsgBox(0, "Domain", $oWinNTSystemInfo.DomainName)

[Iska]

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)

Что скажет данный код на проблемных:
иногда (когда захочет) выпадать ошибка Variable must be of type "Object", »
машинах?

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

[TERMINAL]

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

[TERMINAL]

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

[Iska]

Это показатель наличие машины в домене с результатом true ? »
Для XP и выше — да: Win32_ComputerSystem class (http://msdn.microsoft.com/en-us/library/windows/desktop/aa394102(v=vs.85).aspx).
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.

[TERMINAL]

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

[syr3d]

Посмотрите ещё здесь (http://forum.oszone.net/post-1945635-22.html).