Устраняем ошибку Windows Script Host
Исправляем ошибку Windows Script Host
Сразу стоит сказать о том, что если вы писали свой скрипт и при его запуске получили ошибку, то необходимо искать проблемы в коде, а не в системном компоненте. Например, вот такое диалоговое окно говорит именно об этом:
Такая же ситуация может возникнуть и в том случае, когда в коде имеется ссылка на другой скрипт, путь к которому прописан неверно либо данный файл вовсе отсутствует на компьютере.
Далее мы поговорим о тех моментах, когда при старте Windows или запуске программ, например, Блокнота или Калькулятора, а также других приложений, использующих системные ресурсы, появляется стандартная ошибка Windows Script Host. Иногда подобных окон может появиться сразу несколько. Случается такое после обновления операционной системы, которое может пройти как в штатном режиме, так и со сбоями.
Причины такого поведения ОС следующие:
- Неверно выставленное системное время.
- Сбой в работе службы обновлений.
- Некорректная установка очередного апдейта.
- Нелицензионная сборка «винды».
Вариант 1: Системное время
Многие пользователи думают, что системное время, которое показывается в области уведомлений, существует только для удобства. Это не совсем так. Некоторые программы, обращающиеся к серверам разработчиков или к иным ресурсам, могут работать некорректно или вовсе отказаться функционировать по причине расхождений в дате и времени. Это же касается и Windows с ее серверами обновления. В том случае, если будет расхождение в вашем системном времени и времени сервера, то могут наблюдаться неполадки с апдейтами, поэтому на это стоит обратить внимание в первую очередь.
- Нажимаем на часы в правом нижнем углу экрана и переходим по ссылке, указанной на скриншоте.
Далее идем на вкладку «Время по интернету» и жмем на кнопку изменения параметров. Обратите внимание, что ваша учетная запись должна обладать правами администратора.
В окне настроек устанавливаем галку в указанный на изображении чекбокс, затем в выпадающем списке «Сервер» выбираем time.windows.com и нажимаем «Обновить сейчас».
Если все пройдет успешно, то появится соответствующая надпись. В случае ошибки с превышением времени ожидания просто нажимаем кнопку обновления еще раз.
Теперь ваше системное время будет регулярно синхронизироваться с сервером времени Майкрософт и расхождения не будет.
Вариант 2: Служба обновлений
Windows – это очень сложная система, с множеством одновременно протекающих процессов, и некоторые из них могут повлиять на работу службы, отвечающей за обновление. Высокое потребление ресурсов, различные сбои и занятость компонентов, помогающих апдейту, «заставляют» службу совершать бесконечные попытки выполнить свою работу. Сам сервис также может сбоить. Выход здесь один: отключить его, а затем перезагрузить компьютер.
- Вызываем строку «Выполнить» сочетанием клавиш Win+R и в поле с названием «Открыть» пишем команду, которая позволит получить доступ к соответствующей оснастке.
В списке находим «Центр обновления», кликаем ПКМ и выбираем пункт «Свойства».
В открывшемся окне жмем кнопку «Остановить», а затем ОК.
После перезагрузки служба должна запуститься автоматически. Стоит проверить, так ли это и, если она все еще остановлена, включить ее тем же способом.
Если после выполненных действий ошибки продолжают появляться, то необходимо поработать с уже установленными обновлениями.
Вариант 3: Некорректно установленные обновления
Данный вариант подразумевает удаление тех обновлений, после установки которых начались сбои в Windows Script Host. Сделать это можно как вручную, так и с помощью утилиты восстановления системы. В обоих случаях необходимо вспомнить, когда «посыпались» ошибки, то есть после какой даты.
- Идем в «Панель управления» и находим апплет с названием «Программы и компоненты».
Далее переходим по ссылке, отвечающей за просмотр обновлений.
Сортируем список по дате установки, кликнув по шапке последней колонки с надписью «Установлено».
Выбираем нужное обновление, кликаем ПКМ и выбираем «Удалить». Также поступаем с остальными позициями, помня про дату.
- Для перехода к данной утилите кликаем правой кнопкой мыши по значку компьютера на рабочем столе и выбираем пункт «Свойства».
Далее переходим к «Защите системы».
Нажимаем кнопку «Восстановление».
В открывшемся окне утилиты жмем «Далее».
Ставим галку, отвечающую за показ дополнительных точек восстановления. Необходимые нам поинты будут называться «Автоматически созданная точка», тип – «Система». Из них необходимо выбрать ту, которая соответствует дате последнего обновления (или того, после которого начались сбои).
Жмем «Далее», ждем, пока система предложит перезагрузиться и выполнит действия по «откату» к предыдущему состоянию.
Обратите внимание, что в этом случае могут быть удалены и те программы и драйвера, которые были установлены вами после этой даты. Узнать, произойдет ли это, можно нажав кнопку «Поиск затрагиваемых программ».
Читайте также: Как восстановить систему Windows XP, Windows 8, Windows 10
Вариант 4: Нелицензионная Windows
Пиратские сборки «винды» хороши лишь тем, что они совершенно бесплатны. В остальном же такие дистрибутивы могут принести массу проблем, в частности, некорректную работу необходимых компонентов. В этом случае рекомендации, приведенные выше, могут не сработать, так как файлы в скачанном образе уже были сбойными. Здесь можно только посоветовать поискать другой дистрибутив, но лучше воспользоваться лицензионной копией Windows.
Заключение
Решения проблемы с Windows Script Host довольно просты, и с ними справится даже начинающий пользователь. Причина здесь ровно одна: некорректная работа инструмента обновления системы. В случае с пиратскими дистрибутивами можно дать следующий совет: пользуйтесь только лицензионными продуктами. И да, правильно пишите ваши скрипты.
Источник
Dadaviz
Ошибка Windows Script Host — как исправить
Системная ошибка «Windows Script Host» очень знакома пользователям Windows 7/8/10. Ее возникновение чаще всего сопровождается разными официальными обновлениями от компании Microsoft. Еще недавно все работало как надо, а тут вдруг при запуске приложений может происходить сбой или при загрузке Windows выскакивает черный экран и уведомлением об ошибке — «Не удается найти файл сценария» (run.vbs, launchall.js). Иногда с такой проблемой сталкиваются при установке Windows, что характерно она проявляется на официальных версиях от Microsoft тоже.
Ошибка 80070002 — Не удается найти указанный файл
Что это за ошибка?
К счастью для пользователей, данный конфликт сценариев вполне объясним, и связывается он с неправильными интегрированными установочными файлами. По разным причинам весь софт не смог полностью выгрузится в операционную систему. Тут виной являются обновления и установочный диск Windows, пиратская сборка. К дополнительным источникам проблемы нужно отнести: антивирусы, любые сторонние утилиты по оптимизации системы, пользовательские действия на системном диске и другие.
По не официальным данным Windows Script Host может создавать до нескольких сотен подобных ошибок, самые распространенные из которых: 80070002, 80070003 или 80070483. Решения у них бывают практически одинаковые, во многих случаях понадобится не более 5 минут для их реализации и исправления конфликтной ситуации.
Исправляем Windows Script Host (Код 80070002)
Далее мы приведем несколько методов, которые избавят вас от данного сбоя. Эти методы проверенны и одобрены многими юзерами, а также предлагаются как оптимальные на официальном форуме поддержки Microsoft.
Остановка служб обновления
Иногда процесс обновления ОС происходит не совсем корректно. Это бывает связанно с загруженностью системы, сбоях интернета и т.д. Решениями становятся не сложные манипуляции, которые сможет сделать абсолютно любой пользователь. Выполним остановку центра обновлений.
- Перейдите в меню «Пункт» и посетите «Панель управления».
- Найдите подменю «Администрирование».
- Увидите список операций, кликните по «Службы».
- В новом окне отсортируйте все службы ОС по имени, это поможет в поиске «Центр обновления Windows».
- Кликните правой кнопкой мышки. Выберите «Остановить».
Остановка Центра обновлений Windows
Это способ помогает прервать постоянные попытки компьютера получить новые обновления, которые могут вызывать ошибку 80070002.
Настройте время
Ошибка «Windows Script Host сценария» проявляется вследствие неправильно установленной даты на вашем ПК. Расхождения с главным сервером Microsoft во времени очень часто создает конфликты. Устанавливаемый софт строго соблюдает авторские права и поддержку разного рода DirectX , а они, как известно, не вечные.
- Перейдите в правом углу в меню часов, для этого нажмите на них.
- В самом низу будет одно единственное действие «Изменение настроек даты и времени».
Проверяем правильность настроек времени на ПК
Самый простой способ решения, но не менее действенный от этого.
Удаление последних обновлений
Это вариант поможет в ручную решить данную ситуацию. Нужно будет посетить центр обновления и удалить все внесенные изменения за последнее время.
- Через «Пуск» найдите уже знакомую «Панель управления».
- Щелкните по службе «Программы и компоненты».
- В левом меню из трех вариантов выберите «Просмотр установленных обновлений».
- Отсортируйте все по дате добавления софта. Это можно сделать при помощи «Установлено».
Удалите обновления за последние пять дней
А вот наглядная и подробная видео инструкция по исправлению подобной ошибки.
А вот хороший обзор о проблеме несколько иного сбоя службы Windows Script Host: «Не удается найти файл сценария run.vbs», который вызывает черный экран при загрузке и соответствующее уведомление.
Заключение
Данные советы помогут вам исправить системную ошибку Windows Script Host самым простым способом. Многие советуют залезть в реестр и менять значения и настройку некоторых служб — в большинстве случаев это не работает. Если манипуляции с обновлениями системы вам не помогли, тогда просто переустановите систему, тем более если у вас пиратская сборка Виндовс.
Источник
kodblack
12.02.15 — 09:43
Добрый день!
Подскажите — как быть. Мне нужно из таблицы excel в автоматическом режиме производить выгрузку данных в БД SQL.
На VBS — но выдает ошибку.
Код Visual Basic
Dim cn As ADODB.Connection
Dim strSQL As String
Dim lngRecsAff As Long
Set cn = New ADODB.Connection
cn.Open «Provider=SQLOLEDB;Data Source=<compsqlexpress>;» & _
«Initial Catalog=<test>;User ID=<sa>;Password=<pass>»
‘Import by using OPENDATASOURCE.
strSQL = «SELECT * INTO XLImport6 FROM » & _
«OPENDATASOURCE(‘Microsoft.Jet.OLEDB.4.0’, » & _
«‘Data Source=D:111.xls;» & _
«Extended Properties=Excel 8.0′)…[Customers$]»
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print «Records affected: » & lngRecsAff
‘Import by using OPENROWSET and object name.
strSQL = «SELECT * INTO XLImport7 FROM » & _
«OPENROWSET(‘Microsoft.Jet.OLEDB.4.0’, » & _
«‘Excel 8.0;Database=D:111.xls’, » & _
«[Customers$])»
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print «Records affected: » & lngRecsAff
‘Import by using OPENROWSET and SELECT query.
strSQL = «SELECT * INTO XLImport8 FROM » & _
«OPENROWSET(‘Microsoft.Jet.OLEDB.4.0’, » & _
«‘Excel 8.0;Database=D:111.xls’, » & _
«‘SELECT * FROM [Customers$]’)»
Debug.Print strSQL
cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
Debug.Print «Records affected: » & lngRecsAff
cn.Close
Set cn = Nothing
Таблица excel типа
NO ASD Latitude Longitude DF FG Kod_OK Pyncty_
1 123 64.527386 40.561819 1545,55 55455,56 75.22 456546,56
Andrewww123
1 — 12.02.15 — 09:46
(0) Видимо, сейчас намекнут на текст ошибки.
kodblack
2 — 12.02.15 — 09:50
(1) хотелось бы
rsv
3 — 12.02.15 — 09:50
(0) Мутно как то все . Настройте для начала в скуле линкованный сервер на источник данных Exel. Через него будете читать через OpenQuery например. Постестите все в MS Manag Studio, а опосля уже ADO.
bolobol
4 — 12.02.15 — 09:56
(2) что такое? Ошибка есть, а текста ошибки нет, что ли?
Andrewww123
5 — 12.02.15 — 10:02
(2) Раз хотелось, намекаю Напиши текст ошибки.
dk
6 — 12.02.15 — 10:04
при коннекте к Excel нужно указывать что названия колонок берется из 1-й строки
попробуй HDR=Yes указать
https://www.connectionstrings.com/microsoft-jet-ole-db-4-0/standard-excel/
kodblack
7 — 12.02.15 — 10:10
(5) Сценарий d:123.vbs
Строка 1 Символ 12
Ошибка Предполагается наличие окончания инструкции
Код: 800А0401
rsv
8 — 12.02.15 — 10:26
Тренеруетесь ?
kodblack
9 — 12.02.15 — 10:33
(8) Вы о чем?
Может кто нибудь предложить нормальный способ импорта из excel в sql. Разве не у кого нет наработак. Буду очень признателен.
rsv
10 — 12.02.15 — 10:36
(9) Правой кнопкой мыши на БД в Скуле . Все задачи . Импорт Данных . Откроется мастер импорта данных .
kodblack
11 — 12.02.15 — 10:39
(10) — это не ответ. мне нужен автоматический режим.
т.е Excel — будет обновляться время от времени, и надо что бы автоматически данные обновлялись в БД sql.
Andrewww123
12 — 12.02.15 — 10:39
Как я понимаю, это синтаксис не vbs, но могу ошибаться.
rsv
13 — 12.02.15 — 10:41
(11) MS Скуль . Объекты сервера . Связанные серверы. Правой кнопокой мыши . Создать свзанный сервер. т.е. (3)
kodblack
14 — 12.02.15 — 10:47
(13) — а какой драйвер выбирать??? что то excel не нашел.
rsv
15 — 12.02.15 — 10:49
(14) Что нить с Jet там есть ?
kodblack
16 — 12.02.15 — 10:50
(15) нет
rsv
17 — 12.02.15 — 10:57
(16) попробуйте вот так программно создать по аналогии :
sp_addlinkedserver N’MyxlsServer’, N’Jet 4.0′,
N’Microsoft.Jet.OLEDB.4.0′,
N’10.0.0.252VShare_UserExcelTemplatesJourAssembly.xls’, NULL, N’Excel 5.0′
kodblack
18 — 12.02.15 — 11:09
(17) создан link server
но драйвер OLE DB Provider for SQL server
и путь до файла с xls — не прописан
N1kMZ
19 — 12.02.15 — 11:10
На стороне MS SQL проще делать. Через SSIS.
kodblack
20 — 12.02.15 — 11:12
(19) SSIS пакет не нашел
Jaap Vduul
21 — 12.02.15 — 11:36
Вот тут есть подробная инструкция с картинками для SSIS 2012:
https://www.simple-talk.com/sql/ssis/moving-data-from-excel-to-sql-server—10-steps-to-follow/
Это если инициировать загрузку со стороны сервера.
Можно конечно делать это, запуская скрипт из шедулера windows.
Но ваш код в таком случае не годится, ибо он написан, не на VBS, а на VBA и движок vbscript его не понимает (7).
Вообще в этом случае я бы порекомендовал использовать PowerShell — в нём можно заюзать класс Data.SqlClient.SqlBulkCopy для быстрой заливки больших объёмов данных.
Пример:
http://www.sqlserver-dba.com/2013/01/sql-server-export-excel-data-to-sql-server-with-powershell.html
kodblack
22 — 12.02.15 — 11:59
(21) спасибо — буду делать через ssis
kodblack
23 — 12.02.15 — 12:13
(21) т.е что бы добавить SSIS нужен VS?
N1kMZ
24 — 12.02.15 — 12:48
(23) Со стороны сервера лучше запускать, JOBом
kodblack
25 — 12.02.15 — 12:49
(24) а можно ссылку?
kodblack
26 — 12.02.15 — 12:50
нашел SSDTBI-VS2012 — написано что есть ssis
N1kMZ
27 — 12.02.15 — 12:50
(25) А на что ссылку? Создаётся job на SQL, в нём в качестве шага созданный ранее SSIS пакет. Ну а так документацию читать надо, в пост не влезет всё
Господин ПЖ
28 — 12.02.15 — 12:50
>т.е что бы добавить SSIS нужен VS
нужен нормальный скуль… или SSIS сейчас везде доступен по лицензии?
N1kMZ
29 — 12.02.15 — 12:55
rsv
30 — 12.02.15 — 13:06
Так что с линком то не копали ? Там буков и телодвижений меньше .
rsv
31 — 12.02.15 — 13:07
+(30) и скорее скуль в (0) 64 разряда и не видит 32 разрядный Jet
N1kMZ
32 — 12.02.15 — 14:05
(31) SSIS пакет можно запускать в 32-разрядной среде принудительно (в свойствах пакета).
kodblack
33 — 13.02.15 — 07:46
(30) с линк сервером — не до понял что делать после добавления модуля.
kodblack
34 — 13.02.15 — 10:39
Добавил путем запроса.
А вот дальше не понял что делать.
EXEC sp_addlinkedserver
server = ‘ExcelServer1’,
@srvproduct = ‘Excel’,
@provider = ‘Microsoft.Jet.OLEDB.4.0’,
@datasrc = ‘d:111.xls’,
@provstr = ‘Excel 8.0;IMEX=1;HDR=YES;’
kodblack
35 — 13.02.15 — 10:40
И провайдер — выставился другой — OLE DB
kodblack
36 — 13.02.15 — 11:08
почему в связи сервера нет для выбора Microsoft.Jet.OLEDB.4.0
я установил AccessDatabaseEngine_x64
Jaap Vduul
37 — 13.02.15 — 11:24
kodblack
38 — 13.02.15 — 11:40
(37) Связь сделал. Но теперь сори за туп…ой вопрос — а как вогнать данные с таблицы в БД?
Jaap Vduul
39 — 13.02.15 — 11:44
kodblack
40 — 13.02.15 — 11:49
(39) — т.е что по ACE.OLEDB или по SSIS — путь один?
Jaap Vduul
41 — 13.02.15 — 11:54
(40)
Вопрос звучит как «т.е. дизель и мерседес с одинаковой скоростью едут?».
kodblack
42 — 13.02.15 — 12:22
(41) тогда вопрос при настройке связи SQL Statement
простой запрос написал но выдает ошибку
IF EXISTS (SELECT 1 FROM information_schema.tables where table_name like ‘1111’)
DROP TABLE 1111
— create a table to hold purchase ledger items
CREATE TABLE 1111(
PRIMARY KEY IDENTITY(1,1),
Naimenovanie nchar(10),
Latitude float,
Longitude float,
Factiheskyi nchar(10),
inn nchar(10),
Kod_OKVED nchar(10),
Pyncty nchar(10)
)
[Задача «Выполнение SQL»] Ошибка: Сбой выполнения запроса «IF EXISTS (SELECT 1 FROM information_schema.tables…» со следующей ошибкой: «Неправильный синтаксис около конструкции «1111».». Возможные причины сбоя: проблемы с этим запросом, свойство «ResultSet» установлено неправильно, параметры установлены неправильно или соединение было установлено неправильно.
Jaap Vduul
43 — 13.02.15 — 12:38
(42)
Не могут идентификаторы объектов в MSSQL начинаться с цифровых символов.
https://msdn.microsoft.com/en-us/library/ms175874.aspx
kodblack
44 — 13.02.15 — 13:09
(43) IF EXISTS (SELECT 1 FROM information_schema.tables where table_name like ‘qwerty’)
DROP TABLE qwerty
— create a table to hold purchase ledger items
CREATE TABLE qwerty(
PRIMARY KEY IDENTITY(1,1),
Naimenovanie nchar(10),
Latitude float,
Longitude float,
Factiheskyi nchar(10),
inn nchar(10),
Kod_OKVED nchar(10),
Pyncty nchar(10)
)
[Задача «Выполнение SQL»] Ошибка: Сбой выполнения запроса «IF EXISTS (SELECT 1 FROM information_schema.tables…» со следующей ошибкой: «Неправильный синтаксис около ключевого слова «IDENTITY».». Возможные причины сбоя: проблемы с этим запросом, свойство «ResultSet» установлено неправильно, параметры установлены неправильно или соединение было установлено неправильно.
kodblack
45 — 13.02.15 — 13:11
(44) удалил PRIMARY KEY IDENTITY(1,1), и все заработало
Jaap Vduul
46 — 13.02.15 — 13:15
(44)
Надо было не удалять, а указать наименование первичного ключа, типа:
Id PRIMARY KEY IDENTITY(1,1)
Хотя, если первичный ключ не нужен, то и так сойдёт.
kodblack
47 — 13.02.15 — 16:44
(46) он должен быть указан в таблице или sql сама задаст этой строкой? если сама то конечно надо.
- Remove From My Forums
-
Question
-
User-1869791243 posted
Hi,
I’m new to asp and i have to work on existing asp application. While calling the asp file using ajax i’m getting the error «
Microsoft VBScript compilation error ‘800a0401’
Expected end of statement»
/login/handle_public.asp, line 1
asp_handle_public();
The above file contains only one line of code which is <% asp_handle_public(); %>
Please help to solve this issue, can you please tell me the reason why it is showing this error? In my project all the asp files are with one line of code as mentioned above.
I want to know, these functions are running on the server side or client side?
Please help me to resolve this issue ASAP.
Thanks for any help
Regards,
Ram.
Answers
-
User-1122936508 posted
Type mismatch: ‘asp_handle_public’
/login/handle_public.asp, line 1
Asp file contains just one line of code as below
<% asp_handle_public() %>
asp_handle_public() is a function or subroutine. You need to find out where that function/subroutine is defined and look at the code in it.
If it’s a subroutine, you need to omit the () or use the Call keyword:
<% Call asp_handle_public() %>
If it’s a function, it will return something, and you need to assign that to an object or variable.
-
Marked as answer by
Tuesday, September 28, 2021 12:00 AM
-
Marked as answer by
|
0 / 0 / 0 Регистрация: 29.08.2010 Сообщений: 89 |
|
|
1 |
|
|
20.04.2011, 13:03. Показов 8602. Ответов 5
Не могу понять в чем трабла. Пишу следующий код и получаю сабжевую ошибку: Код <% dim dddd AS date dddd='01.02.2003' respose.write dddd %> IIS 6.0, Windows 2003 Enterprise
0 |
|
85 / 61 / 69 Регистрация: 15.03.2007 Сообщений: 6,907 |
|
|
20.04.2011, 13:09 |
2 |
|
VBScript не поддерживает типы переменных. Убери AS date
0 |
|
0 / 0 / 0 Регистрация: 29.08.2010 Сообщений: 89 |
|
|
20.04.2011, 13:35 [ТС] |
3 |
|
хм…. чето я наверное ошибся…
0 |
|
85 / 61 / 69 Регистрация: 15.03.2007 Сообщений: 6,907 |
|
|
20.04.2011, 13:51 |
4 |
|
Ручками
0 |
|
0 / 0 / 0 Регистрация: 29.08.2010 Сообщений: 89 |
|
|
20.04.2011, 22:09 [ТС] |
5 |
|
‘Спасибо’, помог! Я прям сам не знал, что ручками — думал ножками, ты мне прям глаза открыл. Решить эту траблу с отбором по дате смог тока выделив дату след. образом: Код tmm1='#'&Month(tm1)&'/'&Day(tm1)&'/'&Year(tm1)&'#' Можно ли как нить проще это организвать ?
0 |
|
85 / 61 / 69 Регистрация: 15.03.2007 Сообщений: 6,907 |
|
|
21.04.2011, 17:27 |
6 |
|
Примерно такой код я и имел в виду. Упрощать далбше некуда, разве что вынести этот код в отдельную функцию. Хотя если у тебя MSSQL то можно перейти на хранимые процедуры и передавать дату параметром. Тогда никаких преобразований не потребуется.
0 |
I am getting error 800A0401.
Dim message.Sapi
message=InputBox("enter the text to b
spoken!","#speakup!")
set Sapi = Create Object("SAPI.Spvoice")
Sapi.speak message
I use this code to speak some text for me.
asked Jan 30, 2016 at 14:18
Dim message, sapi
message=InputBox("enter the text to be spoken!","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Try To Use this and save it in .vbs file
answered Jan 30, 2016 at 14:23
LakshyaLakshya
5061 gold badge4 silver badges20 bronze badges
Ошибка 800a0401 переводится как «Ожидаемый конец оператора». Вы получаете эту ошибку, потому что ваш код VB.net, но вы пытаетесь запустить его в интерпретаторе VBScript.
Запрос информации о диске с удаленных компьютеров через VBScript можно выполнить следующим образом:
computer = "192.168.238.77"
Set wmi = GetObject("winmgmts://" & computer & "/root/cimv2")
qry = "SELECT * FROM Win32_LogicalDisk WHERE DriveType=3"
For Each disk In wmi.ExecQuery(qry)
WScript.Echo disk.Name & vbTab & disk.Size & vbTab & disk.FreeSpace
Next
Чтобы это работало, учетная запись, на которой запущен скрипт, должна иметь права локального администратора на удаленном хосте. В противном случае вам необходимо предоставить учетные данные для учетной записи, которая обладает необходимыми привилегиями, что делает код немного более сложным (см. Здесь для получения дополнительной информации):
computer = "192.168.238.77"
username = "DOMAINuser"
password = "pass"
Set locator = CreateObject("WbemScripting.SWbemLocator")
Set wmi = locator.ConnectServer(computer, "rootcimv2", username, password)
wmi.Security_.ImpersonationLevel = 3
qry = "SELECT * FROM Win32_LogicalDisk WHERE DriveType=3"
For Each disk In wmi.ExecQuery(qry)
WScript.Echo disk.Name & vbTab & disk.Size & vbTab & disk.FreeSpace
Next