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 ENDIFCheers,