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