Scripting DFS Storage using VBScript
Create a Dfs NodeList Dfs Nodes
List Dfs Targets
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.
Create 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.")
List Dfs Nodes
Lists 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: " & 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
List 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: " & objDfsTarget.Caption Wscript.Echo "Description: " & objDfsTarget.Description Wscript.Echo "Install Date: " & objDfsTarget.InstallDate Wscript.Echo "Link Name: " & objDfsTarget.LinkName Wscript.Echo "Name: " & objDfsTarget.Name Wscript.Echo "Server Name: " & objDfsTarget.ServerName Wscript.Echo "Share Name: " & objDfsTarget.ShareName Wscript.Echo "State: " & objDfsTarget.State Wscript.Echo "Status: " & objDfsTarget.Status Next