✔ Programação GLOBAL®: fevereiro 2017

Principais Tendências de Análises de Dados em 2017

Há muito interessante em matérias que falam sobre a análise de dados e sua tendência. O investimento em Business Intelligence e Análises foi extremamente elevada e continua a crescer a um ritmo rápido. É possível que 2017 seja um dos anos mais emocionantes, onde o mercado de Análises moldarão uma série de eventos relacionados aos negócios e além disso. Convido-o a ler sobre aquelas, que acredito, serão as principais tendências de investimento em 2017.

Como sempre, estas são apenas previsões, e o futuro sobre eles mostrará se são mesmo realistas. Independentemente dos exatos resultados dessa especulação para o mercado de Análises em 2017, este ano certamente será um momento interessante para o cenário de negócios, e vamos precisar esperar para ver o impacto das Análises em moldar nossa indústria.

Série Big Data

Business de Big Data

Soluções de Big Data

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

Exponha os segredos do sistema WMI API com o VBA

A API WMI ( Windows Management Instrumentation ) expõe uma grande variedade de informações dos PCs, incluindo aqueles computadores e servidores que estão remotos. Expor tais técnicas pretende automatizar o WMI como um meio de automatizar as tarefas administrativas nos computadores remotos. Segue uma lista curta de coisas que o WMI pode fazer.

Inicia um processo em um computador remoto.
Agenda um processo para ser executado em horários específicos em dias específicos.
Reinicia um computador remotamente.
Consulta os logs de eventos do Windows em um computador local ou remoto.
Obtém uma lista de computadores locais ou remotos de:

Aplicações
Componentes de Hardware
Discos, Capacidades e Espaço Livre
Usuários locais e de domínio
Impressoras e Configurações de Impressora
Configurações de rede

Com o VBA, o Excel pode acessar o WMI e se tornar uma ferramenta poderosa para técnicos de PC, administradores de rede e auditores de sistema

Quer um vislumbre?

Segue uma pequena rotina que lista a configuração do adaptador de rede do seu PC. Carregue-o num módulo. Execute-o. Agora considere que olhar para o adaptador de rede WMI poderá fazer muito mais do que apenas isso (e isso sim, é assustador).

Sub WMI()

Dim oWMISrvEx As Object 'SWbemServicesEx

Dim oWMIObjSet As Object 'SWbemServicesObjectSet

Dim oWMIObjEx As Object 'SWbemObjectEx

Dim oWMIProp As Object 'SWbemProperty

Dim sWQL As String 'WQL Statement

Dim n As Long 'Generic Counter

sWQL = "Select * From Win32_NetworkAdapterConfiguration"

Set oWMISrvEx = GetObject("winmgmts:root/CIMV2")

Set oWMIObjSet = oWMISrvEx.ExecQuery(sWQL)

For Each oWMIObjEx In oWMIObjSet

'Put a STOP here then View > Locals Window to see all properties

If Not IsNull(oWMIObjEx.IPAddress) Then

Debug.Print "IP:"; oWMIObjEx.IPAddress(0)

Debug.Print "Host name:"; oWMIObjEx.DNSHostName

For Each oWMIProp In oWMIObjEx.Properties_

If IsArray(oWMIProp.Value) Then

For n = LBound(oWMIProp.Value) To UBound(oWMIProp.Value)

Debug.Print oWMIProp.Name & "(" & n & ")", oWMIProp.Value(n)

Next

Else

Debug.Print oWMIProp.Name, oWMIProp.Value

End If

Next

End If

Next

End Sub

Quer ver mais?

Aqui está uma planilha que facilita a exploração de várias centenas de classes contendo informações sobre a CPU, unidades de disco, memória, sistema operacional, aplicativos, usuários e muito, muito mais. E pode consultar PCs e também servidores remotos, supondo que tenha as credenciais: WMI Query.xlsm.

Usos do WMI Query.xlsm

Inventário de todos os PCs em uma rede incluindo todo o hardware e software usado:

Win32_SystemEnclosure - Fabricante do PC e número de série
Win32_LogicalDisk - Discos com capacidades e espaço livre.
Win32_Processor - Especificações do CPU
Win32_PhysicalMemoryArray - RAM / tamanho da memória instalada
Win32_VideoController - Adaptador gráfico e configurações
Win32_OnBoardDevice - Dispositivos da placa -mãe
Win32_OperatingSystem - Qual versão do Windows com Número de Série
WIn32_Printer - Impressoras instaladas
Win32_Product - Software instalado

WIn32_Account - Listar todas as contas de usuário em um PC ou domínio
Win32_ComputerSystem - Veja quem está usando um PC remoto (também Win32_LoggedOnUser )
Win32_BaseService - Listar os serviços em execução (ou interrompidos ) em qualquer PC, juntamente com o caminho do serviço e o nome do arquivo.
E centenas de coisas mais!

Leia as referências abaixo para saber mais sobre o que esta API pode fazer.

Introduções:
Introdução ao Scripting: http://technet.microsoft.com/en-us/scriptcenter/dd940112.aspx
Script de Sesame: http://technet.microsoft.com/en-us/library/ee176991.aspx
WMI Introdução: http://msdn.microsoft.com/en-us/library/aa394582(v=vs.85).aspx
ADSI Scripting Primer: http://technet.microsoft.com/library/ee156524.aspx
Scripting Guys: http://blogs.technet.com/b/heyscriptingguy/archive/2005/06/28/how-can-i-list-all-the-attributes-used-by-the-computer-class-in -active-directory.aspx

Referências:
WMI Scripting Primer: http://technet.microsoft.com/library/ee156560.aspx
WMI Introdução: http://msdn.microsoft.com/en-us/library/aa394582(v=vs.85).aspx

Referência WMI: http://msdn.microsoft.com/en-us/library/aa394572(v=vs.85).aspx
WMI Win32 Classes: http://msdn.microsoft.com/en-us/library/aa394084(v=vs.85).aspx
Objetos da API de script WMI: http://msdn.microsoft.com/en-us/library/aa393259(v=vs.85).aspx
Método WMI ExecQuery: http://msdn.microsoft.com/en-us/library/aa393866(v=vs.85).aspx

Propriedades da classe WMI NetworkAdapterConfiguration http://msdn.microsoft.com/en-us/library/aa394217(v=vs.85).aspx

Exemplos de script:
Exemplos de Dan Elgaard: http://www.excelgaard.dk/Lib/USERINFO/
Exemplos de script WMI: http://msdn.microsoft.com/en-us/library/aa394585(v=vs.85).aspx

Consulta WMI por exemplo: http://www.codeproject.com/Articles/46390/WMI-Query-Language-by-Example
Galeria Technet: http://gallery.technet.microsoft.com/scriptcenter/b03c3611-36eb-4979-baf1-432e53c43f93
Active Directory: http://www.billrowell.com/2009/09/10/properties-in-a-active-directory-computer-object/

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

VBA Word - Formatando o Texto

With Selection.Font
' the Latin text font name and size...
        .Name = "Verdana"
        .Size = 12
' Bold and Italic are the Font Style...
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
' The following are the font effects...
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = True
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
' Character spacing...
        .Spacing = -1
        .Scaling = 100
        .Position = -2
        .Kerning = 12
' One of the available Annimation effects.
' Can be one of the following...
' wdAnimationBlinkingBackground
' wdAnimationLasVegasLights
' wdAnimationMarchingBlackAnts
' wdAnimationMarchingRedAnts
' wdAnimationShimmer
' wdAnimationSparkleText
' wdAnimationSparkleText
        .Animation = wdAnimationNone
The font, size, and style of Bidirectional fonts.
        .SizeBi = 12
        .NameBi = "Tahoma"
        .BoldBi = False
        .ItalicBi = False
    End With

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

Conectando-se ao DB2

Abaixo está uma pequena rotina VBA executada no MS Excel para consultar uma tabela usando o driver de ODBC. Precisa limpar um pouco, declarar minhas variáveis, etc, mas funciona.

Eu sempre achei difícil deixar um exemplo completo disso na Web. Tenho certeza que existe algum exemplo completo disso por aí, mas quis deixar minha contribuição breve. Essa versão é boa devido ao usuário precisar de uma conexão ODBC em sua máquina. Automaticamente limitando o acesso cliente a um login que deva funcionar.

Sub transfer()

Dim varState As String

Set CS = CreateObject(“ADODB.Connection”)Set RS = CreateObject(“ADODB.Recordset”)

‘Retrieve values from Cells on the sheet to use as selections in the query belowvarState = ActiveSheet.Range(“C2”).ValuevarFrom_Date = ActiveSheet.Range(“B3”).ValuevarTo_Date = ActiveSheet.Range(“B4”).Value‘ ISeries connection String‘ConnectString = “Driver={ISeries Access ODBC Driver};System=10.1.4.1;Uid=xxxxx;Pwd=xxxxx;Library=PWRDTA41;QueryTimeout=0”ConnectString = “Driver={ISeries Access ODBC Driver};System=10.1.4.1;Library=PWRDTA41;QueryTimeout=0”

CS.Open (ConnectString)

SqlString = “SELECT hhicusn , C.FFDCNMB, C.FFDSTEB, hhiclsn, SUM(hhiqysa), SUM(hhiexsn), SUM(hhiexac) ” & _” FROM pwrdta41.hhiorddp ” & _” left outer join PWRDTA41.FFDCSTBP c” & _” ON hhicusn = c.ffdcusn and” & _” hhidivn = c.ffddivn and” & _” c.ffdcmpn = hhicmpn and” & _” c.ffddptn = hhidptn” & _” WHERE hhidtei between ” & varFrom_Date & ” and ” & varTo_Date & _” and hhiclsn = ‘105’ and c.ffdsteb = ‘” & varState & “‘” & _” GROUP BY hhicusn, c.ffdcnmb, c.ffdsteb, hhiclsn” & _” ORDER BY hhicusn”

‘Message box can be used for debugging the SQL statement‘MsgBox (SqlString)

RS.Open SqlString, CS

‘Clear Previous contents of CellsCells.SelectActiveSheet.Range(“A7:Z65535”).ClearContents‘copy the Recordset to excel sheet starting at A7ActiveSheet.Range(“A7”).CopyFromRecordset RS

‘Close Connection and RecordSetRS.CloseCS.Close‘Reset cell back to A1ActiveSheet.Range(“A1”).Select

End Sub

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

Conectando-se ao Oracle

Use o código abaixo para se conectar ao Banco de Dados Oracle:

Sub Ora_Connection()
Dim rs As ADODB.Recordset Dim query As String Set con = New ADODB.Connection Set rs = New ADODB.Recordset '---- Replace below highlighted names with the corresponding values strCon = "Driver={Microsoft ODBC for Oracle}; " & _ "CONNECTSTRING=(DESCRIPTION=" & _ "(ADDRESS=(PROTOCOL=TCP)" & _ "(HOST=Your Host Name)(PORT=Port Number))" & _ "(CONNECT_DATA=(SID=SID of your Database))); uid=User ID; pwd=Password;" '--- Open the above connection string. con.Open (strCon) '--- Now connection is open and you can use queries to execute them. '--- It will be open till you close the connection
End Sub

Dim con As ADODB.Connection

Oracle Connection String with Service:

Sub Ora_Connection()

Dim con As ADODB.Connection Dim rs As ADODB.Recordset Dim query As String Set con = New ADODB.Connection Set rs = New ADODB.Recordset '--- Replace below highlighted names with the corresponding values strCon = "Driver={Microsoft ODBC for Oracle}; " & _ "CONNECTSTRING=(DESCRIPTION=" & _ "(ADDRESS=(PROTOCOL=TCP)" & _ "(HOST=Your Host Name)(PORT=Enter Port Number))" & _ "(CONNECT_DATA=(SERVICE_NAME=database))); uid=Enter User ID; pwd=Enter Password;" '--- Open the above connection string. con.Open (strCon) '--- Now connection is open and you can use queries to execute them. '--- It will be open till you close the connection

End Sub

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

Conectando-se ao SQL Server - Connect to SQL Server

Não se esqueça:
Tools -> References -> Microsoft ActiveX Data Objects 2.8 Library

Sub ConnectSqlServer()

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sConnString As String

' Create the connection string.
sConnString = "Provider=SQLOLEDB;Data Source=INSTANCE\SQLEXPRESS;" & _
"Initial Catalog=MyDatabaseName;" & _
"Integrated Security=SSPI;"

' Create the Connection and Recordset objects.
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

' Open the connection and execute.
conn.Open sConnString
Set rs = conn.Execute("SELECT * FROM Table1;")

' Check we have data.
If Not rs.EOF Then
' Transfer result.
Sheets(1).Range("A1").CopyFromRecordset rs
' Close the recordset
rs.Close
Else
MsgBox "Error: No records returned.", vbCritical
End If

' Clean up
If CBool(conn.State And adStateOpen) Then conn.Close
Set conn = Nothing
Set rs = Nothing

End Sub

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com