$PC = 'sn999999'     ; No backslashes
$cn = CreateObject("ADODB.Connection") $cmd = CreateObject("ADODB.Command") $rs = CreateObject("ADODB.RecordSet")
$cn.connectionstring = "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
$cn.open			If @error	? 'Unable to connect to Windows Search'	endif
	$cmd.activeconnection = $cn	$rs.cursortype = 3	$rs.locktype = 3	$rs.activecommand = $cmd
	$cmdtxt = "SELECT System.ItemFolderPathDisplay, System.ItemName FROM "+$pc+".SystemIndex WHERE scope='file://"+$pc+"/c' and Contains(System.FileName,'.url')"
	$cmd.commandtext = $cmdtxt
	$rs.open($cmd)		If @error	? @serror	endif
		$rs.MoveFirst
		$count = 0
		While Not $rs.eof
			? $rs.fields.item("System.ItemFolderPathDisplay").value 
			? $rs.fields.item("System.ItemName").value 
			?
			$count =$count +1
			$rs.moveNext
		Loop
	? $count 
	$rs.close
$cn.close