GetWMI, Get WMI-Object: Access Denied 0x80070005 both Powershell & VBScript

Experts-

I need lots of help on this one, as I am stumped.  =(
I've been trying to run 2 scripts that do the same thing, just to make sure it wasn't a script issue (in vbscripts and powershell). The script retrieves IP/DNS info from a remote machine and then prints it out.  The problem is I am running into an ACCESS IS DENIED error in both scripts. I believe its because there are security permission issues with the WMI object. It runs fine locally but not remotely.

Some info:
- I am using a domain admin account
- I am running it off a Windows XP SP3 box, attempting to connect to a Windows 2008 Server
- Windows Firewall is disabled.

Some debugging I have done:
- Both script works LOCALLY, but NOT REMOTELY
- ran script from workstation to server, it fails
- ran script from server to server, and still fails
- ran script from workstation to itself, it works
- WBEMTEST fails as well even with domain & enterprise admin credentials
- DCOM and WINMGMT service is on and running on both test systems
- DCOM security permissions are already set for local & remote access for Domain Admins (I basically set allow all for Everyone/Anonymous for testing)
- WINS security permissions are already set for local & remote access for Domain Admins (I basically set allow all for Everyone/Anonymous for testing)
-  Get_WMIObject -computername SERVERNAME -class "win32_process"   == Fails with same access denied error
-  gwmi win32_process -computername "SERVERNAME" -credential "domain\admin" == Fails with same access denied error
- Admins have full access to  Root/CIMV2 under the WMI control of the remote server.

I've attached both Powershell and VBScript code for reference.

VBS error: (on line 22 of first code snippet)
--------------------------------------------------
Number: 0x80070005
Facility: Win32
Description: Access is Denied

Under the Err object it spits out:
--------------
Error: 70
Description: Permission Denied
Source: Microsoft VBscript Runtime Error

Powershell error: (see attached BMP for full error)
---------------------------------------------------
Get-WMIObject: Access is Denied Exception from HResult: 0x80070005 (E_ACCESSDENIED)


Anyone have any other ideas as to what is causing this access denied issue?

VBSCRIPT:
'==========================================================================
' NAME: NIC_WMI_Config.vbs
' AUTHOR: pber, pber@pberblog.com
' DATE  : 6/6/2007
' COMMENT: <comment>
'==========================================================================
'On Error Resume Next
 
set args = WScript.Arguments
If args.Count = 0 Then
	strComputer = InputBox("Please enter a computer name","title", "MYSERVERNAME")
Else
	strComputer = args(0)
end if

WScript.Echo "---START---"



'Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") <--- ERRORS HERE!!!!----

If Err.Number <> 0 Then
	WScript.Echo "Error: " & Err.Number
	WScript.echo "Desc: " & Err.Description
	WScript.Echo "Source: " & Err.Source
End If

'Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True and DHCPEnabled=False")
Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration")

For Each objNicConfig In colNicConfigs

WScript.Echo "---For Loop---"

'	If not objNicConfig.DHCPEnabled then
		WScript.Echo strComputer
		WScript.Echo "MAC:   " & objNicConfig.MACaddress
		strIP = objNicConfig.ipaddress(0)
		WScript.Echo "IP:    " & strIP
		
		If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
		   For i = 0 To UBound(objNicConfig.DNSServerSearchOrder)
		      WScript.Echo "DNS" & i+1 & ":  " & objNicConfig.DNSServerSearchOrder(i)
		   Next
		End If
		
		WScript.Echo "WINS1:  " & objNicConfig.WINSPrimaryServer
		WScript.Echo "WINS2:  " & objNicConfig.WINSSecondaryServer
		
		Set objAssociator = objNicConfig.Associators_
		For Each oNICAssociator In objAssociator
			strDisplayName = GetInterface(oNICAssociator.Path_.DisplayName)
			wscript.echo strDisplayName
		Next 
		strSubnet = GetSubnet(strip)
		WScript.Echo "Subnet: " & strsubnet

			strDNS1  = "psexec \\" & strComputer & " netsh interface ip set dns name=""" & strDisplayName & """ source=static addr=192.168.2.100 register=PRIMARY"
			strDNS2  = "psexec \\" & strComputer & " netsh interface ip add dns name=""" & strDisplayName & """ addr=192.168.1.100 index=1"


		strDump = "cmd /k psexec \\" & strComputer & " netsh interface ip dump"  'Export current IP Settings


		WScript.Echo strDNS1
		WScript.Echo strDNS2
		WScript.Echo strDump
 
		'set wshell = CreateObject("WScript.Shell") 
		'wshell.run strDNS1,0,1 '1,1 will wait for script to complete
		'wshell.run strDNS2,0,1 '1,1 will wait for script to complete

		'wshell.run strDump,1,1 '1,1 will wait for script to complete

		'set wshell = nothing 
 
'	end if
Next

WScript.Echo "---END---"
 
 Function GetInterface(strPath)
 	Set objWMIService = GetObject(strPath)
 	GetInterface = objWMIService.netConnectionID
 End Function
 
 Function GetSubnet(strIP)
 	tmp = Split(strip,".")
 	GetSubnet = tmp(2)
 End Function

Select allOpen in new window

POWERSHELL
==========================================
function Set-DNSWINS { 
$NICs = Get-WmiObject Win32_NetworkAdapterConfiguration -Computer $_ -Filter "IPEnabled=TRUE" 
 
foreach($NIC in $NICs) {echo $_ $NIC.DNSServerSearchOrder} 
} 
 
function Get-FileName { 
$computer = Read-Host "Filename of computer names?" 
return $computer 
} 
 
$f = Get-FileName 
Get-Content $f | foreach {Set-DNSWINS}

Select allOpen in new window

powershell.bmp