Script to List Local administrators in workstations

Olá, meu nome é Diego Luisi e no artigo de hoje demonstrarei como criar um Script em VBS para listar todos os usuários que tem privilégios de administrador nas estações de trabalho.

1) Primeiramente vamos criar um novo arquivo de texto chamado list_adm.txt

On Error Resume Next
option explicit
dim arrRealAdmins
dim objFSO,objFile
dim nomePC

'''''''''''''''''
' Configuration '
'''''''''''''''''
arrRealAdmins = Array("Administrador","Domain Admins")  ' List of users that *are* supposed to be administrators; we'll ignore these people later

'''''''''''''''''''''
' End configuration '
'''''''''''''''''''''

dim adminGroup, groupMember, ret

function isPermitedAdmin(MemberName)

    dim i
    for i = lbound(arrRealAdmins) to ubound(arrRealAdmins)
        if ucase(MemberName) = ucase(arrRealAdmins(i)) then
            isPermitedAdmin = true
            exit function
        end if
    next

    isPermitedAdmin = false
end function

set adminGroup = getObject("WinNT://./Administradores, group")
for each groupMember in adminGroup.members
    if not isPermitedAdmin(groupMember.name) then
            ret = ret & groupMember.name & ","
    end if
next

if ret = "" then
    Wscript.Quit
else
    ret = mid(ret, 1, len(ret)-1) ' To get rid of the last comma
    set nomePC = CreateObject("WScript.Network")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile("\\servidor\netlogon\admlocal\" & nomePC.ComputerName & ".txt")
    objFile.WriteLine ("The following users are in the local admin group: " & vbcrlf & ret)
    objFile.Close
    Wscript.Quit 
end if

2) Agora altere essa linha para o caminho desejado.
Set objFile = objFSO.CreateTextFile(“\\servidor\netlogon\admlocal\” & nomePC.ComputerName & “.txt”)

3) Altera a permissão da na pasta usada acima para que os usuários tenham permissão de escrita.

4) Salve o script em um compartilhamento da rede e altere sua extensão para .vbs

5) Coloque o script dentro do seu script de login, para ser executado sempre que um usuário se logue na estação

'============================================================================
'Listas ADM local

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "\\diegoluisi.local\netlogon\scripts\list_adm.vbs"

6) Pronto, agora sempre que um usuário se logar em uma estação esse script vai verificar quem são os administradores locais dessa estação.

Colocar informações uteis no papel de parede das estações de trabalho / useful information on the wallpaper of workstations

Hello, my name is Diego Luisi and in today’s article I’ll demonstrate how to put useful information on the wallpaper of workstations.

Olá, meu nome é Diego Luisi e no artigo de hoje vou demonstrar como colocar informações uteis no papel de parede das estações de trabalho.

Como podem ver no exemplo abaixo

Wallpaper Dluisi

Primeiramente faça o download do software:
http://www.4shared.com/rar/g3Z2fe0l/BgInfo.html

Bginfo.exe => Executável que faz a magica acontecer
background.bgi => Arquivo de configurações
bginfo.vbs => Script que executa os arquivos
Wallpaper.jpg => O Plano de fundo que será usado nas estações

Descompacte o arquivo, copie para o seguinte caminho:
\\seudominio.local\netlogon\install\BgInfo\

Altere o wallpaper.jpg para o fundo de tela desejado.

Altere o arquivo background.bgi e coloque nele as informações desejadas.

Altere o bginfo.vbs e coloque a localização dos arquivos.

Pronto,

Agora basta colocar o script (bginfo.vbs) no script de inicialização do usuário.

Se quiser chamar o script dentro do login.vbs é só adicionar essas linhas

‘============================================================================
‘Colocar Informações da Rede no Papel de Parede

Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “\\diegoluisi.local\NETLOGON\install\BgInfo\Bginfo.exe \\diegoluisi.local\NETLOGON\install\BgInfo\background.bgi /timer:0 /NOLICPROMPT”

Obrigado, espero que tenham gostado!

Script VBS mensagem de boas vindas.

Bom dia Galera!

Venho compartilhar um script que desenvolvi para mensagem de boas vindas ao usuário,

É só criar um arquivo .vbs editar, inserir os dados e depois executar..

Ele mostra os dados do usuário com base no AD, é só alterar para sua necessidades.

‘=============================================
‘Boas Vindas Ao Usuario
Set objSysInfo = CreateObject(“ADSystemInfo”)
strUserDN = objSysInfo.UserName
Set objGroup = GetObject(“LDAP://” & strUserDN)
Set WshNetwork = WScript.CreateObject(“WScript.Network”)
Set WshShell = WScript.CreateObject(“WScript.Shell”)
Set ObjUser = WScript.createobject (“wscript.network”)
PosInicio = InStr(strUserDN,””)
PosFim = InStr(strUserDN, “,”)
Dim WshNetwork
Dim dataAtual, dataFormatada
Dim WshShell, BtnCode
Dim nome
login = objUser.UserName
nome = mid(StrUserDN,PosInicio+3,PosFim-4)
dataAtual = now ( )
dataFormatada = FormatDateTime(dataAtual, 1)

If Time = “12:00:01” And Time <= "18:00:00" Then
BtnCode = WshShell.Popup("Boa tarde, Sr(a) " &nome& " bem-vindo a Sua Empresa." &vbCrLf&" "&vbCrLf&"Por favor respeite nossas políticas de segurança e tenha um bom trabalho!"&vbCrLf&" "&vbCrLf&"Usuário: "&login & vbCrLf &"Estação: "&WshNetwork.ComputerName& vbCrLf &"Horario: "&dataAtual, 7, "Nome da Mensagem", 64)

Else
BtnCode = WshShell.Popup("Boa noite, Sr(a) " &nome& " bem-vindo a Sua Empresa." &vbCrLf&" "&vbCrLf&"Por favor respeite nossas políticas de segurança e tenha um bom trabalho!"&vbCrLf&" "&vbCrLf&"Usuário: "&login & vbCrLf &"Estação: "&WshNetwork.ComputerName& vbCrLf &"Horario: "&dataAtual, 7, "Nome da Mensagem", 64)
End If

OBs.
7 = Tempo para mensagem fechar
64 Icone da mensagem "Informação"

Install Bacula Client Windows 2008 R2

Instalando o Hyper-v Server

O Hyper-V Server é uma versão que possui apenas o Windows Hypervisor, nenhum outro Papel de Servidor está disponível, você poderá administrar as maquinas virtuais remotamente do seu computador Windows Vista utilizando o RSAT (substituto do adminpak.msi) e usufruir de todos os recursos gráficos da interface de gerenciamento. O Microsoft Hyper-V Server é gratuito e uma execelente ferramenta para iniciantes no mundo da virtualização, sendo o download realizado a partir do site da Microsoft, por se tratar de uma versão grátis todas as maquinas virtuais (Guest) que o servidor hospedar deverão ter sua propria licença.

Instalação do Hyper-V Server

Após fazer o download do Hyper-V Server e gravar o ISO do Hyper-V Server em um DVD, configure a BIOS para boot com DVD. Antes de salvar as alterações, insira o DVD do Hyper-V Server no drive de DVD-Rom. Saia da BIOS, salvando as alterações a seguinte tela abaixo será apresentada.

Redimensionado em 75% (641 x 481) – Clique para ampliar

Selecione a Linguagem do produto

Redimensionado em 78% (616 x 457) – Clique para ampliar

Na próxima tela selecione as seguintes opções:

Language to install: English

Time and currency format: Portuguese (Brazil)

Keyboard or input method: Brazilian ABNT2

Clique em Next.

Redimensionado em 78% (619 x 460) – Clique para ampliar

Clique em Install Now.

Redimensionado em 78% (616 x 456) – Clique para ampliar

Na tela Please read the license terms, aceite o termo de licença e clique em Next.

Redimensionado em 75% (640 x 479) – Clique para ampliar

Na tela Wich type of installation do you want? Selecione a opção Custom (advanced).

Redimensionado em 76% (639 x 481) – Clique para ampliar

Na tela Where do you want to install Windows? selecione o disco onde o Hyper-V Server deverá ser instalado e clique em Next.

Redimensionado em 75% (640 x 482) – Clique para ampliar

A instalação do Hyper-V Server será iniciada, nessa etapa algumas reinicalizações podem acontecer.

Redimensionado em 76% (639 x 480) – Clique para ampliar

Após concluir a instalação a tela de boas vindas será apresentada, pressione CTRL+ALT+DELETE e selecione Other User.

Redimensionado em 60% (800 x 601) – Clique para ampliar

Na tela de logon preencha com a conta Administrator e pressione Enter.

Redimensionado em 60% (802 x 583) – Clique para ampliar

Será apresentado um aviso para alteração de senha, clique em OK.

Redimensionado em 61% (799 x 600) – Clique para ampliar

Crie uma senha obedecendo a requisitos de complexidade, (Ex: P@ssw0rd) e pressione Enter.

Redimensionado em 60% (800 x 601) – Clique para ampliar

Na tela Your Password has been changed clique em OK.

Redimensionado em 60% (800 x 602) – Clique para ampliar

O Hyper-V Configuration será apresentado ( caso não seja apresentado altere o caminho para a pasta do sistema, C:\windows\system32, digite hvconfig.cmd) nele temos 13 opções:

1 Domain/Workgroup: Altera a participação do servidor de grupo de trabalho para domínio.

2 Computer Name: Altera o nome do computador.

3 Network Settings: Configura as opções de rede e protocolo TCP/IP.

4 Add Local Administrator: adiciona um usuário como administrador do servidor.

5 Windows Update Settings: Configura as opções do Windows Update.

6 Download and Install Updates: Baixa e instala updates manualmente.

7 Remote Desktop: Habilita e desabilita a Área de Trabalho Remota.

8 Regional and Language Options: Ajusta as configurações Regionais e linguagem.

9 Date and Time: Ajusta as configurações de data e hora.

10 Log Off User: Executa log off da conta de usuário.

11 Restart Server: Reinicia o Servidor 12 Shut Down Server: Desliga o Servidor.

13 Exit to Command Line: Fecha o Command Line do Hyper-V Configuration.

Redimensionado em 60% (803 x 554) – Clique para ampliar

Altere o nome do computador, selecione a opção “2″ e aperte Enter.

Redimensionado em 60% (802 x 601) – Clique para ampliar

Forneça o novo nome do seu Hyper-V Server (Ex: SRVHYPER-V) de pressione Enter.

Redimensionado em 60% (800 x 602) – Clique para ampliar

Na tela Computer name clique em OK.

Redimensionado em 61% (798 x 564) – Clique para ampliar

Na tela Restart clique em Yes.

Redimensionado em 60% (800 x 600) – Clique para ampliar

Aguarde o reinicio do servidor e faça log on com a conta Administrator.

De volta a tela do Hyper-V Configuration configure um endereço IP estático para o servidor, selecione a opção “3” e pressione Enter.

Redimensionado em 60% (802 x 602) – Clique para ampliar

Neste momento escolha a placa de rede a ser configurada, utilize o numero atribuído a placa na opção Index# para fazer referencia a placa de rede. Como temos somente uma placa de rede fornecemos o parâmetro “1” e pressione Enter.

Redimensionado em 60% (801 x 601) – Clique para ampliar

Agora é apresenta as opções para configuração de endereço IP e servidores DNS, para configurar o endereço IP estático forneça o parâmetro “1” e pressione Enter.

Redimensionado em 60% (800 x 600) – Clique para ampliar

Forneça o parâmetro “S” para configurar o IP estático e pressione Enter, forneça o endereço IP que deseja atribuir ao Hyper-V Server e pressione Enter novamente.

Redimensionado em 60% (800 x 574) – Clique para ampliar

Forneça a mascara de rede para o endereço IP estático e pressione Enter.

Redimensionado em 60% (801 x 601) – Clique para ampliar

Forneça o endereço do default gateway da sua rede e pressione Enter.

Redimensionado em 60% (801 x 568) – Clique para ampliar

De volta a tela de configurações da placa de rede, configure o servidor DNS da sua rede, para isso forneça o parâmetro “2” e pressione Enter.

Redimensionado em 60% (802 x 605) – Clique para ampliar

Forneça o endereço IP do servidor da sua rede e pressione Enter.

Redimensionado em 61% (799 x 602) – Clique para ampliar

Na tela Network Settings clique em OK.

Redimensionado em 60% (802 x 601) – Clique para ampliar

Caso exista forneça o endereço IP do servidor DNS secundário da sua rede e pressione Enter, se não existir apenas pressione Enter.

Agora forneça o parâmetro “4” e aperte Enter, para retornar ao menu de configuração do Hyper-V Server.

Redimensionado em 60% (800 x 600) – Clique para ampliar

Configure o Windows Update para fazer atualizações automáticas, para isso forneça a opção “5” e pressione Enter.

Redimensionado em 60% (800 x 602) – Clique para ampliar

Forneça o parâmetro “A” para atualizações automáticas e pressione Enter.

Redimensionado em 61% (799 x 597) – Clique para ampliar

Na tela Update Settings clique em OK.

Redimensionado em 60% (803 x 585) – Clique para ampliar

De volta ao Hyper-V Configuration verifique manualmente se há atualizações disponíveis para o Hyper-V Server, selecione a opção “6” e pressione Enter.

Redimensionado em 60% (801 x 601) – Clique para ampliar

O Hyper-V Server se conectará ao site do Windows Update através do default gateway da sua rede.

Redimensionado em 60% (803 x 602) – Clique para ampliar

Ao encontrar as atualizações você será perguntado se deseja instalar naquele momento, forneça o parâmetro “Y” e pressione Enter.

Redimensionado em 60% (800 x 601) – Clique para ampliar

As atualizações começarão a ser baixadas e instaladas.

Redimensionado em 60% (803 x 601) – Clique para ampliar

Após instalar as atualizações Hyper-V Server será reiniciado, faça log on novamente com a conta Administrator.

Habilite a Área de Trabalho Remota (RDC), selecione a opção “7” e pressione Enter.

Redimensionado em 60% (800 x 602) – Clique para ampliar

Para habilitar o RDC forneça o parâmetro “E” e pressione Enter.

Redimensionado em 60% (803 x 578) – Clique para ampliar

Agora selecione o nível de autenticação do RDC, para maior segurança forneça o parâmetro “1” e pressione Enter. (Caso queira usar um nível menos de segurança forneça o parâmetro “2”).

Redimensionado em 60% (800 x 603) – Clique para ampliar

Na tela Remote Desktop clique em OK.

Redimensionado em 60% (800 x 601) – Clique para ampliar

Alterne para a janela do cmd.exe que está logo atrás da janela do Hyper-V Configuration e execute os seguintes comandos:

Para criar uma regra no firewall liberando o RDC:

netsh advfirewall firewall set rule group=”Remote Desktop” new enable=yes

Para criar uma regra no firewall liberando a Administração Remota:

netsh advfirewall firewall set rule group=”Remote Administration” new enable=yes

Redimensionado em 61% (799 x 601) – Clique para ampliar

De volta ao Hyper-V Configuration, torne o servidor membro do seu domínio, para isso selecione a opção “1” e pressione Enter.

Redimensionado em 60% (800 x 601) – Clique para ampliar

Para tornar o servidor membro do seu domínio forneça o parâmetro “D” e pressione Enter.

Redimensionado em 61% (799 x 601) – Clique para ampliar

Agora forneça o FQDN do domínio da sua empresa (Ex: “seudominio.com.br”) e pressione Enter.

Redimensionado em 61% (797 x 600) – Clique para ampliar

Forneça um usuário e senha com os direitos apropriados e pressione Enter.

Redimensionado em 60% (800 x 600) – Clique para ampliar

Forneça a senha da conta de usuário e pressione Enter.

Redimensionado em 61% (799 x 600) – Clique para ampliar

Na tela Join Domain clique em “Yes”.

Redimensionado em 61% (799 x 602) – Clique para ampliar

O Hyper-V Server será reiniciado.

Faça download do Gerenciador Remoto do Hyper-V e instale no seu Windows Vista. Após a instalação Ir em Iniciar / Executar / e digite a seguinte linha de comando:
runas.exe /user:seudominioAdministrator “mmc”
Iinforme a senha da conta Administrator quando necessário. Na Console1 – [Raiz do Console]MMC selecione Arquivo e clique em Adicionar/remover snap-in…

Redimensionado em 64% (761 x 173) – Clique para ampliar

Na tela Adicionar ou Remover Snap-ins selecione a Snap-in Gerenciador Hyper-V clique em Adicionar e depois em OK.

Redimensionado em 64% (756 x 469) – Clique para ampliar

Selecione o Gerenciador do Hyper-V clique em Ação e depois em Conectar ao Servidor.

Redimensionado em 63% (763 x 534) – Clique para ampliar

Na tela Selecionar Computador digite o nome do seu Hyper-V Server e clique em OK.

Redimensionado em 63% (765 x 536) – Clique para ampliar

O Hyper-V Server está instalado, atualizado, configurado e pronto para hospedar maquinas virtais.

Redimensionado em 63% (765 x 536) – Clique para ampliar

Você já pode se conectar remotamente da sua estação de trabalho Windows Vista, através do Gerenciador Remoto do Hyper-V e começar a trabalhar e desenvolver todo seu potencial com maquinas virtuais.

#CREDITOS DOUGLAS FILIPE

Tweet