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 GetUsersInfoCol lection(ByVal domain As String) As
ManagementObjec tCollection
Dim query As ManagementObjec tSearcher
Dim queryCollection As ManagementObjec tCollection
Dim msc As ManagementScope = New ManagementScope ("root\cimv2 ")
Dim query_command As String = "SELECT * FROM Win32_UserAccou nt
WHERE Domain=" & Chr(34).ToStrin g() & domain & Chr(34).ToStrin g()
Dim select_query As SelectQuery = New SelectQuery(que ry_command)
query = New ManagementObjec tSearcher(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****@discuss ions.microsoft. comwrote in message
news:C7******** *************** ***********@mic rosoft.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 GetUsersInfoCol lection(ByVal domain As String) As
ManagementObjec tCollection
Dim query As ManagementObjec tSearcher
Dim queryCollection As ManagementObjec tCollection
Dim msc As ManagementScope = New ManagementScope ("root\cimv2 ")
Dim query_command As String = "SELECT * FROM Win32_UserAccou nt
WHERE Domain=" & Chr(34).ToStrin g() & domain & Chr(34).ToStrin g()
Dim select_query As SelectQuery = New SelectQuery(que ry_command)
query = New ManagementObjec tSearcher(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****@discuss ions.microsoft. comwrote in message
news:C7******** *************** ***********@mic rosoft.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 GetUsersInfoCol lection(ByVal domain As String) As
ManagementObjec tCollection
Dim query As ManagementObjec tSearcher
Dim queryCollection As ManagementObjec tCollection
Dim msc As ManagementScope = New ManagementScope ("root\cimv2 ")
Dim query_command As String = "SELECT * FROM Win32_UserAccou nt
WHERE Domain=" & Chr(34).ToStrin g() & domain & Chr(34).ToStrin g()
Dim select_query As SelectQuery = New SelectQuery(que ry_command)
query = New ManagementObjec tSearcher(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****@discuss ions.microsoft. comwrote in message
news:B3******** *************** ***********@mic rosoft.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****@discuss ions.microsoft. comwrote in message
news:C7******** *************** ***********@mic rosoft.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 GetUsersInfoCol lection(ByVal domain As String) As
ManagementObjec tCollection
Dim query As ManagementObjec tSearcher
Dim queryCollection As ManagementObjec tCollection
Dim msc As ManagementScope = New ManagementScope ("root\cimv2 ")
Dim query_command As String = "SELECT * FROM Win32_UserAccou nt
WHERE Domain=" & Chr(34).ToStrin g() & domain & Chr(34).ToStrin g()
Dim select_query As SelectQuery = New SelectQuery(que ry_command)
query = New ManagementObjec tSearcher(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****@discuss ions.microsoft. comschreef in bericht
news:C7******** *************** ***********@mic rosoft.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 GetUsersInfoCol lection(ByVal domain As String) As
ManagementObjec tCollection
Dim query As ManagementObjec tSearcher
Dim queryCollection As ManagementObjec tCollection
Dim msc As ManagementScope = New ManagementScope ("root\cimv2 ")
Dim query_command As String = "SELECT * FROM Win32_UserAccou nt
WHERE Domain=" & Chr(34).ToStrin g() & domain & Chr(34).ToStrin g()
Dim select_query As SelectQuery = New SelectQuery(que ry_command)
query = New ManagementObjec tSearcher(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****@discuss ions.microsoft. comschreef in bericht
news:C7******** *************** ***********@mic rosoft.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 GetUsersInfoCol lection(ByVal domain As String) As
ManagementObjec tCollection
Dim query As ManagementObjec tSearcher
Dim queryCollection As ManagementObjec tCollection
Dim msc As ManagementScope = New ManagementScope ("root\cimv2 ")
Dim query_command As String = "SELECT * FROM Win32_UserAccou nt
WHERE Domain=" & Chr(34).ToStrin g() & domain & Chr(34).ToStrin g()
Dim select_query As SelectQuery = New SelectQuery(que ry_command)
query = New ManagementObjec tSearcher(msc, select_query)
queryCollection = query.Get()
Return queryCollection
End Function
--
Dennis in Houston

[Nick]

"Dennis" <De****@discuss ions.microsoft. comwrote in message
news:C7******** *************** ***********@mic rosoft.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 GetUsersInfoCol lection(ByVal domain As String) As
ManagementObjec tCollection
Dim query As ManagementObjec tSearcher
Dim queryCollection As ManagementObjec tCollection
Dim msc As ManagementScope = New ManagementScope ("root\cimv2 ")
Dim query_command As String = "SELECT * FROM Win32_UserAccou nt
WHERE Domain=" & Chr(34).ToStrin g() & domain & Chr(34).ToStrin g()
Dim select_query As SelectQuery = New SelectQuery(que ry_command)
query = New ManagementObjec tSearcher(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****@discuss ions.microsoft. comwrote in message
news:C7******** *************** ***********@mic rosoft.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 GetUsersInfoCol lection(ByVal domain As String) As
ManagementObjec tCollection
Dim query As ManagementObjec tSearcher
Dim queryCollection As ManagementObjec tCollection
Dim msc As ManagementScope = New ManagementScope ("root\cimv2 ")
Dim query_command As String = "SELECT * FROM Win32_UserAccou nt
WHERE Domain=" & Chr(34).ToStrin g() & domain & Chr(34).ToStrin g()
Dim select_query As SelectQuery = New SelectQuery(que ry_command)
query = New ManagementObjec tSearcher(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****@discuss ions.microsoft. comwrote in message
news:05******** *************** ***********@mic rosoft.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