Серый форум — VBScript: повторяющийся до определенных условий скрипт

Re: VBScript: повторяющийся до определенных условий скрипт

2010-11-05T06:36:32Z

Lime пишет:

как я понял - WScript.Sleep 10 * 60 * 1000 - обычная формула (количество минут * количество секунд в минуте * количество миллисекунд в секунде), используемая для упрощения изменений временного промежутка, что бы не расчитывать все это число с тучей нулей, в которых все-таки можно ошибиться...

Вы поняли верно, коллега.

Re: VBScript: повторяющийся до определенных условий скрипт

2010-11-05T06:03:04Z

armenxxx1, а в чем смысл данного изменения? Со старым значением скрипт не будет работать?
Прсто как я понял - WScript.Sleep 10 * 60 * 1000 - обычная формула (количество минут * количество секунд в минуте * количество миллисекунд в секунде), используемая для упрощения изменений временного промежутка, что бы не расчитывать все это число с тучей нулей, в которых все-таки можно ошибиться... или я что-то не так понял?

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-28T16:07:33Z

#11 Выполнить команду ipconfig /all затем сохранить результат в IP.txt и посылает... Нужно всего лишь изменить...

WScript.Sleep 10 * 60 * 1000

на

WScript.Sleep 10000

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-28T05:31:14Z

Это скрипт #11, только с прикрепленным IP.txt?

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T19:05:37Z

Lime пишет:

.... желательно прикреплял к письму файл IP.txt, в котором расписаны свойства подключений, и имя компьютера как в #9

alexii тебе ответил но вот пример с .AddAttachment

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strSchema = "http://schemas.microsoft.com/cdo/configuration/"


Dim objSWbemServicesEx
Dim objSWbemObjectEx

Dim strIPAddresses
Dim elem
Dim WSHshell
Dim sDir

Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Do
    If IsConnected() Then
        strIPAddresses = ""
        
        For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
            For Each elem In objSWbemObjectEx.IPAddress
                strIPAddresses = strIPAddresses & elem & vbCrLf
            Next
        Next
        
        Set WSHshell = WScript.CreateObject("WScript.Shell")
        Set sDir = WSHshell.Environment("Process")
        wshShell.run("cmd /c ipconfig /all > %SystemRoot%\system32\IP.txt"),0, True
        
        With WScript.CreateObject("CDO.Message")
            .From     = "XXX@mail.ru"
            .To       = "XXX@mail.ru"
            .Subject  = "IPAdresses"
            .Textbody = strIPAddresses
            .AddAttachment sDir("windir") & "\system32" & "\IP.txt"
            
            With .Configuration.Fields
                .Item(strSchema & "smtpserver")       = "smtp.mail.ru"
                .Item(strSchema & "sendusing")        = cdoSendUsingPort
                .Item(strSchema & "smtpserverport")   = 2525
                .Item(strSchema & "smtpauthenticate") = cdoBasic
                .Item(strSchema & "sendusername")     = "XXX@mail.ru"
                .Item(strSchema & "sendpassword")     = "XXX"
                
                .Update
            End With
            
            .Send
        End With
        
        Exit Do
    End If
    
    WScript.Sleep 1000
Loop

Set objSWbemObjectEx   = Nothing
Set objSWbemServicesEx = Nothing

WScript.Quit 0

Function IsConnected()
    Dim objSWbemObjectEx
    
    IsConnected = False
    
    For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = 'www.google.com'")
        With objSWbemObjectEx
            If Not IsNull(.StatusCode) And .StatusCode = 0 Then
                IsConnected = True
            End If
        End With
        
        Exit For
    Next
    
    Set objSWbemObjectEx = Nothing
End Function

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T18:29:52Z

Я могу отвечать только за написанный мною код.

Lime пишет:

желательно прикреплял к письму файл IP.txt, в котором расписаны свойства подключений, и имя компьютера как в #9

alexii пишет:

Посмотрите, какая ещё информация может Вам потребоваться?
wmic.exe nicconfig where "IPEnabled=True" get /value
Можно добавить.

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T18:26:28Z

Таааааак.... теперь совсем, блин, запутался... получается есть 3 разных на вид скрипта #9, #11, #35, но выполняющих одну и ту же функцию... Конечно понятно, что из точки А до точки Б можно дойти множеством путей, но тем не менее наикротчайший путь остается по прежнему - прямая, и, исходя из этого появился вопрос - какой из этих 3х скриптов лучше всего использовать?

Например, #9 меньше весит чем #11, но ввод данных (при их изменениях) легче производить в #11... а тут еще #35... в таком случае хотя бы так, на вскидку - какой из них более стабилен чем остальные?
Нужно что бы он не давал *осечек* и, желательно прикреплял к письму файл IP.txt, в котором расписаны свойства подключений, и имя компьютера как в #9

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T18:04:49Z

проверил скрипт в посте #9, все нормально работает - при отключенном интернете процесс висит (смотрел диспетчером задач), после подключения отправляет на мыло письмо с прикрепленным IP.txt
Вопрос остается открытым - можно ли склеить эти 2 скрипта воедино, если нельзя или незачем, то как добавить в скрипт из поста #11 код о создании IP.txt?

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T17:58:06Z

Lime пишет:

Примерно понял что Вы имели ввиду, но самому сделать это наврядли удастся на данный момент)

Лады. Примерно так:

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strSchema = "http://schemas.microsoft.com/cdo/configuration/"


Dim objSWbemServicesEx
Dim objSWbemObjectEx

Dim strIPAddresses
Dim elem


Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Do Until IsConnected()
    WScript.Sleep 10 * 60 * 1000
Loop

strIPAddresses = ""

For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
    For Each elem In objSWbemObjectEx.IPAddress
        strIPAddresses = strIPAddresses & elem & vbCrLf
    Next
Next

Set objSWbemObjectEx   = Nothing
Set objSWbemServicesEx = Nothing

With WScript.CreateObject("CDO.Message")
    .From     = "account@mail.ru"
    .To       = "account@yandex.ru"
    .Subject  = "IPAdresses"
    .Textbody = strIPAddresses
    
    With .Configuration.Fields
        .Item(strSchema & "smtpserver")       = "smtp.mail.ru"
        .Item(strSchema & "sendusing")        = cdoSendUsingPort
        .Item(strSchema & "smtpserverport")   = 25
        .Item(strSchema & "smtpauthenticate") = cdoBasic
        .Item(strSchema & "sendusername")     = "account@mail.ru"
        .Item(strSchema & "sendpassword")     = "password"
        
        .Update
    End With
    
    .Send
End With

WScript.Quit 0

Function IsConnected()
    Dim objSWbemObjectEx
    
    IsConnected = False
    
    For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = 'www.google.com'")
        With objSWbemObjectEx
            If Not IsNull(.StatusCode) And .StatusCode = 0 Then
                IsConnected = True
            End If
        End With
        
        Exit For
    Next
    
    Set objSWbemObjectEx = Nothing
End Function

Lime пишет:

Он получается обходится даже без создания IP.txt, как было в моем случае, с одной стороны это и хорошо даже, хотя с другой - там инфа полнее о подключении

Посмотрите, какая ещё информация может Вам потребоваться?

wmic.exe nicconfig where "IPEnabled=True" get /value

Можно добавить.

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T17:39:30Z

alexii, я 3 день сегодня разбираюсь с VBS, так что мне пока надо пальцем прям тыкать, а не давать болванку) Примерно понял что Вы имели ввиду, но самому сделать это наврядли удастся на данный момент)
armenxxx1, только что еще раз тестил Ваш скрипт в после #9, письмо отсылается, но вы сказали что сценарий не активируется при отсутсвии интернета... вы нашли ошибку?
Просто если в обоих скриптах #9, #11 есть разница, то подумываю либо закинуть в автозагрузку оба скрипта, либо объединить их, для большей надежности))) Или не стоит?

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T17:30:42Z

Должен поблагодарить alexii он сделал все.

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T17:14:51Z

armenxxx1, спасибо за видео, чуть не забыл добавить скрипт в исключения, ролик напомнил об этом)))

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T17:13:53Z

Это был лишь концепт, болванка кода. Саму функцию в скрипт добавили? Что у Вас получилось в итоге?

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T16:54:23Z

Спасибо за ответы.
Пробовал использовать скрипт Rumata но вотъ что выдало:
---------------------------
Windows Script Host
---------------------------
Сценарий: D:\Da Bi Dimm\Документы\Downloads\Новая папка\Liska2.vbs
Строка: 1
Символ: 1
Ошибка: Несоответствие типа: 'IsConnected'
Код: 800A000D
Источник: Ошибка выполнения Microsoft VBScript

---------------------------
ОК
---------------------------

Re: VBScript: повторяющийся до определенных условий скрипт

2010-10-27T16:28:28Z

alexii пишет:

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strSchema = "http://schemas.microsoft.com/cdo/configuration/"


Dim objSWbemServicesEx
Dim objSWbemObjectEx

Dim strIPAddresses
Dim elem


Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Do
    If IsConnected() Then
        strIPAddresses = ""
        
        For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
            For Each elem In objSWbemObjectEx.IPAddress
                strIPAddresses = strIPAddresses & elem & vbCrLf
            Next
        Next
        
        With WScript.CreateObject("CDO.Message")
            .From     = "account@mail.ru"
            .To       = "account@yandex.ru"
            .Subject  = "IPAdresses"
            .Textbody = strIPAddresses
            
            With .Configuration.Fields
                .Item(strSchema & "smtpserver")       = "smtp.mail.ru"
                .Item(strSchema & "sendusing")        = cdoSendUsingPort
                .Item(strSchema & "smtpserverport")   = 25
                .Item(strSchema & "smtpauthenticate") = cdoBasic
                .Item(strSchema & "sendusername")     = "account@mail.ru"
                .Item(strSchema & "sendpassword")     = "password"
                
                .Update
            End With
            
            .Send
        End With
        
        Exit Do
    End If
    
    WScript.Sleep 10 * 60 * 1000
Loop

Set objSWbemObjectEx   = Nothing
Set objSWbemServicesEx = Nothing

WScript.Quit 0

Function IsConnected()
    Dim objSWbemObjectEx
    
    IsConnected = False
    
    For Each objSWbemObjectEx In objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = 'www.google.com'")
        With objSWbemObjectEx
            If Not IsNull(.StatusCode) And .StatusCode = 0 Then
                IsConnected = True
            End If
        End With
        
        Exit For
    Next
    
    Set objSWbemObjectEx = Nothing
End Function

Годится только если Вы не сидите за proxy, иначе — парсить страницу с определением адреса и отсылать результат.

Lime Вот пример http://zalil.ru/29878687

Только изменил

.Item(strSchema & "smtpserverport") = 25

на

.Item(strSchema & "smtpserverport") = 2525

WScript.Sleep 10 * 60 * 1000

на

WScript.Sleep 10000