' create a simple script command file

dim fso, f, filename

filename=installationpath(siUserPath)&"\Data\Scripts\"&"helloworld.vbs"

set fso = CreateObject("Scripting.FileSystemObject")

set f = fso.CreateTextFile(filename, True)

f.writeline "logmessage "&chr(34)&"Hello World" & chr(34)

f.close

'create script command

strID = CreateScriptCommand( "Hello World" ,_

						 "HelloWorld" ,_

						 filename ,_

						 "",_

						 "Example of a simple command" )

' Use the strID with the CreateToolbarButton command

' print information about command	

PrintCommand "Hello World"

' execute new command

HelloWorld

' remove the command

RemoveScriptCommand "Hello World"

' check that the command has been removed

PrintCommand "Hello World"

sub PrintCommand(name)

	set cmd = Application.Commands(name)

	if (typename(cmd) <> "Nothing") then

		logmessage cmd.name & " command"  & vbCR & vbLF & _

		"  category: "& cmd.category  & vbCR & vbLF & _  

		"  description: "& cmd.description  & vbCR & vbLF & _

		"  tooltip: "& cmd.tooltip  & vbCR & vbLF & _

		"  scriptingname: "& cmd.scriptingname  & vbCR & vbLF & _

		"  handler: " & cmd.handler	 & vbCR & vbLF & _ 

		"  filename: " & cmd.filename  & vbCR & vbLF & _

		"  language: " & cmd.language  & vbCR & vbLF & _

		"  builtin: " & cmd.builtin  & vbCR & vbLF & _

		"  returnvalue: " & cmd.returnvalue  & vbCR & vbLF 

		strArgs = "Arguments:" & vbCR & vbLF

		index=0

		for each arg in cmd.arguments

			strArgs = strArgs & vbTab & "Arg" & index & _

				" name:" & arg.name &_

				", flags:"& arg.flags & _

				", value:"& arg.value& vbCR & vbLF 

			index=index+1

		next

		logmessage strArgs

	else

		logmessage name & "  command is not installed"

	end if

end sub

sub PrintArgument( arg )

	logmessage "     " & arg.name &":"& arg.flags 

end sub

'INFO : "Hello World"

'INFO : "Hello World command

'  category: Custom

'  description: Example of a simple command

'  tooltip: 

'  scriptingname: HelloWorld

'  handler: 

'  filename: c:\users\username\softimage\xsi_3.0\data\scripts\helloworld.vbs

'  language: VBScript

'  builtin: False

'  returnvalue: True

'"

'INFO : "Arguments:

'	Arg0 name:_ScriptEngine, flags:0, value:VBScript

'	Arg1 name:_ScriptName, flags:0, value:c:\users\username\softimage\xsi_3.0\data\scripts\helloworld.vbs

'	Arg2 name:_ScriptProcedure, flags:0, value:

'	Arg3 name:_ScriptPathType, flags:0, value:0

'	Arg4 name:_ScriptResult, flags:-1, value:

'"

'INFO : "Hello World"

'INFO : "Hello World  command is not installed"