Лабораторная работа 5.1 Использование внешних объектных моделей в коде Transact - SQL (хранимые процедуры OLE Automation)

Хранимые процедуры OLE Automation в коде Transact-SQL: самостоятельная работа

В каталоге Labs на вашем компакт-диске находится скрипт netdisk.vbs, в котором при помощи программного объекта Wscript.Network производится подключение и удаление сетевого диска S: для каталога \\London\Labs.

Задание:

Используя исходный скрипт netdisk.vbs, напишите свой скрипт TSQL, который бы:

• назначал сетевой диск S: на вашем компьютере каталогу \\London\Labs;
• проводил на этот сетевой диск полное резервное копирование базы данных Northwind;
• удалял сетевой диск S: с вашего компьютера.

Код скрипта netdisk.vbs выглядит так:

Dim oNetwork
Set oNetwork = CreateObject("WScript.Network")
oNetwork.MapNetworkDrive "S:", "\\London1\Labs"
oNetwork.RemoveNetworkDrive "S:", True

Примечание:

иногда после некорректного выполнения скрипта с использованием объекта Wscript.Network на компьютере может появиться сетевой диск, который обычными способами удалить не получается. В этом случае перезагрузите компьютер.

Ответ к лабораторной работе 5.1.

Итоговый код скрипта Transact-SQL может выглядеть так:

DECLARE @object int
DECLARE @hr int
DECLARE @property varchar(255)
DECLARE @return varchar(255)
DECLARE @src varchar(255), @desc varchar(255)

EXEC @hr = sp_OACreate 'Wscript.Network', @object OUT
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END

EXEC @hr = sp_OAMethod @object, 'MapNetworkDrive', NULL, 'S:', '\\London\Labs'
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END

USE MASTER
BACKUP DATABASE [Northwind] TO DISK = N'S:\nwback1.bak' WITH NOINIT , NOUNLOAD , NAME = N'Northwind backup', NOSKIP , STATS = 10, NOFORMAT

EXEC @hr = sp_OAMethod @object, 'RemoveNetworkDrive', NULL, 'S:', True
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END

Получить учебные материалы по этому курсу