The program creates the com.sun.star.Servicemanager on a remote machine:

Set objServiceManager = CreateObject("com.sun.star.ServiceManager", "\\jl-1036")

creates a document and writes in it.