Getting User Info in a Domain

[=?Utf-8?B?RGVubmlz?=]

I am trying to get all the user info in my home network domain using WMI but
the below code returns nothing. I know the domain name I pass is correct,
i.e., "mshome". I cut and pasted this code from an example I found on the
internet.

Public Shared Function GetUsersInfoCollection(ByVal domain As String) As
ManagementObjectCollection
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim msc As ManagementScope = New ManagementScope("root\cimv2")
Dim query_command As String = "SELECT * FROM Win32_UserAccount
WHERE Domain=" & Chr(34).ToString() & domain & Chr(34).ToString()
Dim select_query As SelectQuery = New SelectQuery(query_command)
query = New ManagementObjectSearcher(msc, select_query)
queryCollection = query.Get()
Return queryCollection
End Function
--
Dennis in Houston

[Newbie Coder]

Dennis,

I have the exact answer for you but as you didn't want my help in the past when
I asked specific questions you can get help somewhere else

--
Newbie Coder
(It's just a name)
"Dennis" <De****@discussions.microsoft.comwrote in message
news:C7**********************************@microsof t.com...

I am trying to get all the user info in my home network domain using WMI but
the below code returns nothing. I know the domain name I pass is correct,
i.e., "mshome". I cut and pasted this code from an example I found on the
internet.

Public Shared Function GetUsersInfoCollection(ByVal domain As String) As
ManagementObjectCollection
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim msc As ManagementScope = New ManagementScope("root\cimv2")
Dim query_command As String = "SELECT * FROM Win32_UserAccount
WHERE Domain=" & Chr(34).ToString() & domain & Chr(34).ToString()
Dim select_query As SelectQuery = New SelectQuery(query_command)
query = New ManagementObjectSearcher(msc, select_query)
queryCollection = query.Get()
Return queryCollection
End Function
--
Dennis in Houston

[=?Utf-8?B?RGVubmlz?=]

Thank you for your BS!
--
Dennis in Houston
"Newbie Coder" wrote:

Dennis,

I have the exact answer for you but as you didn't want my help in the past when
I asked specific questions you can get help somewhere else

--
Newbie Coder
(It's just a name)
"Dennis" <De****@discussions.microsoft.comwrote in message
news:C7**********************************@microsof t.com...

I am trying to get all the user info in my home network domain using WMI but
the below code returns nothing. I know the domain name I pass is correct,
i.e., "mshome". I cut and pasted this code from an example I found on the
internet.

Public Shared Function GetUsersInfoCollection(ByVal domain As String) As
ManagementObjectCollection
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim msc As ManagementScope = New ManagementScope("root\cimv2")
Dim query_command As String = "SELECT * FROM Win32_UserAccount
WHERE Domain=" & Chr(34).ToString() & domain & Chr(34).ToString()
Dim select_query As SelectQuery = New SelectQuery(query_command)
query = New ManagementObjectSearcher(msc, select_query)
queryCollection = query.Get()
Return queryCollection
End Function
--
Dennis in Houston

[Newbie Coder]

Dennis,

I have a long memory with what you said in the past & will never help you again
even when I have the exact code you need. You only have yourself to blame

--
Newbie Coder
(It's just a name)

"Dennis" <De****@discussions.microsoft.comwrote in message
news:B3**********************************@microsof t.com...

Thank you for your BS!
--
Dennis in Houston
"Newbie Coder" wrote:

Dennis,

I have the exact answer for you but as you didn't want my help in the past

when

I asked specific questions you can get help somewhere else

--
Newbie Coder
(It's just a name)
"Dennis" <De****@discussions.microsoft.comwrote in message
news:C7**********************************@microsof t.com...

I am trying to get all the user info in my home network domain using WMI

but

the below code returns nothing. I know the domain name I pass is correct,
i.e., "mshome". I cut and pasted this code from an example I found on the
internet.
>
Public Shared Function GetUsersInfoCollection(ByVal domain As String) As
ManagementObjectCollection
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim msc As ManagementScope = New ManagementScope("root\cimv2")
Dim query_command As String = "SELECT * FROM Win32_UserAccount
WHERE Domain=" & Chr(34).ToString() & domain & Chr(34).ToString()
Dim select_query As SelectQuery = New SelectQuery(query_command)
query = New ManagementObjectSearcher(msc, select_query)
queryCollection = query.Get()
Return queryCollection
End Function
>
>
--
Dennis in Houston

[Cor Ligthert[MVP]]

Dennis,

WMI gives you information about your computer, LDAP gives it about the
active directory.
Beside that you can get some information using the environment class. (by
instance username).

In your case I would start here

http://msdn2.microsoft.com/en-us/lib...8a(vs.71).aspx
Cor
"Dennis" <De****@discussions.microsoft.comschreef in bericht
news:C7**********************************@microsof t.com...

>I am trying to get all the user info in my home network domain using WMI
but
the below code returns nothing. I know the domain name I pass is correct,
i.e., "mshome". I cut and pasted this code from an example I found on the
internet.

Public Shared Function GetUsersInfoCollection(ByVal domain As String) As
ManagementObjectCollection
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim msc As ManagementScope = New ManagementScope("root\cimv2")
Dim query_command As String = "SELECT * FROM Win32_UserAccount
WHERE Domain=" & Chr(34).ToString() & domain & Chr(34).ToString()
Dim select_query As SelectQuery = New SelectQuery(query_command)
query = New ManagementObjectSearcher(msc, select_query)
queryCollection = query.Get()
Return queryCollection
End Function
--
Dennis in Houston

[Cor Ligthert[MVP]]

Newbie,

As we all remember what somebody has written about us, whoever it is, then
they can better close all newsgroups.

However feel free to sustain in your behaviour.

Cor

[=?Utf-8?B?RGVubmlz?=]

Cor, thanks for info site. I'll check it out.
--
Dennis in Houston
"Cor Ligthert[MVP]" wrote:

Dennis,

WMI gives you information about your computer, LDAP gives it about the
active directory.
Beside that you can get some information using the environment class. (by
instance username).

In your case I would start here

http://msdn2.microsoft.com/en-us/lib...8a(vs.71).aspx
Cor
"Dennis" <De****@discussions.microsoft.comschreef in bericht
news:C7**********************************@microsof t.com...

I am trying to get all the user info in my home network domain using WMI
but
the below code returns nothing. I know the domain name I pass is correct,
i.e., "mshome". I cut and pasted this code from an example I found on the
internet.

Public Shared Function GetUsersInfoCollection(ByVal domain As String) As
ManagementObjectCollection
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim msc As ManagementScope = New ManagementScope("root\cimv2")
Dim query_command As String = "SELECT * FROM Win32_UserAccount
WHERE Domain=" & Chr(34).ToString() & domain & Chr(34).ToString()
Dim select_query As SelectQuery = New SelectQuery(query_command)
query = New ManagementObjectSearcher(msc, select_query)
queryCollection = query.Get()
Return queryCollection
End Function
--
Dennis in Houston

[Nick]

"Dennis" <De****@discussions.microsoft.comwrote in message
news:C7**********************************@microsof t.com...

>I am trying to get all the user info in my home network domain using WMI
but
the below code returns nothing. I know the domain name I pass is correct,
i.e., "mshome". I cut and pasted this code from an example I found on the
internet.

Public Shared Function GetUsersInfoCollection(ByVal domain As String) As
ManagementObjectCollection
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim msc As ManagementScope = New ManagementScope("root\cimv2")
Dim query_command As String = "SELECT * FROM Win32_UserAccount
WHERE Domain=" & Chr(34).ToString() & domain & Chr(34).ToString()
Dim select_query As SelectQuery = New SelectQuery(query_command)
query = New ManagementObjectSearcher(msc, select_query)
queryCollection = query.Get()
Return queryCollection
End Function
--
Dennis in Houston

Does the home network have a domain controller or are the computers
configured as standalone in a workgroup?

[=?Utf-8?B?RGVubmlz?=]

Standalone in a workgroup as a home network on a router.
--
Dennis in Houston
"Nick" wrote:

"Dennis" <De****@discussions.microsoft.comwrote in message
news:C7**********************************@microsof t.com...

I am trying to get all the user info in my home network domain using WMI
but
the below code returns nothing. I know the domain name I pass is correct,
i.e., "mshome". I cut and pasted this code from an example I found on the
internet.

Public Shared Function GetUsersInfoCollection(ByVal domain As String) As
ManagementObjectCollection
Dim query As ManagementObjectSearcher
Dim queryCollection As ManagementObjectCollection
Dim msc As ManagementScope = New ManagementScope("root\cimv2")
Dim query_command As String = "SELECT * FROM Win32_UserAccount
WHERE Domain=" & Chr(34).ToString() & domain & Chr(34).ToString()
Dim select_query As SelectQuery = New SelectQuery(query_command)
query = New ManagementObjectSearcher(msc, select_query)
queryCollection = query.Get()
Return queryCollection
End Function
--
Dennis in Houston

Does the home network have a domain controller or are the computers
configured as standalone in a workgroup?

[Nick]

"Dennis" <De****@discussions.microsoft.comwrote in message
news:05**********************************@microsof t.com...

Standalone in a workgroup as a home network on a router.

You can try the following to see if it works any better:
select * from win32_localhost where localaccount = true