Автоматизация администрирования - [85] :: В помощь системному администратору

Нарыл в указанной книге то что нужно но с помощью html НО "или я дурак или лыжи по асфальту не ездят" (с) не мое, но не работает

подскажите где в книге очепятка (все проверил уже 10 раз по буквам все переписано точно!!!
в общем код-пример из книги файл form3.htm должен лежать в одной папке с скриптом

Код:

<html>
    <head>
        <meta http-equiv="Content-Type"
            content="text/html; charset=iso-8859-1">
        <meta name="GENERATOR"
            content="Microsoft FrontPage Express 2.0">
        <title>
            Form input - by G. Born
        </title>
    <head>

    <body bgcolor="#C0C0C0" scrol="no">
        <script language="VBScript">
        <!-
            Dim ready
            Public TheForm

            Sub Button1_OnClick
                'Если пользователь щелкает ОК, об этом надо сообщить сценарию
                'WHS путем установки флага ready.
                ready = 1 'Пользователь завершил ввод информации
            End Sub

            Sub Window_OnLoad()
                'Здесь мы можем инициализировать форму
                Set TheForm = Document.ValidForm
                TheForm.fName.Value = ""
                ready = 0 'Пользователь не завершил ввод информации.
            End Sub

            Public Function CheckVal()
                'Эта функция вызывается cервером, чтобы проверить,
                'щелкнул ли пользователь кнопку ОК.
                CheckVal = ready
            End function

        '->
        </script>

        <h3>
            Form
        </h3>

        <hr>
            <form name="ValidForm">
                <p>
                    Name:  
                    <input type="text" size="5" name="fName">  
                    Age:  
                    <input type="text" size="3" name="fAge">
                    <br>

                    Password:  
                    <input type="password" size="12" maxlength="8"
                            name="fPassw">
                       
                    <input type="button" name="Button1" Value="OK">
                    <br>

                    <input type="checkbox" name="fPrinter" value="1"
                            checked>
                    Printer  
                    <input type="checkbox" name="fScreen" value="2">
                    Screen
                    <br>

                    Remarks:
                    <br>

                    <textarea cols="40" rows="5" name="fRemark">
                    </textarea>
                </p>
            </form>
        </hr>
    </body>
</html>

сам скрипт:

Код:

Option Explicit

Const Title = "WHS sample form input - by G. Born"

Dim oIE        'Объект Internet Explorer

'Глобальные переменые для значений формы.
Dim name, age, password, printer, screen, remark
Dim Text2

Text2 = "Yuo entered: " & vbCrLf

'*** Запустить Internet Explorer.***
Set oIE = WScript.CreateObject("InternetExplorer.Application")

oIE.Left = 50 'Левая позиция окна.
oIE.Top = 100 'Верхняя позиция окна.
oIE.Height = 380 'Высота окна.
oIE.Width = 450 'Ширина окна.
oIE.MenuBar = 0 'Отключить показ меню.
oIE.ToolBar = 0 'Отключить показ панелей.
oIE.StatusBar = 0 'Отключить показ статусной строки.
'Закоментировать если вызывает сбои при выводе граници окна.
'oIE.Resizable = 0 'Запретить изменение размеров окна.
oIE.navigate GetPath() & "form3.htm" 'имя файла формы если она лежит в одном с скриптом каталоге или полный путь к ней.
'~ oIE.navigate "C:\Scripts\form.html" 'имя файла формы если она лежит в одном с скриптом каталоге или полный путь к ней.
oIE.Visible = 1            'Показать окно.

'Важно ждать, пока Internet Explorer не освободится.
Do While (oIE.Busy)
    WScript.Sleep 200 'Пауза 0,2 секунды.
Loop

'Попытка инициализации значения текстового поля из сценария.
oIE.Document.ValidForm.fRemark.Value = "No remarks"

'Ждать, пока пользователь щелкнет кнопку ОК.
'Использовать функцию CheckVal.

On Error Resume Next 'Обработка закрытия IE.
Do 'Ждать, пока пользователь щелкнет кнопку ОК.
    WScript.Sleep 200 'Пауза 0,2 секунды.
Loop While (oIE.Document.Script.CheckVal() = 0)

'Если из-за закрытия формы возникает ошибка, выйти из сценария.
If Error <> 0 Then
    WScript.Echo "Sorry, a run-time error occurred while checking" & _
                " the OK button " & vbCrLf & _
                "Error: " & Err.Number & " " & _
                "I guess the form was closed; no input values..."
    WScript.Quit 'Конец сценария
End If

On Error GoTo 0 'Отключить обработку ошибок.

'Пользователь щелкнул ОК; получаем занчения.
name = "Name: " & oIE.Document.ValidForm.fName.Value
age = "Age: " & oIE.Document.ValidForm.fAge.Valuename
password = "Password: " & oIE.Document.ValidForm.fPassw.Value
printer = "Printer: " & oIE.Document.ValidForm.fPrinter.Value _
        & " Status: " & oIE.Document.ValidForm.fPrinter.Checked
screen = "Printer: " & oIE.Document.ValidForm.fScreen.Value _
        & " Status: " & oIE.Document.ValidForm.fScreen.Checked
remark = "Printer: " & oIE.Document.ValidForm.fRemark.Value
MsgBox Text2 & vbCrLf & name & vbCrLf & _
        age & vbCrLf & password & vbCrLf & _
        printer & vbCrLf & screen & vbCrLf & _
        remark, vbOKOnly + vbInformation + vbSystemModal, Title

oIE.Quit 'Закрыть Internet Explorer.
Set oIE = Nothing 'Сбросить переменную объек.

Function GetPath()
    'Получить путь к файлу сценария, так как форма (HTML-файл)
    'должна быть в той же папке.
    Dim path
    path = WScript.ScriptFullName
    GetPath = Left(path, inStrRev(path, "\"))
End Function

'*** Конец

выдает в диалоговом окне код ошибки 500 и завешает работу

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR
emx (13-12-2006 21:07): http://forum.ru-board.com/topic.cgi?forum=8&topic=19088#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101