RegisterAsDropTarget Property Example
Uncomment the 3rd line from end and see the difference.
strLink= "http://www.google.com"
Set objIExplorer = CreateObject("internetexplorer.application")
objIExplorer.visible = True
objIExplorer.navigate strLink
Do While objIExplorer.Busy
WScript.Sleep 1000
Loop
'objIExplorer.RegisterAsDropTarget = False
a=objIExplorer.RegisterAsDropTarget
msgbox a
See all Methods & Properties of InternetExplorer Object here.