Ba tche
Boa noite
Galera, estou atraz de um script que ao ser executado em uma estaçao, o mesmo gere um arquivo de log no qual o mesmo coloque o ip, mascara, gw, dns e wins, e se o ip é fixo ou dhcp, e no mesmo log ele grave os software e patchs instalado sobre o Windows, andei batendo a cabeça mais ba tche na consegui chegar em algo legal.
Alguem tem algo assim pronto ou alguem pode me ajudar...
Valeu galera.
veja se Ajuda...
Lembre-se de colocar a saida do Txt na rede.
'Grava softwares, atualizações e dados do IP
On Error Resume Next
Strcomputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'Obtem o IP que está em uso.
Dim strProperties, CompNET, IPConfig, Ip, FSO, Arq, i
strProperties = "Description, MACAddress, IPAddress, IPSubnet, DefaultIPGateway, DNSServerSearchOrder, DNSDomain, DNSDomainSuffixSearchOrder, DHCPEnabled, DHCPServer, WINSPrimaryServer, WINSSecondaryServer, ServiceName"
Set CompNET = objwmiservice.execquery("SELECT * FROM Win32_NetworkAdapterConfiguration")
For Each IPConfig In compnet
If Not IsNull(IPConfig.IPAddress) Then
For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
Ip = IPConfig.IPAddress(i)
Dhcp = IPConfig.DHCPServer
Dns = IPConfig.DNSServerSearchOrder
Next
End If
Next
'Lista as atualizações
Set CompHotFix = objwmiservice.execquery("Select * FROM Win32_QuickFixEngineering")
For Each objUpd In CompHotFix
HotFix = ObjUpd.HotFixID
HotFixDescription = ObjUpd.Description
HotFixInstallDate = ObjUpd.InstalledOn
strhotFix = strHotFix + "Nome: " & HotFix & " : Descrição: " & HotFixDescription & " : Data Instalação: " & HotFixInstallDate &vbcrlf
Next
Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
For Each objSoftware in colSoftware
Nome = objSoftware.Name
Versao = objSoftware.Version
Data = MID(objSoftware.InstallDate,7,2) & "/" & MID(objSoftware.InstallDate,5,2) & "/" & MID(objSoftware.InstallDate,1,4)
strSoftwares = strSoftwares + "Name: " & Nome & " : Versão: " & versao & " : Data Instalação: " & Data &vbcrlf
Next
'Incia gravação do LOG
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
strCompName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
'Cria o Arquivo
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set Arquivo = objFSO.CreateTextFile("c:\"&strCompName&".txt")
arquivo.writeline "--------------------Dados Terminal "&strCompname&"--------------------------"
arquivo.writeline "Configurações de rede: "
arquivo.writeline "IP :"&Ip
arquivo.writeline "Dhcp:"&Dhcp
arquivo.writeline "Dns:"&Dns
arquivo.writeline ""
arquivo.writeline ""
arquivo.writeline "Atualizações:"
arquivo.writeline strhotFix
arquivo.writeline ""
arquivo.writeline ""
arquivo.writeline "Softwares: "
arquivo.writeline strSoftwares
arquivo.writeline ""
arquivo.writeline ""
arquivo.writeline "Log Finalizado em: "&Date()&" --------------------------------------------"
arquivo.close()
[]s,
" Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
