Atalhos de teclado para o Windows
Os atalhos de teclado são uma ótima maneira de aumentar a produtividade e simplificar o uso do computador. Eles permitem que você execute comandos rapidamente, sem precisar clicar em vários menus ou opções. Confira abaixo alguns atalhos de teclado úteis para trabalhar com o Windows e outros programas:| Pressione esta tecla | Para fazer isso |
|---|---|
Shift Direita por oito segundos
|
Ativar e desativar as Teclas de Filtro
|
Alt Esquerda+Shift Esquerda+PrtScn (ou PrtScn)
|
Ativar ou desativar o Alto Contraste
|
Alt Esquerda+Shift Esquerda+Num Lock
|
Ativar ou desativar as Teclas do Mouse
|
Shift cinco vezes
|
Ativar ou desativar as Teclas de Aderência
|
Num Lock por cinco segundos
|
Ativar ou desativar as Teclas de Alternância
|
Tecla do logotipo do Windows
 +U |
Abrir a Central de Facilidade de Acesso
|
Atalhos de teclado gerais.
| Pressione essa tecla | Para isso |
|---|---|
F1
|
Mostrar a Ajuda
|
Ctrl+C (ou Ctrl+Insert)
|
Copiar o item selecionado
|
Ctrl+X
|
Recortar o item selecionado
|
Ctrl+V (ou Shift+Insert)
|
Colar o item selecionado
|
Ctrl+Z
|
Desfazer uma ação
|
Ctrl+Y
|
Refazer uma ação
|
Delete (ou Ctrl+D)
|
Excluir o item selecionado e movê-lo para a Lixeira
|
Shift+Delete
|
Excluir o item selecionado sem movê-lo para a Lixeira primeiro
|
F2
|
Renomear o item selecionado
|
Ctrl+Seta para a Direita
|
Mover o cursor para o início da próxima palavra
|
Ctrl+Seta para a Esquerda
|
Mover o cursor para o início da palavra anterior
|
Ctrl+Seta para Baixo
|
Mover o cursor para o início do próximo parágrafo
|
Ctrl+Seta para Cima
|
Mover o cursor para o início do parágrafo anterior
|
Ctrl+Shift com uma tecla de direção
|
Selecionar um bloco de texto
|
Shift com qualquer tecla de direção
|
Selecionar mais de um item em uma janela ou na área de trabalho ou selecionar o texto dentro de um documento
|
Ctrl com qualquer tecla de direção+Barra de Espaços
|
Selecionar vários itens individuais em uma janela ou na área de trabalho
|
Ctrl+A
|
Selecionar todos os itens de um documento ou janela
|
F3
|
Procurar um arquivo ou uma pasta
|
Alt+Enter
|
Exibir as propriedades do item selecionado
|
Alt+F4
|
Fechar o item ativo ou sair do programa ativo
|
Alt+Barra de Espaços
|
Abrir o menu de atalho para a janela ativa
|
Ctrl+F4
|
Fechar o documento ativo (em programas que permitem vários documentos abertos simultaneamente)
|
Alt+Tab
|
Alternar entre itens abertos
|
Ctrl+Alt+Tab
|
Usar as teclas de direção para alternar entre itens abertos
|
Ctrl+Roda de rolagem do mouse
|
Alterar o tamanho dos ícones na área de trabalho
|
Tecla do logotipo do Windows
+Tab |
Percorrer programas na barra de tarefas usando o Aero Flip 3-D
|
Ctrl + tecla do logotipo do Windows
+Tab |
Usar as teclas de seta para percorrer os programas na barra de tarefas utilizando o Aero Flip 3-D
|
Alt+Esc
|
Percorrer os itens na ordem em que foram abertos
|
F6
|
Percorrer os elementos da tela em uma janela ou na área de trabalho
|
F4
|
Exibir a lista da barra de endereços no Windows Explorer
|
Shift+F10
|
Exibir o menu de atalho para o item selecionado
|
Ctrl+Esc
|
Abrir o menu Iniciar
|
Alt+letra sublinhada
|
Exibir o menu correspondente
|
Alt+letra sublinhada
|
Executar o comando do menu (ou outro comando sublinhado)
|
F10
|
Ativar a barra de menus no programa ativo
|
Seta para a Direita
|
Abrir o próximo menu à direita ou abrir um submenu
|
Seta para a Esquerda
|
Abrir o próximo menu à esquerda ou fechar um submenu
|
F5 (ou Ctrl+R)
|
Atualizar a janela ativa
|
Alt+Seta para Cima
|
Exibir a pasta um nível acima no Windows Explorer
|
Esc
|
Cancelar a tarefa atual
|
Ctrl+Shift+Esc
|
Abrir o Gerenciador de Tarefas
|
Shift quando inserir um CD
|
Evitar que o CD seja executado automaticamente
|
Alt Esquerdo+Shift
|
Alternar o idioma de entrada quando houver mais de um idioma de entrada habilitado
|
Ctrl+Shift
|
Alternar o layout do teclado quando houver mais de um layout de teclado habilitado
|
Ctrl Direito ou Esquerdo+Shift
|
Alternar a direção da leitura de texto em idiomas com leitura da direita para a esquerda
|
Atalhos de teclado de caixas de diálogo
Atalhos de teclado da tecla do logotipo do Windows
A tabela a seguir contém os atalhos de teclado que usam a tecla de logotipo do Windows.
.| Pressione essa tecla | Para isso |
|---|---|
Windows tecla do logotipo
|
Abrir ou fechar o menu Iniciar
|
Tecla do logotipo do Windows
+ Pause |
Exibir a caixa de diálogo Propriedades do Sistema
|
Tecla do logotipo do Windows
+D |
Exibir a área de trabalho
|
Tecla do logotipo do Windows
+ M |
Minimizar todas as janelas
|
Tecla do logotipo do Windows
+SHIFT+M |
Restaurar janelas minimizadas na área de trabalho
|
Tecla do logotipo do Windows
+E |
Abrir computador
|
Tecla do logotipo do Windows
+F |
Procurar um arquivo ou uma pasta
|
Ctrl + tecla do logotipo do Windows
+ F |
Procurar computadores (se você estiver em uma rede)
|
Tecla do logotipo do Windows
+ L |
Bloquear o computador ou alternar usuários
|
Tecla do logotipo do Windows
+R |
Abrir a caixa de diálogo Executar
|
Tecla do logotipo do Windows
+T |
Percorrer programas na barra de tarefas
|
Tecla do logotipo do Windows
+ número |
Iniciar
o programa fixado na barra de tarefas na posição indicada pelo número.
Se o programa já estiver sendo executado, alterne para ele.
|
Shift + Tecla do logotipo do Windows
+ número |
Iniciar a nova instância do programa fixado na barra de tarefas na posição indicada pelo número.
|
Ctrl + Tecla do logotipo do Windows
+ número |
Alternar para a última janela ativa do programa fixado na barra de tarefas na posição indicada pelo número.
|
Alt + Tecla do logotipo do Windows
+ número |
Abrir a Lista de Atalhos para o programa fixado na barra de tarefas na posição indicada pelo número.
|
Tecla do logotipo do Windows
+Tab |
Percorrer os programas na barra de tarefas usando o Aero Flip 3-D
|
Ctrl + tecla do logotipo do Windows
+Tab |
Usar as teclas de seta para percorrer os programas na barra de tarefas utilizando o Aero Flip 3-D
|
Ctrl + tecla do logotipo do Windows
+ B |
Alternar para o programa que exibiu uma mensagem na área de notificação
|
Tecla do logotipo do Windows
+Barra de Espaços |
Visualizar a área de trabalho
|
Tecla do logotipo do Windows
+ Seta para Cima |
Maximizar a janela
|
Tecla do logotipo do Windows
+ Seta para a Esquerda |
Maximizar a janela à esquerda da tela
|
Tecla do logotipo do Windows
+ Seta para a Direita |
Maximizar a janela à direita da tela
|
Tecla do logotipo do Windows
+ Seta para Baixo |
Minimizar a janela
|
Tecla do logotipo do Windows
+ Home |
Minimizar todas as janelas, menos a ativa
|
Tecla do logotipo do Windows
+ Shift + Seta para Cima |
Ampliar a janela verticalmente na tela
|
Tecla do logotipo do Windows
+ Shift + Seta para a Esquerda ou para a Direita |
Mover uma janela de um monitor para outro
|
Tecla do logotipo do Windows
+ P |
Escolher um modo de exibição da apresentação
|
Tecla do logotipo do Windows
+G |
Percorrer gadgets
|
Tecla do logotipo do Windows
+U |
Abrir a Central de Facilidade de Acesso
|
Tecla do logotipo do Windows
+X |
Abrir o Windows Mobility Center
|
Atalhos de teclado do Windows Explorer
Atalhos de teclado da barra de tarefas
Atalhos de teclado da Lupa
A tabela a seguir contém os atalhos de teclado usados com a Lupa.
| Pressione essa tecla | Para isso |
|---|---|
Tecla do logotipo do Windows
+ Sinal de Adição (+) ou Sinal de Subtração (-) |
Ampliar ou reduzir
|
Ctrl+Alt+Barra de Espaços
|
Visualizar a área de trabalho em modo de tela inteira
|
Ctrl+Alt+F
|
Alternar para o modo de tela inteira
|
Ctrl+Alt+L
|
Alternar para o modo de lente
|
Ctrl+Alt+D
|
Alternar para o modo encaixado
|
Ctrl+Alt+I
|
Inverter cores
|
Ctrl+Alt+teclas de direção
|
Fazer uma panorâmica no sentido das teclas de direção
|
Ctrl+Alt+R
|
Redimensionar a lente
|
Tecla do logotipo do Windows
+ Esc |
Sair da Lupa
|
Atalhos de teclado da Conexão de Área de Trabalho Remota
Atalhos de teclado do Paint
Atalhos de teclado do WordPad
Atalhos de teclado da Calculadora
Atalhos de teclado do Diário do Windows
Atalhos de teclado do visualizador da Ajuda do Windows
A tabela a seguir contém atalhos de teclado para uso com o visualizador da Ajuda.
| Pressione essa tecla | Para isso |
|---|---|
Alt+C
|
Exibir o Sumário
|
Alt+N
|
Exibir o menu Configurações de Conexão
|
F10
|
Exibir o menu Opções
|
Alt+Seta para a Esquerda
|
Voltar ao tópico exibido anteriormente
|
Alt+Seta para a Direita
|
Avançar para o próximo tópico (exibido anteriormente)
|
Alt+A
|
Exibir a página de atendimento ao cliente
|
Alt+Home
|
Exibir a home page Ajuda e Suporte
|
Home
|
Mover para o início de um tópico
|
Final
|
Mover para o final de um tópico
|
Ctrl+F
|
Pesquisar o tópico atual
|
Ctrl+P
|
Imprimir um tópico
|
F3
|
Mover o cursor para a caixa de pesquisa
|
Esses são apenas alguns exemplos de atalhos de teclado que podem ser usados para facilitar o uso do computador. Experimente esses atalhos para descobrir como eles podem tornar sua experiência com o computador ainda mais eficiente e produtiva. Lembre-se de que muitos programas também têm seus próprios atalhos de teclado, então vale a pena explorar e descobrir quais são os mais úteis para você.
Fonte: http://windows.microsoft.com/pt-br/windows7/Keyboard-shortcutsfo
Nenhum comentário:
Marcadores:
Boa Dica,
Windows
Sites Confiáveis
Descubra qual site é confiável e qual não é, basta acessar o site do Norton Safe Web(http://safeweb.norton.com/). Servidores que analisam sites para ver como eles afetarão você e seu computador.
O que é o Norton Safe Web?
Todos sabem que a Internet é imensa, que há muitas ameaças on-line como vírus, phishing e spyware, e que há muitos sites de mau gosto por aí, sites que tentarão enganá-lo, roubar os números ou senhas de seu cartão de crédito ou, até mesmo, travar seu computador. No momento em que você visita um site, normalmente é tarde demais. O dano foi causado, você foi enganado. Portanto, como descobrir se um site é um risco à segurança antes de visitá-lo?
Confira: http://safeweb.norton.com/
2 comentários:
Marcadores:
Boa Dica
Gravador de Passos para Reprodução de Problemas
Como uso o Gravador de Passos para Reprodução de Problemas?
Você pode usar o Gravador de Passos para Reprodução de Problemas
para capturar automaticamente os passos executados em um computador, incluindo
uma descrição do texto de onde você clicou e uma imagem da tela durante cada
clique (chamado de captura de tela). Depois de capturar esses passos, você pode
salvá-los em um arquivo que pode ser utilizado por um profissional de suporte ou
alguém que possa ajudá-lo com o problema do computador.
Para gravar e salvar os passos no computador
Nenhum comentário:
Marcadores:
Boa Dica,
Windows 7
Listar todas as contas de computador no Active Directory
Retorna o nome e local para todas as contas de computador no Active Directory.
Script Code
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select Name, Location from 'LDAP://DC=fabrikam,DC=com' " _
& "Where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value
Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value
objRecordSet.MoveNext
Loop
Fonte - Script Center
Version 3.0, November 2004
Version 3.0, November 2004
Nenhum comentário:
Marcadores:
VBScript
Adicione um computador a um domínio
Adiciona um computador local em um domínio e cria a conta do computador no Active Directory.
Script Code
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144
strDomain = "FABRIKAM"
strPassword = "ls4k5ywA"
strUser = "shenalan"
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\" & strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
Fonte - Script Center
Version 3.0, November 2004
Nenhum comentário:
Marcadores:
VBScript
Ativar um servidor de catálogo global
Ativar um servidor de catálogo global no controlador de domínio atl-dc-01.
strComputer = "atl-dc-01"
Const NTDSDSA_OPT_IS_GC = 1
Set objRootDSE = GetObject("LDAP://" & strComputer & "/RootDSE")
strDsServiceDN = objRootDSE.Get("dsServiceName")
Set objDsRoot = GetObject _
("LDAP://" & strComputer & "/" & strDsServiceDN)
intOptions = objDsRoot.Get("options")
If (intOptions And NTDSDSA_OPT_IS_GC) = FALSE Then
objDsRoot.Put "options" , intOptions Or NTDSDSA_OPT_IS_GC
objDsRoot.Setinfo
End If
Fonte - Script Center
Version 3.0, November 2004
Nenhum comentário:
Marcadores:
VBScript
Desativar um servidor de catálogo global
Desativa o serviço de catálogo global no controlador de domínio atl-dc-01.
strComputer = "atl-dc-01"
Const NTDSDSA_OPT_IS_GC = 1
Set objRootDSE = GetObject("LDAP://" & strComputer & "/rootDSE")
strDsServiceDN = objRootDSE.Get("dsServiceName")
Set objDsRoot = GetObject _
("LDAP://" & strComputer & "/" & strDsServiceDN)
intOptions = objDsRoot.Get("options")
If intOptions And NTDSDSA_OPT_IS_GC Then
objDsRoot.Put "options", intOptions Xor NTDSDSA_OPT_IS_GC
objDsRoot.Setinfo
End If
Fonte - Script Center
Version 3.0, November 2004
Version 3.0, November 2004
Nenhum comentário:
Marcadores:
VBScript
Excluir uma conta de computador
Exclui uma conta de computador no Active Directory.
Script Code
strComputer = "atl-pro-040"
set objComputer = GetObject("LDAP://CN=" & strComputer & _
",CN=Computers,DC=fabrikam,DC=com")
objComputer.DeleteObject (0)
Fonte - Script Center
Version 3.0, November 2004
Version 3.0, November 2004
Nenhum comentário:
Marcadores:
VBScript
Crie uma conta de computador para um usuário específico
Cria e habilita uma conta de computador no Active Directory. Um usuário específico, autenticado pode então usar essa conta para adicionar sua estação de trabalho ao domínio.
Script Code
strComputer = "atl-pro-002"
strComputerUser = "fabrikam\lewjudy"
Const ADS_UF_PASSWD_NOTREQD = &h0020
Const ADS_UF_WORKSTATION_TRUST_ACCOUNT = &h1000
Const ADS_ACETYPE_ACCESS_ALLOWED = &h0
Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &h5
Const ADS_FLAG_OBJECT_TYPE_PRESENT = &h1
Const ADS_RIGHT_GENERIC_READ = &h80000000
Const ADS_RIGHT_DS_SELF = &h8
Const ADS_RIGHT_DS_WRITE_PROP = &h20
Const ADS_RIGHT_DS_CONTROL_ACCESS = &h100
Const ALLOWED_TO_AUTHENTICATE = _
"{68B1D179-0D15-4d4f-AB71-46152E79A7BC}"
Const RECEIVE_AS = "{AB721A56-1E2f-11D0-9819-00AA0040529B}"
Const SEND_AS = "{AB721A54-1E2f-11D0-9819-00AA0040529B}"
Const USER_CHANGE_PASSWORD = _
"{AB721A53-1E2f-11D0-9819-00AA0040529b}"
Const USER_FORCE_CHANGE_PASSWORD = _
"{00299570-246D-11D0-A768-00AA006E0529}"
Const USER_ACCOUNT_RESTRICTIONS = _
"{4C164200-20C0-11D0-A768-00AA006E0529}"
Const VALIDATED_DNS_HOST_NAME = _
"{72E39547-7B18-11D1-ADEF-00C04FD8D5CD}"
Const VALIDATED_SPN = "{F3A64788-5306-11D1-A9C5-0000F80367C1}"
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Computers," & _
objRootDSE.Get("defaultNamingContext"))
Set objComputer = objContainer.Create _
("Computer", "cn=" & strComputer)
objComputer.Put "sAMAccountName", strComputer & "$"
objComputer.Put "userAccountControl", _
ADS_UF_PASSWD_NOTREQD Or ADS_UF_WORKSTATION_TRUST_ACCOUNT
objComputer.SetInfo
Set objSecurityDescriptor = objComputer.Get("ntSecurityDescriptor")
Set objDACL = objSecurityDescriptor.DiscretionaryAcl
Set objACE1 = CreateObject("AccessControlEntry")
objACE1.Trustee = strComputerUser
objACE1.AccessMask = ADS_RIGHT_GENERIC_READ
objACE1.AceFlags = 0
objACE1.AceType = ADS_ACETYPE_ACCESS_ALLOWED
Set objACE2 = CreateObject("AccessControlEntry")
objACE2.Trustee = strComputerUser
objACE2.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objACE2.AceFlags = 0
objACE2.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE2.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE2.ObjectType = ALLOWED_TO_AUTHENTICATE
Set objACE3 = CreateObject("AccessControlEntry")
objACE3.Trustee = strComputerUser
objACE3.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objACE3.AceFlags = 0
objACE3.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE3.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE3.ObjectType = RECEIVE_AS
Set objACE4 = CreateObject("AccessControlEntry")
objACE4.Trustee = strComputerUser
objACE4.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objACE4.AceFlags = 0
objACE4.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE4.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE4.ObjectType = SEND_AS
Set objACE5 = CreateObject("AccessControlEntry")
objACE5.Trustee = strComputerUser
objACE5.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objACE5.AceFlags = 0
objACE5.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE5.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE5.ObjectType = USER_CHANGE_PASSWORD
Set objACE6 = CreateObject("AccessControlEntry")
objACE6.Trustee = strComputerUser
objACE6.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objACE6.AceFlags = 0
objACE6.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE6.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE6.ObjectType = USER_FORCE_CHANGE_PASSWORD
Set objACE7 = CreateObject("AccessControlEntry")
objACE7.Trustee = strComputerUser
objACE7.AccessMask = ADS_RIGHT_DS_WRITE_PROP
objACE7.AceFlags = 0
objACE7.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE7.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE7.ObjectType = USER_ACCOUNT_RESTRICTIONS
Set objACE8 = CreateObject("AccessControlEntry")
objACE8.Trustee = strComputerUser
objACE8.AccessMask = ADS_RIGHT_DS_SELF
objACE8.AceFlags = 0
objACE8.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE8.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE8.ObjectType = VALIDATED_DNS_HOST_NAME
Set objACE9 = CreateObject("AccessControlEntry")
objACE9.Trustee = strComputerUser
objACE9.AccessMask = ADS_RIGHT_DS_SELF
objACE9.AceFlags = 0
objACE9.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE9.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE9.ObjectType = VALIDATED_SPN
objDACL.AddAce objACE1
objDACL.AddAce objACE2
objDACL.AddAce objACE3
objDACL.AddAce objACE4
objDACL.AddAce objACE5
objDACL.AddAce objACE6
objDACL.AddAce objACE7
objDACL.AddAce objACE8
objDACL.AddAce objACE9
objSecurityDescriptor.DiscretionaryAcl = objDACL
objComputer.Put "ntSecurityDescriptor", objSecurityDescriptor
objComputer.SetInfo
Version 3.0, November 2004
Nenhum comentário:
Marcadores:
VBScript
Copiar uma conta de computador do Active Directory
Recupera os atributos de um objeto de computador existente e copia os atributos para um novo objeto de computador criado pelo script.
Set objCompt = _
GetObject("LDAP://cn=Computers,dc=NA,dc=fabrikam,dc=com")
Set objComptCopy = objCompt.Create("computer", "cn=SEA-SQL-01")
objComptCopy.Put "sAMAccountName", "sea-sql-01"
objComptCopy.SetInfo
Set objComptTemplate = GetObject _
("LDAP://cn=SEA-PM-01,cn=Computers,dc=NA,dc=fabrikam,dc=com")
arrAttributes = Array("description", "location")
For Each strAttrib in arrAttributes
strValue = objComptTemplate.Get(strAttrib)
objComptCopy.Put strAttrib, strValue
Next
objComptCopy.SetInfo
Fonte - Script Center
Version 3.0, November 2004
Nenhum comentário:
Marcadores:
VBScript
Windows Explorer painel esquerdo pisca em unidades de rede mapeadas
O problema de flicker (piscadas) no Windows Explorer pode ser causado quando você visualiza unidades locais ou unidades de rede mapeadas em uma instalação do Windows XP. O painel esquerdo (árvore de pastas) ou exibição de árvore pode piscar constantemente ou atualizar a estrutura de diretórios inteira, com velocidades que variam de alguns segundos a cada poucos minutos. Isso ocorre devido aos servidores baseados no Windows que continuam a comunicar as alterações ao sistema de arquivos baseado no Windows XP. Além disso, o software antivírus ou outros softwares de terceiros maliciosos podem também causar essa cintilação excessiva, atualizando constantemente a pasta ou árvore de diretório no servidor ao qual os clientes estão conectados.Para resolver esse problema, siga os seguintes passos:
Nenhum comentário:
- Faça login como administrador no registro da máquina.
- Vá para chave de registro: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer
- Clique com o botão direito do mouse em Explorer e crie um novo Valor DWORD chamado NoRemoteRecursiveEvents e defina o valor como 1.
- Reinicie o Windows Explorer.
Marcadores:
Windows XP
Audite as contas que foram adicionadas no grupo administradores
VBScript para auditar as contas que foram adicionadas no grupo administrador. Esse script ler o log de segurança do windows e em seguida informa quem foi adicionado no grupo administrador e quem adicionou. Essa consulta é realizada pelo ID de evento 636 para o Windows XP e o ID 4732 para o Windows7. O resultado é gerado em um arquivo TXT salvo na pasta "c:\LOG_SEG" na linha 35. Para conferir copie o código a baixo e cole no Notepad, em seguida salve como Nome.VBS'==========================================================================
' LINGUAGEM: VBScript'
' NAME: CABRUNCO - VERSÃO: 1.2
' AUTHOR: DICAS QUE FUNFA
' DATE : 00/08/2012
' by: http://dicasquefunfa.com.br
'==========================================================================
Option Explicit
'Menu----------------------------------------------
Dim objmenu, username, wshshell, fso
'--------------------------------------------------
Dim objFSO, objFolder, objFile, objWMI, objItem, objShell
Dim strComputer, strFileName, strFileOpen, strFolder, strPath
Dim intEvent, intNumberID, intRecordNum, colLoggedEvents
Dim intEventType, strLogType
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
' --------------------------------------------------------
' Defini o nome da pasta e do arquivo
strComputer = InputBox("Digite o nome do computador", "CABRUNCO Caça as Bruxas e Não-Conformidades")
strFileName = "\Log_Seg.txt"
strFolder = "C:\LOG_SEG"
strPath = strFolder & strFileName
' -----------------------------------------------------
' Seção para criar a pasta e salvar o arquivo.
' Criar o File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
' strFolder, Verifica se a pasta existe
If objFSO.FolderExists(strFolder) Then
Set objFolder = objFSO.GetFolder(strFolder)
Else
Set objFolder = objFSO.CreateFolder(strFolder)
WScript.Echo "Pasta Criada Com Sucesso! " & strFolder
End If
If objFSO.FileExists(strFolder & strFileName) Then
Set objFolder = objFSO.GetFolder(strFolder)
Else
Set objFile = objFSO.CreateTextFile(strFolder & strFileName)
Wscript.Echo "Arquivo criado com Sucesso! " & strFolder & strFileName
End If
' --------------------------------------------------
' Comandos vitais
set objFile = nothing
set objFolder = nothing
' ----------------------------------------------------
' Escreve no arquivo
Wscript.Echo " Pressione OK e aguarde 30 segundos "
Set strFileOpen = objFso.CreateTextFile(strPath, True)
' ----------------------------------------------------------
Set objWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Security)}!\\" _
& strComputer & "\root\cimv2")
Set colLoggedEvents = objWMI.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'Security' AND EventCode = '636' or EventCode = '4732'" )
'------------------------------------------------------------------------------------------
For Each objItem in colLoggedEvents
strFileOpen.WriteLine("Category: " & objItem.Category _
& " string " & objItem.CategoryString)
strFileOpen.WriteLine("ComputerName: " & objItem.ComputerName)
strFileOpen.WriteLine("Data: " & objItem.TimeWritten)
strFileOpen.WriteLine("Logfile: " & objItem.Logfile _
& " source " & objItem.SourceName)
strFileOpen.WriteLine("EventCode: " & objItem.EventCode)
strFileOpen.WriteLine("EventType: " & objItem.EventType)
strFileOpen.WriteLine("Type: " & objItem.Type)
strFileOpen.WriteLine("User: " & objItem.User)
strFileOpen.WriteLine("Message: " & objItem.Message)
strFileOpen.WriteLine (" ")
intRecordNum = intRecordNum +1
Next
'Confirma se o script foi concluído e abre o arquivo
Set objShell = CreateObject("WScript.Shell")
objShell.run ("Explorer" &" " & strPath & "\" )
'-------------------------------------------------------------------
WScript.Quit
Nenhum comentário:
Marcadores:
VBScript