Sub Main
	' プロバイダのコントロール取得
	Set oCtrl = cao.AddController("RC1", "CaoProv.Dummy", "", "")

	' コマンドの登録
	Set oCmd = oCtrl.AddCommand("walk",1)

	' コマンド名の表示
	dbg.Output oCmd.Name

	' コマンドの実行
	oCmd.Execute(0)

	' 結果の表示
	dbg.Output dat.BstrFromVariant(oCmd.Result)

End Sub