FoxPro/Visual FoxPro - Respaldar BD de sqlserver

Hola, alguien sabe como respaldar BD de sql server desde fox?
encontre este codigo que segun lo hace, pero no funciona:

Local loserver, lnCounter, loBackupDevice
loserver=Createobject("SQLDMO.SqlServer")
loserver.Connect("serverSQL","SA","Jordan23")

If loserver.BackupDevices.Count = 0
loBackupDevice = Createobject("SQLDMO.BackupDevice")
With loBackupDevice
.Name = "HOTEL"
.PhysicalLocation = "C:ERNESTO.TXT"
.Type = 2 && SQLDMODevice_DiskDump
Endwith
loserver.BackupDevices.Add(loBackupDevice)
Else
For lnCounter = 1 To loserver.BackupDevices.Count
? loserver.BackupDevices(lnCounter).PhysicalLocation
Next lnCounter
Endif

alguien tiene otra manera de hacer y que funcione?

Ops me ekivoque, en el archivo a respaldar, debe de ser
.PhysicalLocation = "C:ERNESTO.bak"
pero aun asi no funciona, alguien sabe otra manera?