Windows Scripting Host trouble...

Mr Dan · Отправлено: **09:25, 07-11-2003** | #11

DAnG

Интересно, а в чем заключается громоздкость WSH ? Тем более ,он поддерживает Perl. Просто себе хост и все.....работает довольно быстро.

Guest · Отправлено: **12:41, 19-11-2003** | #12

Option Explicit
Dim Network
Const PrinterShare = "\\server\printer"

Set Network = CreateObject("Wscript.Network"

'Network.AddWindowsPrinterConnection PrinterShare
Network.SetDefaultPrinter PrinterShare
строчка типа

Network.AddWindowsPrinterConnection PrinterShare
отрабатывается только на принтерах при сервере 2000
а если 98 или jet стоит то не будет работать

а для мапирования дисков мне и полегче хватает
sub groupsmap(objDiskName,objDiskMap)
On Error Resume Next
Add2Log Now & ":Подключение диска -" & objDiskName & " от - " & objDiskMap
objNetwork.RemoveNetworkDrive objDiskName, True, True
objNetwork.MapNetworkDrive objDiskName, objDiskMap
Err.clear
end sub

Sub Add2Log (txt)
Const Myfile = "C:\MyLog.txt"
Const ForAppending = 8
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject"

Set file = fso.OpenTextFile(MyFile, ForAppending, TRUE)
file.WriteLine (txt)
Set file = Nothing
End Sub

kovdaev · Отправлено: **20:13, 21-12-2005** | #13

Помогите написать скрипт для создания ярлыков в папке
%USERPROFILE%\Application Data\Microsoft\Internet Explorer\Quick Launch
Заранее спасибо

jurapolet · Отправлено: **10:24, 20-03-2009** | #14

А где найти этот Windows Script Host, поиск ничо не нашёл...

2poisonS · Отправлено: **11:49, 20-03-2009** | #15

jurapolet, Google в помощь...

jurapolet · Отправлено: **12:36, 20-03-2009** | #16

Цитата 2poisonS:

jurapolet, Google в помощь... »

Это я уже находил, везде книги и описание, реально из файлов нашёл только
Windows Script 5.6 for Windows XP and Windows 2000, куда это ставить, в систему или дистрибутив? В систему установил - тоже самое, ничё не изменилось. Специалисты!!! Покажите пальцем чо откуда взять и куда положить, тем более раз эта проблема не единичная.

Enforcer2K · Конфигурация компьютера

Цитата jurapolet:

А где найти этот Windows Script Host »

В системе он уже есть. Создайте текстовой файл:

Цитата:

msgbox("AAA")

измените расширение на .vbs, а потом выполните. Работает?

Цитата Wowa_z:

А можно ли сделать что-то на подобие этого »

Конечно! Сделать можно все.

jurapolet · Отправлено: **14:05, 20-03-2009** | #18

Цитата Enforcer2K:

В системе он уже есть. Создайте текстовой файл: »

Создал текстовый файл msgbox, сохранил как msgbox.vbs, запускаю двойным кликом открывается как пустой текстовый файл
Запускаю меню Выполнить, ввожу msgbox.vbs, появляется это:

Извиняюсь, неправильно сделал.
Щас просто изменил расширение, запускаю двойным кликом появляется окно выбора программы для открытия, выбираю Microsoft (R) Windows Based Script Host, появляется такое окно:

Habetdin · Отправлено: **14:10, 20-03-2009** | #19

Цитата jurapolet:

Создал текстовый файл msgbox, сохранил как msgbox.vbs »

а внутри написали что-нибудь?

Цитата jurapolet:

Запускаю меню Выполнить, ввожу msgbox.vbs »

вводите полный путь, например "C:\Test\Script.vbs"

jurapolet · Отправлено: **14:15, 20-03-2009** | #20

Внутри ни чо не писал, чистый файл, сообщает не обнаружено ядро, хотя программа в окне выбора есть Microsoft (R) Windows Based Script Host. Ошибку в предыдущем посте отредактировал