Подключение dll в VB script #307619

Собственно, в этом и вопрос – как в тексте скрипта правильно подключить внешнюю библиотеку? Пишу так: стр ="   |Global Const BASSFALSE As Long = 0  'Use this instead of VB Booleans   |Global Const BASSTRUE As Long = 1   'Use this instead of VB Booleans   |Global Const BASS_SAMPLE_SOFTWARE = 16      ' it's NOT using hardware mixing   |   |Declare Function BASS_Init Lib ""bass.dll"" (ByVal device As Long, ByVal freq As Long, ByVal flags As Long, ByVal win As Long, ByVal clsid As Long) As Long   |Declare Function BASS_SampleLoad Lib ""bass.dll"" (ByVal mem As Long, ByVal f As Any, ByVal offset As Long, ByVal length As Long, ByVal max As Long, ByVal flags As Long) As Long   |Declare Function BASS_SampleGetChannel Lib ""bass.dll"" (ByVal handle As Long, ByVal onlynew As Long) As Long   |Declare Function BASS_ChannelPlay Lib ""bass.dll"" (ByVal handle As Long, ByVal restart As Long) As Long   |                   |Sub Play   |                   |If (BASS_Init(-1, 44100, 0, 0, 0) = 0) Then MsgBox (""Error loading BASS"")   |kick = BASS_SampleLoad(BASSFALSE, ""C:1ENGINE.WAV"", 0, 0, 1, BASS_SAMPLE_SOFTWARE)   |Call BASS_SampleGetChannel(kick, BASSFALSE)   |Call BASS_ChannelPlay(kick, BASSTRUE)   |End Sub";     scrpt= СоздатьОбъект("MSScriptControl.ScriptControl");   scrpt.Language="vbscript";   scrpt.AddCode(Стр);       ProcessID=Число(scrpt.Run("Play"));   Сообщить(ProcessID); Сам скрипт вполне рабочий, но 1С выдает сообщение, что есть «синтаксическая ошибка». Подскажите, плиз, что не так (и реально ли вообще такое провернуть)?

Up. Что, неужели никто таким не занимался? :(

<Сам скрипт вполне рабочий> а где запускал такой скрипт??

не выйдет