none
Negar acesso á Notebooks após 7 dias RRS feed

  • Discussão Geral

  • Prezados, bom dia!

    Estou com uma dificuldade aqui na empresa onde trabalho, preciso que os Colaboradores devolvam os equipamentos que pegam emprestados, só que muitos esquecem ou não querem devolver.

    Então criamos um Script vis VBScript para bloquear os equipamentos, mas estou querendo dar uma melhorada nele, tipo transformar ele em um script mais parrudo e de facil manipulação, pois a rotação aqui na empresa de Freelas é alta e alguns tiveram problemas para usar o mesmo.

    Segue o script abaixo.

    On Error Resume Next
    data_atual = Date()
    data_inicial = CDate("04/03/2019")
    data_final = CDate("18/03/2021")
    If data_atual < data_inicial Then
     Desliga()
    End If
    If data_atual > data_final Then
     Desliga()
    End If
    Public Sub Desliga()
     Set WshShell = WScript.CreateObject("WScript.Shell")
     cmd = "shutdown -f -s -t 0"
     Return = WshShell.Run(cmd, 0, true)
     WScript.quit
    End Sub

    Espero que alguém possa me ajudar, fico no aguardo

    quinta-feira, 26 de março de 2020 11:10