Dfs Scripts

Creating a Dfs Node
Enumerating Dfs Nodes
Enumerating Dfs Targets

---

Creating a Dfs Node

Creates a new Dfs node for a shared folder named Scripts.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objDfsNode = objWMIService.Get("Win32_DfsNode")
errReturn = objDfsNode.Create _
    ("\\atl-dc-02\Scripts","\\atl-dc-02","Scripts", _
        "New Dfs node for shared scripts.")
Wscript.Echo errReturn

Enumerating Dfs Nodes

Enumerates all the Dfs nodes on a computer.

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: " & vbTab &  objDfsNode.Caption     
    Wscript.Echo "Description: " & vbTab &  objDfsNode.Description    
    Wscript.Echo "Install Date: " & vbTab &  objDfsNode.InstallDate
    Wscript.Echo "Name: " & vbTab &  objDfsNode.Name   
    Wscript.Echo "Root: " & vbTab &  objDfsNode.Root   
    Wscript.Echo "State: " & vbTab &  objDfsNode.State 
    Wscript.Echo "Status: " & vbTab &  objDfsNode.Status       
    Wscript.Echo "Timeout: " & vbTab &  objDfsNode.Timeout     
Next

Enumerating Dfs Targets

Enumerates all the Dfs targets on a computer.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDfsTargets = objWMIService.ExecQuery _
    ("Select * from Win32_DFSTarget")
For each objDfsTarget in colDfsTargets
    Wscript.Echo "Caption: " & vbTab &  objDfsTarget.Caption   
    Wscript.Echo "Description: " & vbTab &  objDfsTarget.Description
    Wscript.Echo "Install Date: " & vbTab &  objDfsTarget.InstallDate
    Wscript.Echo "Link Name: " & vbTab &  objDfsTarget.LinkName       
    Wscript.Echo "Name: " & vbTab &  objDfsTarget.Name 
    Wscript.Echo "Server Name: " & vbTab &  objDfsTarget.ServerName
    Wscript.Echo "Share Name: " & vbTab &  objDfsTarget.ShareName     
    Wscript.Echo "State: " & vbTab &  objDfsTarget.State       
    Wscript.Echo "Status: " & vbTab &  objDfsTarget.Status     
Next