Attn: VB Coders - Folderexists method timeout?

Hi All,

I'm currently making a script that checks for the existence of a folder on each computer account in our domain. I'm using this bit of code:

Code:

For Each o_leaf In o_office
     v_source = "\\" & Mid(o_leaf.name, 4) & "\CGL"
     If o_filesys.folderexists (v_source) = True Then
          MsgBox v_source & " found!"
     ElseIf o_filesys.folderexists (v_source) = False Then
          MsgBox v_source & " does not exist or is currently unreachable."
     End If
Next

where o_office is an object bound to an OU containing computer accounts in our domain. I have two questions for anyone who can answer.

1. Notice that I'm using the function Mid(o_leaf.name, 4). This is because o_leaf.name returns a distinguished name like CN=XXXXXX. Is there another property of a computer account object that will return JUST the computer name, and NOT the object type?

2. When I use the folderexists method on a computer that doesn't exist, or isn't turned on, the script has to wait for this to timeout before continuing execution. As you can imagine, this adds quite a bit to the running time of the script. Is there any way I can change the timeout setting to a lower value?

Since I have a working method for the first question, it is lower on the priority scale than the second question. Thanks in advance to anyone who offers their thoughts.

Regards,

Milty

 

I am working on something vaugly similair (take my existing software and an AD and put 2 and 2 together ) I found the best thing to do was to ping the computer first. Check its online and then if it is query it.

I actually invoke the windows ping command with my own timeout using a class I found somewhere.

 

Okay - that makes good sense.

I assume you output the ping request to text, and use vb to analyze that?

I kinda like this idea, but I just realized that alot of our actual machines have firewalls configured to NOT respond to ping requests... damn.

 

Well its .net but you can pipe the output to the program without having to write to text...

HOWEVER

I had a dig in my folder of random vb6 stuff thats useful and found a class module for pinging.

NOTE: I didn't write this, read the comments, you may need to credit someone...