Creating an Domain DFS Root link

Hi all,

i used the script
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.")


but this is creating the DFS root for standalone server but not for
the
"Domain DFS root"


if the value of "errReturn is 0" it means that the dfs kink is
created
but
if a non 0 value is returened it means that the script failed.
so the above script works fine for creating standalone dfs link but
not for
the domain dfs root link


Is there a way we could create a Domain DFS Root link thru script?
if yes pls let me know