Dim Keeper ' вызов интерфеса к этому моменту WebMoney Keeper должен быть запущен Set Keeper = WScript.CreateObject("WebMoneyRun.Keeper") Dim gid, gname, gprice, gdate, shoppurse, gdayhold, gdayvalid gid = 3 gname = "Утюг" gprice = "500.00" gdate = "1998.11.23 13:33:47" shoppurse = "Z313292867832" gdayhold = 0 gdayvalid = 0 Dim gcodestr gcodestr = "№: " & gid & chr(13) & chr(10) & _ "товар: " & gname & chr(13) & chr(10) & _ "сумма: " & gprice & chr(13) & chr(10) & _ "дата создания: " & gdate & chr(13) & chr(10) & _ "кошелек магазина: " & shoppurse & chr(13) & chr(10) & _ "срок протекции: " & gdayhold & chr(13) & chr(10) & _ "время жизни: " & gdayvalid & chr(13) & chr(10) 'формирование строки на подпись формат строки должен быть именно таким Dim SIGN_ SIGN_ = "" Dim Login_ Login_ = "221563405131" 'WM идентификатор Dim Pwd_ Pwd_ = "123qwe" ' Пароль SIGN_ = Keeper.StringSign(Login_, Pwd_, gcodestr) 'Подпись строки возвращенная строка будет содержать сертификат подписанного счета MsgBox SIGN_ ' Вывести подпись ' end of the sample