Index: tol/stdlib/system/_geturl.tol
===================================================================
--- tol/stdlib/system/_geturl.tol	(revision cb423227bec41cd097cd3951c655785bad25548b)
+++ tol/stdlib/system/_geturl.tol	(revision df6c30cc29f6ad443719f7a67f4a232a646a7aff)
@@ -76,4 +76,24 @@
 
 //////////////////////////////////////////////////////////////////////////////
+Text GetUrlContents.tcom.iexplore(Text url) 
+//////////////////////////////////////////////////////////////////////////////
+{
+  Set eval = Tcl_Eval("
+    package require tcom
+    set iexplore [::tcom::ref createobject InternetExplorer.Application]
+    $iexplore Navigate2 {"<<url<<"}
+    while {[$iexplore Busy]} {
+      after 100
+    }
+    set html [[[$iexplore Document] body] innerHTML]
+    $iexplore Quit
+    set html
+  ");
+  If(eval[2], eval[1], {
+    Error(eval[1]); ""
+  })
+};
+
+//////////////////////////////////////////////////////////////////////////////
 Text GetUrlContents(Text url)
 //////////////////////////////////////////////////////////////////////////////
@@ -84,4 +104,5 @@
   method=="tcl:curl", GetUrlContents.tcl.curl(url),
   method=="sys:wget", GetUrlContents.sys.wget(url),
+  method=="tcom:iexplore", GetUrlContents.tcom.iexplore(url),
   1==1, {
     WriteLn("[GetUrlContents] Invalid option value at "