rafaelcpcunha Posted April 30, 2012 Report Share Posted April 30, 2012 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 Quote Link to comment Share on other sites More sharing options...
0 Danleonhart Posted May 1, 2012 Report Share Posted May 1, 2012 Com WMI é possível...http://forums.techarena.in/windows-server-help/1212953.htm Quote Link to comment Share on other sites More sharing options...
0 rafaelcpcunha Posted May 2, 2012 Author Report Share Posted May 2, 2012 Com WMI é possível...http://forums.techarena.in/windows-server-help/1212953.htm? Quote Link to comment Share on other sites More sharing options...
0 Danleonhart Posted May 3, 2012 Report Share Posted May 3, 2012 Leu ??? :blink: No penúltimo post tem a resposta :rolleyes: Quote Link to comment Share on other sites More sharing options...
0 rafaelcpcunha Posted May 4, 2012 Author Report Share Posted May 4, 2012 Sim, até ai entendi. Mas não consegui interpretar o código para aplica-lo e jogar o resultado em uma variável. Quote Link to comment Share on other sites More sharing options...
0 Danleonhart Posted May 5, 2012 Report Share Posted May 5, 2012 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... ;) Quote Link to comment Share on other sites More sharing options...
0 rafaelcpcunha Posted May 11, 2012 Author Report Share Posted May 11, 2012 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 Quote Link to comment Share on other sites More sharing options...
0 hasamer Posted May 19, 2012 Report Share Posted May 19, 2012 Sim, até ai entendi. Quote Link to comment Share on other sites More sharing options...
Question
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
Link to comment
Share on other sites
7 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.