Dfs Scripts
Creating a Dfs NodeEnumerating 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