C:\TEMP>cscript vnc_install.vbs
Сервер сценариев Windows (Microsoft R) версия 5.7
c Корпорация Майкрософт (Microsoft Corp.), 1996-2001. Все права защищены.

C:\TEMP\vnc_install.vbs(9, 1) ADODB.Connection: Не удается найти указанного
поставщика. Вероятно, он установлен неправильно.
C:\TEMP>ver
Microsoft Windows XP [Версия 5.1.2600]

C:\TEMP>type vnc_install.vbs
Set WshNetwork = CreateObject("WScript.Network")
  strComputer = WshNetwork.ComputerName

'Выгрузка всех имеющихся в AD Windows-серверов
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection