VBScript Code to List Dfs Nodes

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.

Example(s)

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDfsNodes = objWMIService.ExecQuery _
    ("Select * from Win32_DFSNode")

For each objDfsNode in colDfsNodes
    Wscript.Echo "Caption: " & objDfsNode.Caption     
    Wscript.Echo "Description: " & objDfsNode.Description    
    Wscript.Echo "Install Date: " & objDfsNode.InstallDate
    Wscript.Echo "Name: " & objDfsNode.Name   
    Wscript.Echo "Root: " & objDfsNode.Root   
    Wscript.Echo "State: " & objDfsNode.State 
    Wscript.Echo "Status: " & objDfsNode.Status       
    Wscript.Echo "Timeout: " & objDfsNode.Timeout     
Next