none
Script para de logon RRS feed

Respostas

  • Segue exemplo (não teste vc tem que adaptar ao seu ambiente)

    set oShell=CreateObject ("WScript.shell")
    strVersion = oShell.RegRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\ProductName")
    
    Select Case strVersion
    	Case "Microsoft Windows XP"
    		'Coloque aqui o código para windows xp
    		
    	Case "Windows 7 Professional"
    		'Coloque aqui o co´digo para windows 7 pro
    		
    	Case "Microsoft Windows Server 2003"
    		'Coloque aqui o co´digo para windows 2003
    		
    		
    	Case else
    		'codigo para todos os casos nao especificados
    	
    end Select


    Fábio de Paula Junior


    terça-feira, 12 de novembro de 2013 14:14
    Moderador

Todas as Respostas

  • Bom dia Marcus!

    Quanto a questão da OU do computador e não o grupo que o usuário pertence...acredito que o gerenciamento terá problemas.

    Um exemplo bem simples mas muito importante. Voce propoe um remanejamento de terminais após uma análise de necessidade...pronto! Vai ter que configurar todos os remanejados no AD.

    Bom, eu acredito que o mais correto seria percorrer o do usuário....ex:

    • Usuário: Contoso
    • Grupos: Mkt, Contabilidade, Rh

    O mapeamento seria, das pastas, e das impressoras dos grupos.

    Bom, de qualquer forma...segue um exemplo de script por OU do computador. Para testar o script por favor utilize o um usuário com permissoes no servidor e de consulta no AD

    strContainer = "ou=Computers,ou=CORP"
    
    Set objFSO = CreateObject(“Scripting.FileSystemObject”)
    Set WshShell = WScript.CreateObject("WScript.Shell")
    
    strCompName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
    
    Set objItem = GetObject(“LDAP://cn=” & strCompName & “,” & strContainer & “,” & _
       objRootDSE.Get(“defaultNamingContext”))
    
    wscript.echo objItem.Get(“name")
    
    strmemberOf = objItem.GetEx("memberOf")
     For Each Item in strmemberOf
      wscript.echo “Member Of: ” & “,” & Item
     Next
    
    

    Quando for selecionar a ação do script quando encontrado, utilize a função CASE. Ex:

    Select Case objItem.Get(“name")
    Case "Mkt"
    
    'Seu codigo
    
    Case"Cont"
    
    'Seu Codigo
    
    Case"Inf"
    
    'Seu Codigo
    
    End Select
    
    
    

    Acredito que agora será apenas necessário você montar esse script conforme sua necessidade.

    Qualquer duvida, poste!

    []s,

     

     

     


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    terça-feira, 14 de junho de 2011 12:44
  • Marcellus bom dia.

    Eu preciso amarrar mesmo à computador e S.O a consulta, pois o usuário, precisará se logar em qualquer computador e o que será como ponteiro para determinar qual o script a ser solicitado para mostrar ao usuário será o S.O e a OU mesmo, tentei por Vlan e infelzimente não foi 100%, pois existem computadores com o Ip fixo de outra Vlan.

    Eu vi que para chamar a versão do Windows precisa fazer essa chamada na chave:

    set oShell=CreateObject ("WScript.shell")
    strVersion = oShell.RegRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\ProductName")
    strVersion = "Microsoft Windows XP"
    strVersion = "Windows 7 Professional"
    strVersion = "Microsoft Windows Server 2003"

    Infelizmente eu não sei como montar essa estrutura, vc pode me ajudar ?

    Como ficaria a estrutura do script ?

     

    Obrigado meu amigo!

     

    Marcus


    terça-feira, 14 de junho de 2011 13:11
  • Esqueci de citar que a minha estrutura contempla Windows Server 2003, Windows XP e Windows 7.

    Aguardo a força dos senhores!

    Um abraço!

     

    Marcus

    terça-feira, 14 de junho de 2011 14:56
  • Segue exemplo (não teste vc tem que adaptar ao seu ambiente)

    set oShell=CreateObject ("WScript.shell")
    strVersion = oShell.RegRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\ProductName")
    
    Select Case strVersion
    	Case "Microsoft Windows XP"
    		'Coloque aqui o código para windows xp
    		
    	Case "Windows 7 Professional"
    		'Coloque aqui o co´digo para windows 7 pro
    		
    	Case "Microsoft Windows Server 2003"
    		'Coloque aqui o co´digo para windows 2003
    		
    		
    	Case else
    		'codigo para todos os casos nao especificados
    	
    end Select


    Fábio de Paula Junior


    terça-feira, 12 de novembro de 2013 14:14
    Moderador