Failing to map remote drive.

Have a look at code i m having problem with.

arrComputers = Array("comp1","comp2","comp3","comp4","comp5")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strServer, _
"root\cimv2", _
strUser, _
strPassword, _
"MS_409", _
"ntlmdomain:" + strDomain)
For Each objItem in colItems
Wscript.Echo "-----------------------------------"
Wscript.Echo "Win32_LogicalDisk instance"
Wscript.Echo "-----------------------------------"
Wscript.Echo "Size: " & objItem.Size
Next
Next

Here Comp2, Comp 3 are in domain1. and Comp 1,4 &5 are in domain2.
When i run the script form Domain 2, It gets me data for Comp 1 but i get
error: Access is denied for rest of the list. Actually it should get data for
Comp4 and 5 but its not. Same when i run from Domain 1 it gives same error
where it should get data form Comp 2 & 3.

I tried to Set ColItems = Nothing but thts also not helping. Plz suggest
.