Click here to Skip to main content
13,086,662 members (55,869 online)
Rate this:
Please Sign up or sign in to vote.
See more:
How to get work group name of my system. I dont want retrieve system name I need WorkGroup name
Example my system name is Computer1. My work group name is Computer Tech. I want to retrieve the name Computer Tech

Thanks in advance
Posted 8-Apr-13 0:00am

1 solution

Rate this: bad
Please Sign up or sign in to vote.

Solution 1

Try this:[^][^][^][^]

[EDIT #1][^]

Dim mos As System.Management.ManagementObjectSearcher
Dim moc As System.Management.ManagementObjectCollection
Dim mo As System.Management.ManagementObject
Dim prop As System.Management.PropertyData = Nothing
Dim FSO As Object = Nothing
Dim txtstream As Object = Nothing
Dim MyString As String = String.Empty
mos = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
moc = mos.Get()
For Each mo In moc

Above code returns information about Win32_NetworkAdapterConfiguration. Look for DNSDomain.
Usha Muhunthan 8-Apr-13 6:37am
All the links return only the computer name Computer1 not WorkGroup Name Computer Tech
Maciej Los 8-Apr-13 8:19am
See updated answer.
Usha Muhunthan 8-Apr-13 8:31am
Its shows 5 errors those all about Type not defined
1. System.Management.ManagementObjectSearcher
2. System.Management.ManagementObjectCollection
3. System.Management.ManagementObject
4. System.Management.PropertyData = Nothing
5. System.Management.ManagementObjectSearcher

Sholud i use any Imports or anything else
Maciej Los 8-Apr-13 8:38am
Just add a reference to System.Managment namespace.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy |
Web01 | 2.8.170813.1 | Last Updated 8 Apr 2013
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100