DotFix ::: Software protection portal
 *Начало * Ответить * Статистика * Задать вопрос * Поиск * FAQ * *

DotFix Forum / Вопросы программирования и исследования защит / Ошибка несовпадения типов в VBScript
Автор Сообщение
undetect
Участник


Дата: 14 Апр 2006 12:55


Всем доброго времени суток.

При выполнении следующего скрипта вылетает ошибка несовпадения типов (поле Description заполнено русскими сиволами). Подскажите пожалуйста, как можно это исправить?
Const ADS_SCOPE_SUBTREE = 2 
 
Dim objConnection 
Dim objCommand 
Dim objRecordset 
 
Set objConnection = CreateObject("ADODB.Connection") 
Set objCommand    = CreateObject("ADODB.Command") 
objConnection.Provider = "ADsDSOObject" 
objConnection.Open "My Provider" 
 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set objCommand.ActiveConnection = objConnection 
 
objCommand.CommandText = "Select Description from 'LDAP://DC=airmg,DC 
=local' Where objectClass='user' and objectClass='person' and objectC 
l 
ass <> 'computer'" 
Set objRecordSet = objCommand.Execute 
 
objRecordSet.MoveFirst 
Do Until objRecordSet.EOF 
    IF Not IsNull(objRecordSet.Fields("Company").Value) Then 
	WScript.Echo objRecordSet.Fields("Description").Value 
    End If 
    objRecordSet.MoveNext 
Loop


Ваш ответ

Bold Style  Italic Style  Underlined Style  Image Link  Insert URL  Email Link  Код 
... Отменить *Что это?


Перед отправкой "нелатинского" текста проверьте кодировку броузера!
 » Логин  » Пароль