APN 2006-09-21 TWAPI 1.0 has some experimental COM client support.
Example:
package require twapi 1.0 ;# Note you need 1.0 or later set ie [twapi::comobj InternetExplorer.Application] ;# Start Internet Explorer $ie Visible 1 ;# Make it visible $ie Navigate http://www.google.com ;# Go to Google after 10000 ;# Wait so you can see it $ie Quit ;# exit IE $ie -destroy ;# Destroy the COM object
For more examples, see
Motivation Why another COM package when we have all the other options listed in COM ? TWAPI's COM support is limited and is not intended to compete with optcl or tcom. It was added to allow TWAPI access to some of the simpler COM based API's in Windows including WMI and ADSI without having to carry around another 300K of tcom only part of which would actually be used.
Some limitations include:
On the other hand, there are a couple of features in TWAPI that tcom and optcl do not have which improve usability.
Here is the direct TWAPI WMI translation of the tcom example from Matthias Hoffmann - Tcl-Code-Snippets - tcom & wmi - Examples
proc readPopUps {} { set res {} set wmi [twapi::_wmi] set wql {select * from Win32_NTLogEvent where LogFile='System' and \ EventType='3' and \ SourceName='Application Popup'} set svcs [$wmi ExecQuery $wql] # Iterate all records $svcs -iterate instance { set propSet [$instance Properties_] # only the property (object) 'Message' is of interest here set msg [$propSet Item Message] set msgVal [$msg Value] lappend res $msgVal $msg -destroy $propSet -destroy } $svcs -destroy $wmi -destroy return $res }
And here is the same example, in slightly more succint form making use of -with and dynamic properties.
proc readPopUps2 {} { set res [list ] set wmi [twapi::_wmi] $wmi -with { {ExecQuery "select * from Win32_NTLogEvent where LogFile='System' and EventType='3' and SourceName='Application Popup'"} } -iterate event { lappend res [$event Message] $event -destroy } $wmi -destroy return $res }
Note there is no need to explicitly retrieve the _Properties collection and index it to access dynamic properties (like Message). They can be directly accessed like static properties, just as in Visual Basic. Secondly, there is no need to create a temporary object (svcs in the first example). The -with allows you to implicitly follow a path through a object hierarchy.