Backup SQL SERVER

Local loserver, lnCounter, loBackupDevice

loserver=Createobject("SQLDMO.SqlServer")
loserver.Connect("MiServidor","MiUserName","MiPassword")

If loserver.BackupDevices.Count = 0
loBackupDevice = Createobject("SQLDMO.BackupDevice")
With loBackupDevice
.Name = "MiNuevoBackup"
.PhysicalLocation = "C:\MisBackups\BackupFile.bak"
.Type = 2 && SQLDMODevice_DiskDump

Endwith

loserver.BackupDevices.Add(loBackupDevice)

Else

For lnCounter = 1 To loserver.BackupDevices.Count

? loserver.BackupDevices(lnCounter).PhysicalLocation

Next lnCounter

Endif