none
Monitor USB, RRS feed

  • Pergunta

  •  

    Boa tarde, Vinicius

     

    Localizei o seu script de monitoramento da porta USB para estar implementando em nosso empresa e esta apresentando o seguinte erro:

     

    Linha 20

    Caract 21

    Erro Caracter Inválido

     

    e so alterei as seguintes linhas:

     

     

     

    'USB Storage Monitor
    '
    'Vinicius Canto
    'MVP Visual Developer - Scripting
    '
    'Grupo PET Computagco - Universidade de Sco Paulo - Brasil
    'Disabling error messages...
    On Error Resume Next
    'Main routine
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colMonitoredEvents = objWMIService.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE Targetinstance ISA 'Win32_PNPEntity' and TargetInstance.DeviceId like '%USBStor%'")
    Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
    Notifier(objLatestEvent.TargetInstance)
    Loop
    Sub Notifier(object)
    Set objNet = CreateObject("Wscript.network")
    'You can change the function below to perform other actions
    SendMailWithoutSSL _"meuusuario@dominio.com.br", _
    "USB storage detected on " & "objNet.benedito-wks", _
    "meuusuario@dominio.com.br", _
    "The user " & objNet.Username & " connected an USB Storage device on computer."bendito-wks, _
    "smtp.tubosapolo.com.br", _
    25, _
    "user", meuusuario@dominio.com.br

    "pass"mudar123

    End Sub

     


    ' CDOSYS official documentation:
    ' http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wss/wss/_cdo_queue_top.asp
    '
    ' by Vinicius Canto
    Sub SendMailWithoutSSL(strDestination, strTitle, strFrom, strMessage, strSMTP, intPort, strUsername, strPassword)
    set oMessage = CreateObject("CDO.Message")
    set oConf = CreateObject("CDO.Configuration")
    Set oFields = oConf.Fields

     

    oFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP
    oFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = intPort
    oFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic: Auth with user and password sent with plain text
    oFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUsername
    oFields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPassword
    oFields.Item("http://schemas.microsoft.com/cdo/configuration/Smtpusessl") = false
    oFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '1: Using local SMTP; 2: Using port; 3: Using Exchange
    oFields.Update

    oMessage.Fields.Item("urnTongue Tiedchemas:mailheader:to") = strDestination
    oMessage.Fields.Item("urnTongue Tiedchemas:mailheader:from") = strFrom
    oMessage.Fields.Item("urnTongue Tiedchemas:mailheaderTongue Tiedender") = strFrom 'reply-to
    oMessage.Fields.Item("urnTongue Tiedchemas:mailheaderTongue Tiedubject")= strTitle
    oMessage.Fields.Item("urnTongue Tiedchemas:mailheader:x-mailer") = "Vinicius Small Mail System -- by Vinicius Canto "
    oMessage.Fields.Update

    oMessage.Configuration = oConf

    oMessage.TextBody = strMessage
    oMessage.Send
    End Sub

     

    Se puder me ajude pois sou leigo de tudo nesta area de scritp.... se tiver que alterar mais alguma coisa favor me informar para estar realizando as aterações nescessarias.

     

     

    Obrigado

     

    segunda-feira, 3 de março de 2008 19:33

Respostas

  • Olá,


    você acabou juntando algumas linhas ao copiar/colar o texto do script. Recomendo fazer o processo mais uma vez.


    []s,

    --
    Vinicius Canto
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com
    terça-feira, 4 de março de 2008 10:50
    Moderador

Todas as Respostas

  • Olá,


    você acabou juntando algumas linhas ao copiar/colar o texto do script. Recomendo fazer o processo mais uma vez.


    []s,

    --
    Vinicius Canto
    MVP Windows Server - Admin Frameworks
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Bacharelando em Ciências da Computação - USP

    Blog sobre Scripting e Windows Powershell: http://viniciuscanto.blogspot.com
    terça-feira, 4 de março de 2008 10:50
    Moderador
  • Ok , vou fazer juntar as linhas de novo.

    Obrigado pela atenção.

    terça-feira, 4 de março de 2008 10:53
  • Vinícius,

    O usuário tem que ter permissão avançada para poder executar ou usuário comum executa ?

    Tentei colocar no logon script e travava ele.

    Valeu,
    Abraço.
    terça-feira, 4 de março de 2008 21:40
  • Olá,


    ele pode sim ser executado como usuário comum, mas não é recomendado. É melhor *chamar* ele em um script de startup. É necessário um script pra chamar ele... pq ele fica em loop infinito mesmo. É comportamento esperado isso.


    []s,

    Vinicius Canto
    MVP Windows Server - Admin Frameworks
    Blog sobre Scripting: http://viniciuscanto.blogspot.com
    quinta-feira, 13 de março de 2008 02:13
    Moderador