DicasQueFunfa

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/

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 Digite PSR na caixa de pesquisa e dê Enter para abrir. Clique em Iniciar Gravação . No computador, percorra os passos no computador para reproduzir o problema. Você pode pausar a gravação a qualquer momento e, posteriormente, continuar. Clique em Parar Gravação . Na caixa de diálogo Salvar como , digite um nome para o arquivo e clique em Salvar (o arquivo é salvo com a extensão de nome de arquivo .zip). Para

Descrição 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("Locatio

Descrição 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 -

Descrição 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

Descrição 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

Descrição 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

Descrição 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 = _     "

Descrição 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