Help needed with a script to copy photos from an iPhone / camera that does not mount with a drive letter

Question

I would like to copy all photos from an iPhone to a computer. The iPhone does not mount with a drive letter.

Can you have a look at this script, I only have a basic understanding of VB and cannot get it to work.

See Urek's post here: http://social.technet.microsoft.com/Forums/en-US/ITCG/thread/67ee3a21-23a6-4f79-8381-50a7580ebf0a