Machine names of Network 1

[jester4281]

Is there a command like the GETFILE() that will allow a user to browse through the network neighborhood and then select a machine and return the machine name.

I am making a small chat app that I want to get the machine name of the desired reciever.

 

[Mike Gagnon]

Take a look at faq814-1824, perhaps you can modify it to suit your needs.


Mike Gagnon [μ].[γ].

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[jaa69]

Try this

oNet = CREATEOBJECT('Wscript.network')
STORE onet.computername TO mmachine

 

[baltman]

faq184-4449 Enumerate Available Shares and Current Mapping

Should be adaptable for your needs.

Brian

 

[Mike Gagnon]

Brian and jaa69

How do your suggestion meet this request? "a user to browse through the network neighborhood and then select a machine"



Mike Gagnon [μ].[γ].

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[baltman]

Mike, why a FAQ on parsing on the Visionael network inventory solutions forum... which FAQ did you mean to point to?

Anyway, the FAQ I posted includes the return of all available machine names regardless of shares.

Brian

 

[Mike Gagnon]

Brian

Mike, why a FAQ on parsing on the Visionael network inventory solutions forum... which FAQ did you mean to point to?

Sorry, the moved it on me again , it is now faq184-1821.


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[jester4281]

Brian,

How would I get it to list all the machines. Currently it only shows the machines in my WorkGroup, I have not set up a domain yet. Is there a way to get it to show the machine name, currently it shows share letter and share UNC ? sorry for being such a pain.

 

[Mike Gagnon]

JESTER4281

Perhaps this might help:

#Define  ssfNETWORK  17
Local S
S =''
shlApp = Createobject("shell.application")
nethood = shlApp.namespace(ssfNETWORK )
For Each Item In nethood.items
	S = S + Item.Name +Chr(13)
Next
Messagebox( S)

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Mike Gagnon]

Jester4281

Or perhaps this is more appropriate (This will list all computers in a given domain) (Note this needs to be run on the server where the domain is located)

colWorkgroups = GetObject("WinNT:")
colWorkgroups.Filter = "Domain"
For Each objWorkgroup in colWorkgroups 
    strWorkgroup = "Name:     " + objWorkgroup.Name   +CHR(13) +;
    "Class:    " + objWorkgroup.Class   +CHR(13) +;
    "GUID:     " + objWorkgroup.GUID   +CHR(13) +;
    "ADsPath:  " + objWorkgroup.ADsPath +CHR(13) +;
    "Parent:   " + objWorkgroup.Parent  +CHR(13) +;
    "Schema:   " + objWorkgroup.Schema
    MESSAGEBOX( strWorkgroup)
    colComputers = GetObject(objWorkgroup.ADsPath)
    colComputers.Filter = 'Computer'
    For Each objComputer in colComputers
        strComputer = "Name:     " + objComputer.Name    +CHR(13) +;
        "Class:    " + objComputer.Class   +CHR(13) +;
        "GUID:     " + objComputer.GUID    +CHR(13) +;
        "ADsPath:  " + objComputer.ADsPath +CHR(13) +;
        "Parent:   " + objComputer.Parent  +CHR(13) +;
        "Schema:   " + objComputer.Schema
        MESSAGEBOX(strComputer)
    Next
Next

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[jester4281]

Mike, that works, I should be able to modifiy it to work the way I need it to (populate a list box with values). I am getting an OLE IDispatch exception code 0 from active directory: The specified directory property is not supported.

 

[Mike Gagnon]

Mike, that works, I should be able to modifiy it to work the way I need it to (populate a list box with values). I am getting an OLE IDispatch exception code 0 from active directory: The specified directory property is not supported.

Were you running it from a server? and does this server have Windows scripting installed on it?
Windows scripting download page




Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.