>local loserver, lnCounter, loBackupDevice
>
>loserver=CREATEOBJECT("SQLDMO.SqlServer")
>
>loServer.Connect("MyServer","MyUserName","MyPassword")
>
>   IF loServer.BackupDevices.Count = 0
>       * Create new backup device
>       loBackupDevice = CREATEOBJECT("SQLDMO.BackupDevice")
>       WITH loBackupDevice
>           .Name = "MyNewBackupDevice"
>           .PhysicalLocation = "C:\MyBackups\BackupFile.bak"
>           .Type = 2 && SQLDMODevice_DiskDump
>       ENDWITH
>       loServer.BackupDevices.Add(loBackupDevice)
>   ELSE
>       * loop through collection of existing backup devices
>       FOR lnCounter = 1 TO loServer.BackupDevices.Count
>   	    ? loServer.BackupDevices(lnCounter).PhysicalLocation
>       NEXT lnCounter
>   ENDIF
>