Contact Info

Crumbtrail

ActiveXperts.com » Administration » VBScript Collection » Storage » DFS

Scripting DFS Storage using VBScript

Create a Dfs Node
List 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