can you find a command line tool to do it?
there is some funny namspace invokeverb stuff which i have seen used to do stuff in control panel (the below arent very good examples, i cant find the one i was looking for, the code isnt mine)
Sub Eject(CDROM)
Dim ssfDrives
ssfDrives = 17
CreateObject("Shell.Application")_
.Namespace(ssfDrives).ParseName(CDROM).InvokeVerb("E&ject")
End Sub
Const NETWORK_CONNECTIONS = &H31&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(NETWORK_CONNECTIONS)
Set colItems = objFolder.Items
For Each objItem in colItems
If objItem.Name = "Local Area Connection 2" Then
objItem.Name = "Home Office Connection"
End If
Next
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("c:\temp")
Set objFile = objFolder.ParseName("test.txt")
objFile.InvokeVerb("Print")