Try this:
Code:
Break ON

$=SetOption("WrapAtEOL","ON")

 

Global $iRecursiveDepth

Global $oShell

 

$oShell=createobject("shell.application") 

 

drivescan("\\CLIENTPC\c$") 

"Done." ?

 

Function drivescan($sPath) 

	Dim $oItem

 

	For Each $oItem in $oShell.namespace($sPath).items 

		If $oItem.isfolder 

			$iRecursiveDepth=$iRecursiveDepth+1

			"New recursion <"+$iRecursiveDepth+"> "+$oItem.path ?

			drivescan($oItem.path) 

			$iRecursiveDepth=$iRecursiveDepth-1

		EndIf 

	Next 

	Exit 0

EndFunction