Forumitbr.com.br

Sabe aquele momento tenso, em que você precisa do endereço MAC do usuário para criar uma reserva no DHCP ou mesmo uma regra no Firewall baseada em MAC e você tem uma enorme dificuldade para conseguir extrair esta informação do usuário ?

Então, é pra isto que serve este script em VBS, o usuário irá executar e você só precisa solicitar as informações que irão aparecer na tela. Lembrando que o script irá listar todos os dispositivos de rede da máquina em questão.

Segue o código

strComputer = .

Set objWMIService = GetObject( winmgmts: _
    & {impersonationLevel=impersonate}!\\ & strComputer & \root\cimv2 )

Set colAdapters = objWMIService.ExecQuery _
    ( SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True )

n = 1

For Each objAdapter in colAdapters

  WScript.Echo         ADAPTADOR DE REDE ENCONTRADO
  WScript.Echo DISPOSITIVO =  & objAdapter.Description
  WScript.Echo ENDEREÇO MAC =  & objAdapter.MACAddress

  If Not IsNull(objAdapter.IPAddress) Then...

Script em VBS que ao rodar varre o diretório especificado buscando por arquivos com a extensão definida e remove os mesmos se forem mais antigos do que os dias informados no script. Útil para limpeza em pastas de log ou semelhantes. Ajuste conforme necessidade.

Set fso = CreateObject( Scripting.FileSystemObject )

fs = D:\BACKUPS\MYSQL\                
ShowFiles(fs)

Sub ShowFiles(Fld)
  Set k = fso.GetFolder(Fld)
  Set s = k.SubFolders
  Set kf = k.Files
 
  For Each objFile In kf
      If fso.GetExtensionName(objFile) = gzip then
        If objFile.DateCreated < date - 15 Then
            fso.DeleteFile objfile
        End If
      End if
  Next
End Sub

Neste exemplo ele remove arquivos anteriores a 15 dias com a extensão .gzip do diretório D:\BACKUPS\MYSQL\

Script em VBS que retorna o usuário logado em uma estação remota. Só pode ser utilizado em ambientes com dominio , e a estação deve ser membro do dominio em questão. Salvar com extensão .vbs e executar. Informar o nome DNS da estação na dialog e ver o resultado.

'
'Script para identificar quem está logado na estação remota
'
strComputer = InputBox( Informe o nome do micro que deseja saber quem está logado a este. & vbcrlf & Por Exemplo: SRRS227 )
Set objWMIService = GetObject( winmgmts:{impersonationLevel=impersonate}!\\ & strComputer & \root\cimv2 )

Set colComputer = objWMIService.ExecQuery ( Select * from Win32_ComputerSystem )
For Each objComputer in colComputer
    Wscript.Echo O usuário logado na & strComputer & é & objComputer.UserName
Next

Script escrito em VBS muito util para manter pastas do Fileserver em dia evitando copias de arquivos de usuários em locais não desejados. Ideal para agendar sua execução antes da rotina de backup.

Ele varre o diretório definido, ignora as pastas definidas e gera um arquivo de log de todas as ações tomadas.

Lembre-se de nunca executar em ambiente de produção sem testar !

' --------------------------------------------------------------------------------------------------------------------------------------
' Script para limpeza de diretório e subdiretórios mantendo uma ou mais pastas caso necessário
' Ajuste os campos comentados conforme sua necessidade
' --------------------------------------------------------------------------------------------------------------------------------------

Set objNetwork = CreateObject( Wscript.Network )
strComputer = .
Set objWMIService = GetObject( winmgmts:\\ & strComputer & \root\cimv2 )
Set objFSO = CreateObject( Scripting.FileSystemObject...