Code Snippet
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' Script de limitação de login para windows 2000 server
' By O Filipe - jfjatoba@gmail.com
'
' Limita os usuários do domínio à uma seção, impedindo login simultâneo em dois pcs,
' utilizando uma pasta compartilhada
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' FAVOR NÃO ALTERAR ESTA SEÇÃO A MENOS QUE TENHA CERTEZA. OBRIGADO.
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Option Explicit
Dim FSO, wsNet, wShell, return, test
Dim pasta, arquivo, texto, LogFile
Dim label, msg
Set FSO = CreateObject("Scripting.FileSystemObject")
Set wsNet = CreateObject("WScript.Network")
Set wShell = CreateObject("WScript.Shell")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' < - - - - - - Edite esta parte, colocando o ip ou nome do servidor,
' < - - - - - - seguido do nome do compartilhamento entre aspas conforme o exemplo abaixo.
' < - - - - - - O compartilhamento deve ter acesso total para todos.
pasta = "\\helpdesksv4\Publica"
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' FAVOR NÃO ALTERAR ESTA SEÇÃO A MENOS QUE TENHA CERTEZA. OBRIGADO.
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
arquivo = pasta & "\" & wsNet.Username & ".txt"
texto = "PC-" & wsNet.ComputerName
If FSO.FileExists(arquivo) = false then
Set LogFile = FSO.OpenTextFile(arquivo, ForWriting, True)
LogFile.WriteLine(texto)
LogFile.Close
else
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' < - - - - - - Edite esta parte substituindo o texto entre parênteses pelas msgs que deseja exibir.
' < - - - - - - O exemplo abaixo é exibido da seginte forma:
'|------------------------------------------------------------------------------------
'|USUÁRIO JÁ LOGADO
'|------------------------------------------------------------------------------------
'|ATENÇÃO:
'|
'| Este login já está sendo utilizado, esta sessão será encerrada.
'| ___________
'| | OK |
'|------------------------------------------------------------------------------------
label = "USUÁRIO JÁ LOGADO" '/ / / - > Edite nesta linha o título da janela, mantendo as aspas.
msg= "Este login já está sendo utilizado, esta sessão será encerrada." ' / / / - > Edite nesta linha o texto a ser exibido mantendo as aspas ex.: "HA, vc já tá logado!" ou "Poutzzz... já logou fiu."
return = wShell.Popup("ATENÇÃO: "& VbCrLf & VbCrLf & msg & VbCrLf, 3, label, 48)
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' FAVOR NÃO ALTERAR ESTA SEÇÃO A MENOS QUE TENHA CERTEZA. OBRIGADO.
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
if FSO.FileExists(arquivo) = true then
Set LogFile = FSO.OpenTextFile(arquivo, ForReading, 0)
texto = LogFile.ReadLine
LogFile.Close
if texto = "PC-" & wsNet.ComputerName then
FSO.DeleteFile(arquivo)
end if
end if
wShell.run "%windir%\system32\shutdown.exe -l -f"
end if
set FSO = nothing
set wsNet = nothing
set wShell = nothing
set pasta = nothing
set arquivo = nothing
set texto = nothing
set LogFile = nothing
set return = nothing
set test = nothing
set label = nothing
set msg = nothing
wscript.quit
