[Iska]

xsxPeguckAxsx, что мешало просто развернуть через групповую политику Platform SDK Redistributable: CAPICOM?

Два объекта FSO:

Код:

Dim fso1: Set fso1 = CreateObject("Scripting.FileSystemObject")
Dim fso2: Set fso2 = CreateObject("Scripting.FileSystemObject")

излишне.

Проверять регистрацию лучше банальной попыткой создания требуемого объекта и обработкой ошибки, в случае неудачи.

[xsxPeguckAxsx]

Спасибо за советы.

что мешало просто развернуть через групповую политику Platform SDK Redistributable: CAPICOM? »

А вот даже не знаю что на это ответить))) Мы не ищем легких путей))
Ну а если серьезно, я про него совсем забыл...

[sov44]

Подскажите, как проверить, зарегистрировалась ли библиотека х32 *.dll в windows 7x64 или нет?
После запуска команды выходит сообщение, что регистрация dll успешная, однако ни в regdllview ни в regdllview-x64 библиотеку не вижу.

Код:

%windir%\SysWOW64\regsvr32.exe "путь\name.dll"

п.с. не в той теме запостил.

[Iska]

Подскажите, как проверить, зарегистрировалась ли библиотека х32 *.dll в windows 7x64 или нет? »

Попробовать создать объект из-под клиента Automation той же разрядности, что и библиотека, обрабатывая возможную ошибку создания.

[sov44]

Попробовать создать объект из-под клиента Automation той же разрядности, что и библиотека »

Немного не понятно.
Вроде сделал и запостил результат http://forum.oszone.net/post-2418807-69.html

[Iska]

Немного не понятно. »

На примере последнего кода из vbscript: вычисление хэша MD5 строки — Серый форум:

Код:

Option Explicit

Const CAPICOM_HASH_ALGORITHM_MD5 =       3

Dim strText
Dim objHashedData


strText = "Мама мыла раму."

On Error Resume Next

Set objHashedData = WScript.CreateObject("CAPICOM.HashedData")

If Err.Number <> 0 Then
	Err.Clear
	On Error Goto 0
	
	WScript.Echo "Can't create object [CAPICOM.HashedData]."
	WScript.Quit 1
End If

On Error Goto 0

With objHashedData
    .Algorithm = CAPICOM_HASH_ALGORITHM_MD5
    .Hash UStr2BStr(strText)
    
    WScript.Echo "String:   [" & strText & "]"
    WScript.Echo "MD5 Hash: [" & .Value & "]"
End With

Set objHashedData = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
' Based on «md5test.vbs.txt» (http://www.daleanderson.ca/code/wsh/md5test%2Evbs.txt)
'
' Unicode string to Byte string conversion
'=============================================================================
Function UStr2BStr(strText)
    Dim i
    Dim strResult
    
    
    strResult = ""
    
    For i = 1 To Len(strText)
        strResult = strResult & ChrB(Asc(Mid(strText, i, 1)))
    Next
    
    UStr2BStr = strResult
End Function 
'=============================================================================

Можете сравнить с исходным, чтобы увидеть отличия.

[brunomann]

Здравствуйте, уважаемые участники форума ( http://forum.oszone.net/ ) Очень прошу, если у кого есть - кто-нибудь, пожалуйста, выложите на Вашем сервере (или где-нибудь на свободном файлообменнике) следующие очень старые SDK от Microsoft (и дайте ссылки на них), в Итернете ИХ (#1, #2, #3, #4, #5, #6, #7, #8), и #9) НИГДЕ НЕВОЗМОЖНО НАЙТИ(!!!) (все ссылки или битые-мертвые или ложные
НУЖНЫ ИМЕННО ВСЕ ЭТИ SDK:

----------------------------------------
#1) Microsoft Win32 Software Development Kit 4.0 (v4.0)
----------------------------------------
#2) Microsoft Platform SDK April 1999 (1999-04) (Last Platform SDK to officially install on Windows 95)
----------------------------------------
#3) Microsoft Platform SDK September 1999 (1999-09) (Last Platform SDK to fully support Visual C++ 5.0 (Visual C++ 5.0 announced Feb. 11, 1997, was available on March 19, 1997))
----------------------------------------
#4) Microsoft Platform SDK February 2001 (2001-02)
(The Microsoft Platform SDK, February 2001 Edition, was the last to ship redistributable components as an integral part of the SDK.)
----------------------------------------
#5) Microsoft Platform SDK June 2001 (2001-06)
Last Platform SDK to officially develop for Windows 95. (Does not officially install on Windows 95)
----------------------------------------
#6) Microsoft Platform SDK August 2001 5.1.2601.0 (2001-08) Last Platform SDK to unofficially develop for Windows 95. (Does not officially install on Windows 95)
----------------------------------------
#7) Microsoft Platform SDK November 2001 5.2.3590.2 (2001-11)
----------------------------------------
#8) Microsoft Platform SDK May 2002 5.2.3639.1 (2002-05)
----------------------------------------
#9) Microsoft Platform SDK July 2002 5.2.3663.0 (2002-07)
----------------------------------------

жду с терпением и заранее БОЛЬШОЕ СПАСИБО!
С уважением Bruno Mann.
P.S.
все ссылки в Internet или битые-мертвые или ложные
извините, если не в ту тему написал, подскажите если есть тема по очень старым SDK...