como desabilitar o “Event Tracker”

Para desabilitar o event tracker vc deverá mexer na template computer policy, considerando neste caso que seja um servidor membro ou uma máquina stand alone…, caso não, a diferença é que você deverá mexer na policy de domínio e pra isso você deverá calcular em qual level da raiz e se todos os computadores do domínio serão afetados, caso seja um servidor membro, prossiga tranquilamente:

1. Iniciar > Executar > gpedit.msc

2. Computer Configuration > Administrative Templates > System

3. Duplo clique em “Display Shutdown Event Tracker”

4. Selecione Disable e OK

Caso você esteje em domínio não se esqueça de executar o gpupdate /force, ou se não reinicie o server. Mesmo após o primeiro reboot a tela do event tracker vai aparecer pois a policy ainda não foi carregada, depois de carregada isso não acontecerá mais.

 

Como alterar a default port do terminal server

Para alterar a porta default de “3389″ para outra basta alterar a sukey “PortNumber” em hexa, dentro a seguinte chave de registro:

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp

Realizada esta alteração será necessário um reboot.

 

Obs.: 

• Esta alteração afeta todas as conexões do servidor de terminal
• Este texto serve para as plataformas 2000, 2003 e 2008

     

Script para alteração da flag de expiração de senha

Este script tem como objetivo ser uma ferramenta de apoio para correção de contas de domínio ou contas locais que outrora foram criadas com a flag de expiração de senha, posterior a isso você pode optar por usar uma GPO para realizar a alteração da flag para novas contas que venham ser cadastradas.

Option Explicit

On Error Resume Next

Const naoExpira = &H10000

Dim colNamedArguments
Dim strDomain, strUser

Set colNamedArguments = WScript.Arguments.Named

If colNamedArguments.Exists(”domain”) Then
strDomain=colNamedArguments.Item(”domain”)
Else
WScript.Echo “Missing argument: /domain:domainname”
Usage
End If

If colNamedArguments.Exists(”user”) Then
strUser=colNamedArguments.Item(”user”)
Else
WScript.Echo “Missing argument: /user:username”
Usage
End If

PasswordNeverExpires strDomain, strUser

Sub PasswordNeverExpires(domainname, username)
Dim objUser, objUserFlags

Set objUser = GetObject(”WinNT://” & domainname & “/” & username & “,user”)

objUserFlags = objUser.Get(”UserFlags”)

If (objUserFlags And naoExpira) = 0 Then
objUserFlags = objUserFlags Or naoExpira
objUser.Put “UserFlags”, objUserFlags
objUser.SetInfo
WScript.Echo domainname & “\” & username & ” senha foi setada para não expirar.”
Else
WScript.Echo domainname & “\” & username & ” senha já está setada para não expirar.”
End If

End Sub

‘ ******************************************************************************

Sub Usage()
Wscript.Echo VbCr
WScript.Echo “Usage: cscript expuser.vbs /domain:domainname /user:username”
Wscript.Quit

End Sub

‘ ******************************************************************************

Template para criação de usuário no domínio via Prompt

Este template mostra diversas formas e traz opções também para criação de usuários em um domínio windows ….

‘****************************************************************************************************************************
‘****************************************************************************************************************************
‘***** Script criado por: Rodolfo Angelino Rodrigues
‘***** Data: 16/04/2008
‘****************************************************************************************************************************
‘****************************************************************************************************************************
Option Explicit
On Error resume Next
Dim WshNetwork, WshShell, objEmail
Dim hostName, home_path, objUser, intUAC
Dim user_id, psswd, compl, oArgs, ArgNum, resultado
Dim home_path, action, descr, objOU, help
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000

Set WshNetwork = WScript.CreateObject(”WScript.Network”)
Set WshShell = CreateObject(”WScript.Shell”)
Set objEmail = CreateObject(”CDO.Message”)
Set oArgs = WScript.Arguments
ArgNum = 0

hostName = WshNetwork.ComputerName

While ArgNum < oArgs.Count

Select Case LCase(oArgs(ArgNum))
Case “–action”,”-a”: ‘ 1 = adiciona , 2 = desabilitar , 3 = reativa , 4 = remove e 5 = resseta a senha
ArgNum = ArgNum + 1
action = oArgs(ArgNum)
Case “–user_id”,”-u”:
ArgNum = ArgNum + 1
user_id = oArgs(ArgNum)
Case “–psswd”,”-s”:
ArgNum = ArgNum + 1
psswd = oArgs(ArgNum)
Case “–compl”,”-d”:
ArgNum = ArgNum + 1
compl = oArgs(ArgNum)
Case Else:
End Select
ArgNum = ArgNum + 1
Wend

home_path = “X:\users\” & user_id

Select Case action
Case 1
If (user_id = “”) Or (psswd = “”) Then
if (user_id = “”) then
WScript.Echo “Campo user_id em branco”
else
WScript.Echo “Campo PASSWORD em braco”
end if
WScript.Quit
Else
Call CriaUsuario(user_id, psswd, home_path, compl)
End If
Case 2
If user_id = “” Then
WScript.Echo “Campo user_id em branco”
WScript.Quit
Else
Call desabilitaUsuario(user_id)
End if
Case 3
If user_id = “” Then
WScript.Echo “Campo user_id em branco”
WScript.Quit
Else
Call reativaUsuario(user_id)
End if
Case 4
If user_id = “” Then
WScript.Echo “Campo user_id em branco”
WScript.Quit
Else
Call removeUsuario(user_id)
End If
Case 5
If (user_id = “”) Or (psswd = “”) Then
if (user_id = “”) then
WScript.Echo “Campo user_id em branco”
else
WScript.Echo “Campo PASSWORD em braco”
end if
WScript.Quit
Else
Call resSenha(user_id, psswd)
End If
Case Else:
WScript.Echo “Nenhum Argumento foi passado!!”
Call DisplayUsage
WScript.Quit
End Select

WScript.Echo descr

‘*******************************************************************************************************************************************************
”*** Criando Usuário **********************************************************************************************************************************
‘*******************************************************************************************************************************************************
Sub CriaUsuario(user_id, WebPasswd, home_path, compl)
On Error resume Next
Err.Clear
Set objOU = GetObject(”LDAP://OU=www,dc=azeroth,dc=com,dc=br”)
Set objUser = objOU.Create(”User”, “cn=”&user_id)
Err.Clear
objUser.Put “sAMAccountName”, user_id
objUser.SetInfo
If Err.number <> 0 Then
WScript.Echo “Usuário já exite…”
WScript.Quit
End If
intUAC = objUser.Get(”userAccountControl”)
objUser.Put “userAccountControl”, intUAC XOR ADS_UF_DONT_EXPIRE_PASSWD ‘Aqui ele seta a opção para senha não expirar
objUser.SetInfo
Err.Clear
objUser.SetPassword(WebPasswd)
If Err.number <> 0 Then
WScript.Echo “Senha não é complexa por favor informar novamente…” ‘ Neste caso existe uma GPO que exige complexibilidade de senha
Set objUser = objOU.Delete(”User”, “cn=”&user_id)
objUser.SetInfo
WScript.Quit
End If
Err.clear
objUser.FullName = user_id
objUser.HomeDirectory = home_path
objUser.AccountExpirationDate = “01/01/1970″ ‘ Esta data é para que a conta nunca expire
objUser.AccountDisabled = False
objUser.Description = compl
objUser.SetInfo
If Err.number <> 0 Then
resultado = “Houve erro na ativação do usuário: “&user_id&” : “&Err.Description&” : “&CStr(Err.Number)
Call Send_Mail(resultado)
Set objUser = objOU.Delete(”User”, “cn=”&user_id)
objUser.SetInfo
WScript.Echo resultado
WScript.Quit
End If
descr = “Criação de usuário realizada com sucesso!”
End Sub
‘*******************************************************************************************************************************************************
”*** Desabilitando o usuário **************************************************************************************************************************
‘******************************************************************************************************************************************************
Sub desabilitaUsuario(user_id)
On Error Resume Next
Err.Clear

Set objUser = GetObject(”WinNT://AZEROTH/” & user_id)
If Err.number <> 0 then
msg = “Falha na suspensão do usúario o mesmo já se encontra suspenso…”&user_id
WScript.Echo msg
Call Send_Mail(msg)
WScript.Quit
End If
Err.Clear
objUser.AccountDisabled = TRUE
objUser.SetInfo
If Err.number <> 0 then
msg = “Falha na suspensão do usúario o mesmo não foi encontrado…”&user_id
WScript.Echo msg
Call Send_Mail(msg)
WScript.Quit
End If
descr = “Suspensão de usuário realizada com sucesso!”
End Sub
‘*******************************************************************************************************************************************************
”*** Reativando o usuário **************************************************************************************************************************
‘******************************************************************************************************************************************************
Sub reativaUsuario(user_id)
On Error Resume Next
Err.Clear

Set objUser = GetObject(”WinNT://AZEROTH/” & user_id)
If Err.number <> 0 then
msg = “Falha na reativação do usúario o mesmo já se encontra ativo…”&user_id
WScript.Echo msg
Call Send_Mail(msg)
WScript.Quit
End If
Err.Clear
objUser.AccountDisabled = FALSE
objUser.SetInfo
If Err.number <> 0 then
msg = “Falha na reativação do usúario o mesmo não foi encontrado…”&user_id
WScript.Echo msg
Call Send_Mail(msg)
WScript.Quit
End If
descr = “reativação de usuário realizada com sucesso!”
End Sub
‘*******************************************************************************************************************************************************
‘*** Remoção de usuário ********************************************************************************************************************************
‘*******************************************************************************************************************************************************
Sub removeUsuario(user_id)
On Error Resume Next

Set objOU = GetObject(”LDAP://OU=www,dc=azeroth,dc=com,dc=br”)
Err.Clear
Set objUser = objOU.Delete(”User”, “cn=”&user_id)
If Err.number <> 424 then
msg = “Falha na remoção do usúario o mesmo já foi removido ou não foi encontrado…”&user_id
WScript.Echo msg
Call Send_Mail(msg)
WScript.Quit
End If
descr = “Remoção de usuário realizada com sucesso!”
End Sub
‘*******************************************************************************************************************************************************
‘*** Resset de Senha ***********************************************************************************************************************************
‘*******************************************************************************************************************************************************
Sub resSenha(user_id,PasWd)
On Error resume Next
Err.Clear

Set objUser = GetObject(”WinNT://AZEROTH/” & user_id)
objUser.SetPassword(PasWd)
objUser.SetInfo
If Err.number <> 0 then
msg = “Falha falha no resset de senha do usuário…”&user_id
WScript.Echo msg
Call Send_Mail(msg)
WScript.Quit
End If
descr = “Resset de senha realizada com sucesso!”
End Sub
‘*******************************************************************************************************************************************************
‘*******************************************************************************************************************************************************
‘*** Função de envio de e-mail
Sub Send_Mail(sDescricao)
On Error Resume Next
Set objEMail = CreateObject(”CDO.Message”)
objEmail.To = “gerencia@azeroth.com.br”
objEmail.From = “servidor@azeroth.com.br”
objEmail.Subject = “Alerta!: Script user.vbs - ” & hostName
objEmail.TextBody = sDescricao
objEmail.Send
Set objEMail = Nothing
End Sub
‘*******************************************************************************************************************************************************
‘*******************************************************************************************************************************************************
Sub DisplayUsage
WScript.Echo “########################################################”
WScript.Echo “Para chamada do help digite no prompt user.vbs -h >”
WScript.Echo ” <–Ação | -a Ação de criação, suspensão e etc… >”
WScript.Echo ” <–Usuário | -u Usuário de logon >”
WScript.Echo ” <–Senha | -s Senha do usuário >”
WScript.Echo ” <–Descrição | -d domínio ou descrição da conta >”
WScript.Echo ” <Exemplo: user.vbs -a 1 -u teste -s 123mudar -d teste >”
WScript.Echo “########################################################”
WScript.Quit (1)
End Sub
‘*******************************************************************************************************************************************************
‘*******************************************************************************************************************************************************

Tipos de Backup

Esta semana surgiu uma discussão com relação ao tipo e o comportamento de determinadas rotinas de backup, como resultado disso estou copiando abaixo um trecho de um artigo encontrado no wikipedia, que explica de maneira simples e clara as diferenças:

Basicamente, existem três tipos de backup:

• Backup Completo / Cópia completa ou Global

Um backup completo (full) copia todos os arquivos seleccionados e marca-os como arquivos que passaram por backup (ou seja, o atributo de arquivo é desmarcado). Com backups normais, você só precisa da cópia mais recente do arquivo ou da fita de backup para restaurar todos os arquivos. Geralmente, o backup normal é executado quando você cria um conjunto de backup pela primeira vez. Se a seguir, voltar a executar um backup normal dos mesmos dados, todos estes são novamente copiados.

• Backup Incremental / Cópia incremental

Um backup incremental copia unicamente os arquivos criados ou alterados desde o último backup normal ou incremental marca-os como arquivos que passaram por backup (o atributo de arquivo é desmarcado). Se você utilizar uma combinação dos backups normal e incremental, precisará do último conjunto de backup normal e de todos os conjuntos de backups incrementais para restaurar os dados.

• Backup Diferenciado / Cópia diferenciada

Um backup diferencial copia arquivos criados ou alterados (diferentes) desde o último backup normal ou incremental. Não marca os arquivos como arquivos que passaram por backup (o atributo de arquivo não é desmarcado). Ou seja, este vai armazenando todas as modificações feitas desde o último backup normal. Se usar uma combinação de backups normal e diferencial, a restauração de arquivos e pastas exigirá o último backup normal e o último backup diferencial. O backup dos dados que utiliza uma combinação de backups normal e incremental exige menos espaço de armazenamento e é o método mais rápido. No entanto, a recuperação de arquivos é mais lenta porque precisa de vários conjuntos de backups. O backup dos dados que utiliza uma combinação de backups normal e diferencial é mais longo, principalmente se os dados forem alterados com frequência, mas facilita o restauro dos dados pois, como já foi referido, precisa apenas do último backup normal e do último backup diferencial.

that’s all…

Rodolfo

You receive a “Service Unavailable” error message when you browse an IIS 6.0 Web page on a Windows Server 2003-based domain controller

Erros encontrados no Log de eventos para este problema:

Event Type: Message
Event Source: Active Server Pages
Event Category: None
Event ID: 5
Date: Date
Time: Time
User: N/A
Computer: Computer_Name
Description:
Error: The Template Persistent Cache initialization failed for Application Pool ‘Application_Pool_Name’ because of the following error: Could not create a Disk Cache Sub-directory for the Application Pool. The data may have additional error codes

————-

Event Type: Warning
Event Source: W3SVC
Event Category: None
Event ID: 1009
Date: Date
Time: Time
User: N/A
Computer: Computer_Name
Description:
A process serving application pool ‘Application_Pool_Name’ terminated unexpectedly. The process id was ‘5288′. The process exit code was ‘0xffffffff’

——————

Estes erros ocorrem normalmente quando um membro de domínio é promovido para controlador de domínio, durante o processo de instalação as permissões do %systemroot% são reiniciadas e reordenadas .

Para contornar este problema será necessário setar manualmente as permissões dos seguintes diretórios:

• systemroot\Help\IISHelp\Common
• systemroot\System32\Inetsrv\ASP Compiled Templates
• systemroot\IIS Temporary Compressed Files

Da seguinte forma:

%systemroot%\Help\IISHelp

Para este diretório adicione o grupo IIS_WPG, e coloque as seguintes permissões:

- Read and Execute
- List Folder Contents
- Read

%systemroot%\system32\inetsrv

Para este diretório adicione o grupo IIS_WPG, e coloque a seguinte permissão:

- Full Control

%systemroot%

Para este diretório adicione o grupo IIS_WPG, e coloque a seguinte permissão:

- Full Control

%systemroot%\Help\iishelp

Para este diretório adicione o grupo IIS_WPG, e coloque as seguintes permissões:

- Read and Execute
- List Folder Contents
- Read

obs.: Procure evitar a replicação de objetos (herança) durante o processo de configuração a não ser que você tenha certeza do que está fazendo, se não todo o trabalho acima será em vão e outros problemas surgirão em seu Server.

Realizado todos estes passos, realize um restart do seu webserver e verifique nos logs, após navegação do conteúdo, se o problema persiste.

Segue link com um artigo da microsoft contendo informações a respeito de um problema similar.

http://support.microsoft.com/kb/332097/

that’s all…

Rodolfo

Template para Envio de E-mail usando o Smtp local do IIS

‘******************************************************************************************************************************
‘*** Script Name: sendmail.vbs
‘*** Criado e Revisado por Rodolfo Angelino Rodrigues
‘*** Data:  08/04/2008
‘******************************************************************************************************************************

Option Explicit
On Error Resume Next

Dim objSendMail, oArgs, ArgNum
Dim strTo, strFrom, strSubject, strBody

Set oArgs = WScript.Arguments
ArgNum = 0

While ArgNum < oArgs.Count
Select Case LCase(oArgs(ArgNum))
Case “-to”,”-t”:
ArgNum = ArgNum + 1
strTo = oArgs(ArgNum)
Case “-from”,”-f”:
ArgNum = ArgNum + 1
strFrom = oArgs(ArgNum)
Case “-subject”,”-s”:
ArgNum = ArgNum + 1
strSubject = oArgs(ArgNum)
Case “-body”,”-b”:
ArgNum = ArgNum + 1
strBody = oArgs(ArgNum)
Case “-help”,”-?”:
Call DisplayUsage
Case Else:
Call DisplayUsage
End Select
ArgNum = ArgNum + 1
Wend

If oArgs.Count=0 Or strTo=”" Or strFrom=”" Or _
strSubject=”" Or strBody=”" Then
Call DisplayUsage
Else
Set objSendMail = CreateObject(”CDONTS.NewMail”)
objSendMail.From = strFrom
objSendMail.To = strTo
objSendMail.Subject = strSubject
objSendMail.Body = strBody
objSendMail.BodyFormat = 0
objSendMail.MailFormat = 0
objSendMail.Send
Set objSendMail = Nothing
End If

‘******************************************************************************************************************************
‘*** Mostra o uso em linha de comando do script
‘******************************************************************************************************************************
Sub DisplayUsage
WScript.Echo “Usage:”
WScript.Echo “  sendmail -t <to address> -f <from address> -s ” & _
Chr(34) & “<subject>” & Chr(34) & ” -b ” & Chr(34) & _
“<message body>” & Chr(34)
WScript.Echo “  sendmail [-help|-?]“
WScript.Echo “”
WSCript.Quit
End Sub
‘******************************************************************************************************************************

PRB: Meu Analisador de logs não retorna nomes de domínio e regiões

Para habilitar no IIS a função de Reverse DNS, você pode executar a seguinte linha de comando:

C:\inetpub\adminscripts\Adsutil.vbs SET W3SVC/EnableReverseDNS TRUE

obs.: Habilitar esta função irá causar um aumento de consumo dos recursos CPU e BANDA em seu servidor web.

PRB: Microsoft JET Database Engine error ‘80004005′

Microsoft JET Database Engine error ‘80004005′

Could not use ”; file already in use.

Este problema pode ocorrer pelas seguintes causas:

1) A conta de usuário internet guest (se default de instalação IUSR_SERVER) não possui permissão de escrita do database, *.mdb

2)  O UNC está incorreto

3) A quota para a conta de internet guest atingiu o seu limite

Script para Netlogon

Segue um sample para automatização de mapeamentos no processo de logon

Option Explicit
On Error Resume Next

Dim objNet, wshNet, CurrentUser, grp, WshShell

Set WshShell = CreateObject(”WScript.Shell”)
Set wshNet = CreateObject(”WScript.Network”)
Set objNet = CreateObject(”WScript.Network”)

Set CurrentUser = _
GetObject(”WinNT://DOMINIO/” & wshNet.Username & “,user”)

For Each grp In CurrentUser.Groups
MapDrive grp.Name
Next

Sub MapDrive(byval strGroupname)
if InStr(strGroupName, “grpAtendimento”) then
map “y:”,”\\ServidordeArquivos\Corporativo$\atendimento”
end if
End Sub

Sub Map (drive, location)
objnet.MapNetworkDrive drive,location
End sub

Como Configurar o Passive Port Range no IIS 6

Para realizar esta tarefa você vai precisar confirmar se possui o script ADSUTIL.VBS, que por default de instalação fica em inetpub\adminscripts, caso não você possui 2 opções, reinstalar o IIS ou pegar direto no site da Microsoft.

obs.: execute CScript.exe para que o mesmo seja o seu interpretador de linha de comando Default. (CScript.exe //H:CScript)

Para habilitar o Passive port range você pode digitar a seguinte linha de comando:

adsutil.vbs SET MSFTPSVC/PassivePortRange “inicio-fim”

sendo “inicio-fim” o seu range de portas liberadas no firewall local ou remoto de sua DMZ

Como configurar SMTP do IIS para realizar bypass DNS name resolution no Windows Server 2003

1)Abra o IIS MANAGER, depois expanda a view “Default SMTP Virtual server”
2)Clique com o botão direito no painel e selecione New e depois clique em Domain
3)Vai começar o wizard do Smtp
4)Especifiquei o tipo de domínio, clique em Remote, e depois em Next
5)Na caixa Name, digite o nome do domínio (DNS), e depois clique em finish.
6)Clique com o botão direito no domínio criado e selecione properties
7)Selecione a aab General
8)Selecione a caixa Forward all mail to smart host, e depois digite o endeço ip do host que enviará as mensagems. tenha certeza que o endereço ip estará entre colchetes, [10.10.0.1].
9)Agora clique em OK
Realize um teste de envio de mensagens

Após migração de database, não consigo re-criar o login, pois apresenta a mensagem de erro de que já existe…

isto acontece porque o Uid do Login do server antigo ainda está atrelado ao database, e ao recriar com o mesmo nome apresenta este conflito, para isto vc precisa atualizar os id´s de banco. segue procedure para realizar a tarefa…

SP_CHANGE_USERS_LOGIN UPDATE_ONE, ‘username’,'login_name’

Script para mudar o dbowner de todos objetos

@OldOwner sysname,
@NewOwner sysname

SET @OldOwner = ‘oldOwner’
SET @NewOwner = ‘dbo’

DECLARE CURS CURSOR FOR
SELECT
name
FROM
sysobjects
WHERE
type = ‘p’
AND
uid = (SELECT uid FROM sysusers WHERE name = @OldOwner)
AND
NOT name LIKE ‘dt%’ FOR READ ONLY

DECLARE @ProcName sysname

OPEN CURS

FETCH CURS INTO @ProcName

WHILE @@FETCH_STATUS = 0
BEGIN
IF @@VERSION >= ‘Microsoft SQL Server 2005′
BEGIN
EXEC(’alter schema ‘ + @NewOwner + ‘ transfer ‘ + @OldOwner + ‘.’ + @ProcName)
exec(’alter authorization on ‘ + @NewOwner + ‘.’ + @ProcName + ‘ to schema owner’)
END
ELSE
EXEC(’sp_changeobjectowner ”’ + @OldOwner + ‘.’ + @ProcName + ‘”,”‘ + @NewOwner + ‘”’)

FETCH CURS INTO @ProcName
END

CLOSE CURS
DEALLOCATE CURS

Observação: Eu não sei o que rola com o editor aqui, mas na hora de publicar o artigo ele está substituindo as aspas simples por apóstrofes, sendo assim na  hora de executar este script, faça a substituição para não ter erros, e caso haja alguma dúvida entre em contato que lhe ajudo.

Rodolfo

Links Uteis

Pessoal, segue um link legal para vocês estarem lendo a respeito de clusterização.. o que realmente iremos fazer nas próximas aulas…

http://technet2.microsoft.com/windowsserver/en/library/fb47602c-5d03-42aa-a1f1-eaee8406a1b51033.mspx?mfr=true

abraços,

Rodolfo

Aula 2

Gerenciamento de servidores básico, primeira parte.. estes slides vão introduzir as ferramentas e serviços do sistema operacional

Aula 1

Aula 1 - Introdução em Windows Server