Vista - Connecting to Win32_DFSTarget on Windows Server 2008

I am using the following script for listing DFS on a server:

strComputer = "SERVERNAME1"
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

(from http://www.activexperts.com/activmon...ts/storage/dfs )

This script does not work when connecting to a Windows Server 2008, however it works fine on Windows 2003 Server.

So. Any clues?


--
-- HAL07, Engineering Services, Norway

"HAL07" <yahoohal@xxxxxx> wrote in message
news:eop0X95fJHA.1292@xxxxxxDoes it help to use authenticationLevel:

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,authenticationLevel=Pkt}!\\" _
& strComputer & "\root\cimv2")

If the script works on the server, but not remotely, then perhaps DCOM is
disabled. You may need to use:

netsh firewall set service remoteadmin enable

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

> Does it help to use authenticationLevel:I tried both your script modification and the netsh. I even tried turning off the firewall and rebooted.
But no result...

Any clues?

"HAL07" <yahoohal@xxxxxx> wrote in message
news:uv$DxEFgJHA.3904@xxxxxxI know of no reason why it should not work on W2k8. It is possible for WMI
to become corrupt. I have used the following links to troubleshoot WMI:

http://www.microsoft.com/technet/scr.../help/wmi.mspx

http://support.microsoft.com/kb/875605

http://www.microsoft.com/technet/scr...es/wmifaq.mspx

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

>I don't think so. I have no trouble doing this:
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name = 'DFSR' and State = 'Running'")

it connects and I have output. So I wonder if the names of DFSR have somewhat changed the syntax in 2008?

--
-- HAL07, Engineering Services, Norway