DicasQueFunfa

Caso você tenha a necessidade de criar um atalho na Área de Trabalho dos seus usuário em sua rede, vide como faz usando VBScript. No exemplo abaixo, será criado um atalho na sua área de trabalho com o nome "Dicas Que Funfa". Esse atalho será aberto com o Internet Explorer que vai direto para o blog www.dicasquefunfa.com.br. Set objShell = CreateObject("WScript.Shell") strDesktop = objShell.SpecialFolders("Desktop") Set objLink = objShell.CreateShortcut(strDesktop & "\ DicasQueFunfa .lnk") objLink.TargetPath = " C:\Program Files\Internet Explorer\iexplore.exe " objLink.Arguments = " http://www.dicasquefunfa.com.br /" objLink.WorkingDirectory = "%HOMEDRIVE%%HOMEPATH%" objLink.IconLocation = " C:\Program Files\Internet Explorer\iexplore.exe , 2" objLink.Description = " Dicas Que Funfa! " objLink.Save Para faze as alterações desejada, pasta mudar a parte em negrito. Exemplo utiliza

On some computers does not come or deleted information such as make/model of your computer. With that you lose time when you need this information. To resolve this problem, see the Script which tells the manufacturer, model and description from your computer. To create this script follow the step listed below: 1. open Notepad 2. copy the code below, then paste into Notepad: '========================================================================== ' LANGUAGE: VBScript ' ' NAME: Info-PC version: 1.0 ' AUTHOR: TIPS THAT FUNFA ' DATE: 12/22/2012 by: http://dicasquefunfa.com.br '========================================================================== strComputer = "." Set objWMIService = GetObject ("winmgmts:" _ & "{impersonationLevel = impersonate}! \" & strComputer & "\root\cimv2") Set objWMIService = colSoftware. _ ExecQuery ("Select * from Win32_ComputerSystem") Fo

Em alguns computadores não vem ou apagou as informações como marca/modelo do seu computador. Com isso você perde tempo quando precisar dessas informações. Para resolver esse problema de forma pratica, veja o Script que informa o fabricante, modelo e descrição do seu computador. Para criar esse script siga o passo mencionados logo abaixo: 1. Abra o Bloco de Notas 2. Copie o código abaixo e em seguida cole no Bloco de Notas: '========================================================================== ' LINGUAGEM: VBScript' ' NAME:  Info-PC VERSÃO: 1.0 ' AUTHOR: DICAS QUE FUNFA ' DATE : 22/12/2012 ' by: http://dicasquefunfa.com.br '==========================================================================     strComputer = "."     Set objWMIService = GetObject("winmgmts:" _     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")     Set colSoftware = objWMIService.Exec

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

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, objFo

Vamos lhe mostrar um script que tem uma grande utilidade no ambiente de trabalho dos Técnicos de Apoio ao Usuário. O objetivo desse script é executar algumas tarefas com privilégios administrativos.  Obs. (Excelente ferramenta para quem tem Windows XP com as versões do IE atualizado e impede abrir o IE no modo "Executar Como"  Veja o Script aqui: '======================================================================== ' LINGUAGEM: VBScript' ' NAME: ECAD' VERSÃO: 1.0 ' AUTHOR: DICAS QUE FUNFA ' DATE : 10/10/2011 ' by: http://dicasquefunfa.com.br '======================================================================== Option Explicit Dim objmenu, username, wshshell, fso Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Username = InputBox("Entre com sua conta de Administrador (ex: Admin)", "ECAD - EXECUTAR COMO Admin - by Di