Solved

Are there any commadsto list all computers in one domain?

Posted on 2010-11-10
6
332 Views
Last Modified: 2012-06-21
Usually we can use "net view ..." to list all on-line computers in a domain.
For this domain, it seems to have a strict rule in place. When I issue the same command, I got "System error 6118 has occurred. This workgroup is not currently available..."
However ping the other computer OK and we can copy/share files by making a shared point without problem. Do you know what kind of privileges are needed to make it work? Any other commands list all the computers in a domain? Thanks a lot.  
0
Comment
Question by:jl66
6 Comments
 
LVL 10

Assisted Solution

by:Tyler Laczko
Tyler Laczko earned 40 total points
ID: 34105418
it seems that your computer is not part of a domain.

you can log into your server and look at DHCP
0
 
LVL 19

Accepted Solution

by:
Daniel Van Der Werken earned 400 total points
ID: 34105719
I'm pretty sure your computer has to be part of the domain for this to work, but  you can try using LDAP and active directory.  Here is a site with some decent scripts:

http://www.activexperts.com/activmonitor/windowsmanagement/scripts/activedirectory/computer/

I modified this one and ran it and it is listing all the computers.  From a command prompt, run it as
c:\>cscript name.vbs

where name.vbs is the name of the script file on your local drive.



Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://DC=firmwide,DC=corp,DC=gs,DC=com' " & "Where objectClass='computer'"  
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
    wscript.stdout.write "Computer Name: " & objRecordSet.Fields("Name").Value & " "
    wscript.stdout.writeline "Location: " & objRecordSet.Fields("Location").Value
    objRecordSet.MoveNext
Loop

Open in new window

0
 

Author Comment

by:jl66
ID: 34106018
Thanks for the info and tips.
Dan7el: FOr "DC=firmwide,DC=corp,DC=gs,DC=com", how to determine these values?
Per instruction I ran it and got some error:
..."(13, 1) Provider: Table does not exist."
which is "Set objRecordSet = objCommand.Execute"
Thanks in advance!
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 19

Expert Comment

by:Daniel Van Der Werken
ID: 34106270
You'll have to set that to your specific domain.
In this instance, you'll use whatever your domain is.   For example, if you were at microsoft.com, then you'd use
DC=Microsoft,DC=com
0
 
LVL 8

Assisted Solution

by:RGRodgers
RGRodgers earned 60 total points
ID: 34107767
Have you looked into Microsoft's Sysinternals?  The ADexplorer can provide the list under DC=domain.com,CN=Computers.  The whole Sysinternals package is a free Microsoft download.
0
 

Author Closing Comment

by:jl66
ID: 34117308
Thank all of you so much.
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Several part series to implement Internet Explorer 11 Enterprise Mode
Storage devices are generally used to save the data or sometime transfer the data from one computer system to another system. However, sometimes user accidentally erased their important data from the Storage devices. Users have to know how data reco…
In this video, we discuss why the need for additional vertical screen space has become more important in recent years, namely, due to the transition in the marketplace of 4x3 computer screens to 16x9 and 16x10 screens (so-called widescreen format). …
Windows 8 came with a dramatically different user interface known as Metro. Notably missing from that interface was a Start button and Start Menu. Microsoft responded to negative user feedback of the Metro interface, bringing back the Start button a…

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now