VPF::Windows 2000 Server - Форум программистов

alek1987

Дата 3.6.2009, 18:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 18.5.2009

Репутация: нет
Всего: нет

Привет всем столкнулся с такой проблемой, не работает скрипт в Windows 2000Server, хотя в XP и Server 2003 отлично работает, в чем может быть причина?

Akina

Дата 3.6.2009, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 42
Всего: 454

Любой скрипт? проверяй, кто обработчик.
Конкретный скрипт? код в студию.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

alek1987

Дата 3.6.2009, 18:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 18.5.2009

Репутация: нет
Всего: нет

Вот скрипт, проверка свободных ip адресов и задание любого адреса компу. Тестил на XP все отлично срабатывает, тестил на Win2003 Server тоже отлично, на 2000 нет. Ругается на объект exec.

Код


Dim objShell, objExec, objOutStream, fso, file, readfile, a
Dim strResPing, intResFind, startOfIP
Set fso = CreateObject("Scripting.FileSystemObject") 
Set file = fso.OpenTextFile("C:\temp\iptable.txt", 2, true)

startOfIP = InputBox("Введите первые три цифры IP адреса", "Диапазон IP", "192.168.1.", 100, 100)

Set objShell = CreateObject("WScript.Shell")
For i = 0 To 255
    Set objExec = objShell.Exec("ping -n 1 -w 300 " & startOfIP & i)
    Set objOutStream = objExec.StdOut
    strResPing = vbNullString
    While Not objOutStream.AtEndOfStream
        strResPing = strResPing & Trim(objOutStream.ReadLine())
    Wend
    If Instr(1, strResPing, "TTL", vbTextCompare) <= 1 Then
    file.WriteLine startOfIP & i 
    End If
Next
file.Close
Set objOutStream = Nothing
Set objExec = Nothing
Set objShell = Nothing
 set readfile=fso.OpenTextFile("c:\temp\iptable.txt")
a=readfile.readall()
WScript.Echo("Выбирите любой из предложенных скриптов и закройте это окошко. После чего Вы введете необходиый IP-адрес и он установится на ваш компьютер." & vbcrlf +a )

'Code Snippet
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = array (InputBox("Введите первые три цифры IP адреса", "Диапазон IP", "192.168.1.", 100, 100))
strSubnetMask = Array("255.255.255.0")

For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
    'errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
    If errEnable = 0 Then
        WScript.Echo "The IP address has been changed."
    Else
        WScript.Echo "The IP address could not be changed."
    End If
Next

Akina

Дата 4.6.2009, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 42
Всего: 454

Цитата(alek1987 @ 3.6.2009, 19:45

)

Ругается на объект exec.

Точная цитата сообщения об ошибке.
Точный номер строки в коде (размещённом тут, есссно).
Кто всё-таки в системе скрипт-хост?

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Windows \| Следующая тема »