Pegar o grupo de trabalho de uma máquina windows

[rafaelcpcunha]

Olá

O Windows não "gera" nenhuma variável de ambiente com o grupo de trabalho (Workgroup).

Como posso obter essa informação pelo vb6.

Desde já agradeço

[Danleonhart]

Com WMI é possível...

http://forums.techarena.in/windows-server-help/1212953.htm

[rafaelcpcunha]

Com WMI é possível...

http://forums.techarena.in/windows-server-help/1212953.htm

?

[Danleonhart]

Leu ??? :blink:

No penúltimo post tem a resposta :rolleyes:

[rafaelcpcunha]

Sim, até ai entendi. Mas não consegui interpretar o código para aplica-lo e jogar o resultado em uma variável.

[Danleonhart]

Beleza...

Você copiou o código de lá, certo ?!

Faz o seguinte:

Onde tem "WScript.Echo" coloca "MsgBox" e faz um teste...

tipo, coloca em um CommandButton, executa e posta o resultado... ;)

[rafaelcpcunha]

Desculpe a demora, mais funcionou perfeito.

Muito obrigado pela paciência.

Private Sub Form_Load()
Dim strComputerDomain As String
Set objWMISvc = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMISvc.ExecQuery("Select * from Win32_ComputerSystem", , 48)
For Each objItem In colItems
strComputerDomain = objItem.Domain
If objItem.PartOfDomain Then
Label1.Caption = "Computer Domain: " & strComputerDomain
Else
Label1.Caption = "Workgroup: " & strComputerDomain
End If
Next
End Sub

[hasamer]

Sim, até ai entendi.