[madmasles]

TERMINAL,

Код:

#include <CompInfo.au3>

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

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

[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.