Bom dia pessoal,
Sou novo por aqui e gostaria de conseguir uma ajuda com o vbscript.
Encontrei os dois em fóruns, e fiz algumas adaptações e ambos funcionam separadamente. Quando junto os dois, a segunda parte que envia email com anexo, apenas envia o email mas não anexa.
Poderiam me dar uma luz???
On Error Resume Next
'*** INVENTARIO - PARTE 1 ***
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
STRcomputer =objNetwork.ComputerName
STRlogin =objNetwork.UserName
STRTipoServer = "MS"
'Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objtextfile = objFSO.deleteFile("C:\DELL\inventario.HTML")
Set objtextfile = objFSO.CreateTextFile("C:\DELL\inventario.HTML", Forwritting)
Objtextfile.writeline "<html>"
Objtextfile.writeline "<!-----Inventario de Estações----->"
Objtextfile.writeline "<!-----Carlos Sathler----->"
Objtextfile.writeline "<!-----2013----->"
Objtextfile.writeline "<!-----Versão 1.8----->"
Objtextfile.writeline "<TFOOT STYLE='font-weight:bold; color:#FFFFFF'>"
Objtextfile.writeline "<TR>"
Objtextfile.writeline "<TD COLSPAN=5 ALIGN='center'>"
Objtextfile.writeline "</B>"
Objtextfile.writeline "</TR>"
Objtextfile.writeline "</TFOOT>"
Lin_log = 4
Set objNetwork = CreateObject("WScript.Network")
objtextfile.WriteLine "<center><a name='#menu'></center></a>"
objtextfile.WriteLine "<br>"
objtextfile.WriteLine "<center><H1><b> Inventario de Cliente </b></h1></center>"
objtextfile.WriteLine "<!WKS" & STRcomputer & "Fim_WKS>"
objtextfile.WriteLine "<center><H1><b>" & STRcomputer & "</b></h1></center>"
objtextfile.WriteLine "<center><H1><b>" & STRlogin & "</b></h1></center>"
'
Objtextfile.writeline "<Font face='arial'><ol>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#SO'>Sistema Operacional</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#proc'>Processadores</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#bios'>Bios e Hardware</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#rede'>Configurações de Rede</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#tcp'>Configurações TCP/IP</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#discos'>Configurações de Discos</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#controladores'>Placas Controladores</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#backup'>Unidade de Backup</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#usuarios'>Usuarios Locais</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#software'>Softwares Instalados</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#servicos'>Status dos Serviços</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#compartilhamentos'>Compartilhamentos Locais</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#impressora'>Impressoras Locais</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#portas'>Portas de Impressora</a></li></h5>"
Objtextfile.writeline "<Font face='arial'><h5><li><a href='#event'>Event Viewer</a></li></h5>"
Objtextfile.writeline "</ol></font>"
'
set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" _
& STRcomputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#SO'> Sistema Operacional</a></h2></b>"
For Each objItem In colItems
dtmConvertedDate.Value = objItem.InstallDate
dtmInstallDate = dtmConvertedDate.GetVarDate
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<!SO" & objItem.Caption & "Fim_SO>"
objtextfile.WriteLine "<Font face='arial'><li><pre>" & objItem.Caption & "</font>"
objtextfile.WriteLine "<Font face='arial'><li>Versão..............................: " & objItem.Version & "</font>"
objtextfile.WriteLine "<Font face='arial'><li>Service Pack....................: " & objItem.ServicePackMajorVersion & "</font>"
objtextfile.WriteLine "<Font face='arial'><li>Outras descrições...........: " & objItem.OtherTypeDescription & "</font>"
objtextfile.WriteLine "<Font face='arial'><li>Boot Device.....................: " & objItem.BootDevice & "</font>"
objtextfile.WriteLine "<Font face='arial'><li>Diretorio Instalação..........: " & objItem.WindowsDirectory & "</font>"
objtextfile.WriteLine "<Font face='arial'><li>Data de Instalação...........: " & dtmInstallDate & "</font>"
objtextfile.WriteLine "<Font face='arial'><li>Organização....................: " & objItem.Organization & "</font>"
objtextfile.WriteLine "<Font face='arial'><li>Usuario Registrado..........: " & objItem.RegisteredUser & "</font>"
objtextfile.WriteLine "<Font face='arial'><li>Serial Number..................: " & objItem.SerialNumber & "</font>"
Next
Set ZoneSet = GetObject("winmgmts:").InstancesOf ("Win32_TimeZone")
for each System in ZoneSet
objtextfile.WriteLine "<Font face='arial'><li>Time Zone........................:" & System.StandardName & "</font></pre>"
next
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "</font></ul>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
' Coletando Processadores
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#proc'> Processadores</a></h2></b>"
For Each objItem In colItems
objtextfile.WriteLine "<Font face='arial'><ul>"
objtextfile.WriteLine "<Font face='arial'><li>" & objItem.Description
Objtextfile.writeline "<!Processador>"
objtextfile.WriteLine "<Font face='arial'>" & objItem.Name
Objtextfile.writeline "<!Fim_Proc>"
objtextfile.WriteLine "<Font face='arial'>" & objItem.MaxClockSpeed & " MHZ"
objtextfile.WriteLine "</ul>"
Next
objtextfile.WriteLine "</ul></font>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
' Coletando Informações da BIOS
Set colBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS")
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><a name='#bios'>BIOS / Hardware</a></b>"
For Each objbios In colBIOS
objtextfile.WriteLine "<Font face='arial'><ul>"
objtextfile.WriteLine "<!Fabricante>"
objtextfile.WriteLine "<li><pre>Fabricante : " & objbios.Manufacturer
objtextfile.WriteLine "<!Fim_Fabricante>"
objtextfile.WriteLine "<!Serie>"
objtextfile.WriteLine "<li>Serie/Service Tag : " & objbios.SerialNumber
objtextfile.WriteLine "<!Fim_Serie>"
objtextfile.WriteLine "<li>" & objbios.Name
objtextfile.WriteLine "<li>Release Date : " & (Mid(objbios.ReleaseDate, 7, 2)) & "/" & (Mid(objbios.ReleaseDate, 5, 2)) & "/" & (Left(objbios.ReleaseDate, 4))
objtextfile.WriteLine "<li>SMBIOS Version : " & objbios.SMBIOSBIOSVersion
objtextfile.WriteLine "<li>BIOS Version : " & CStr(objbios.Version)
objtextfile.WriteLine "</ul>"
Next
' Coletando Modelo do Equipamento
Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer In colSettings
objtextfile.WriteLine "<ul><Font face='arial'>"
objtextfile.WriteLine "<!Modelo>"
objtextfile.WriteLine "<li><pre>Modelo Equipamento : " & objComputer.Model & "</pre>"
objtextfile.WriteLine "<!Fim_Modelo>"
objtextfile.WriteLine "</ul>"
Next
objtextfile.WriteLine "</ul></font>"
objtextfile.WriteLine "</ul>"
w_tipos = Array("Unknown", "Other", "DRAM,Synchronous DRAM", "Cache DRAM", "EDO,EDRAM", "VRAM", "SRAM", _
"RAM", "ROM", "Flash", "EEPROM", "FEPROM", "EPROM", "CDRAM", "3DRAM", "SDRAM", "SGRAM", _
"RDRAM", "DDR")
totalslots = 0
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2> Memória</h2></b>"
Set SlotMem = objWMIService.ExecQuery _
("Select * from Win32_PhysicalMemoryArray")
For Each objItem In SlotMem
totalslots = totalslots + objItem.MemoryDevices
Next
totalpentes = 0
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")
cont_mem=0
For Each objItem In colItems
objtextfile.WriteLine "<Font face='arial'><ul>"
objtextfile.WriteLine " <li>" & objItem.Tag
objtextfile.WriteLine " " & Int(objItem.Capacity / 1024 / 1024)
objtextfile.WriteLine " " & w_tipos(objItem.MemoryType)
objtextfile.WriteLine " " & objItem.BankLabel
objtextfile.WriteLine " " & "Ativa"
totalpentes = totalpentes + 1
objtextfile.WriteLine "</ul>"
cont_mem = cont_mem + objItem.Capacity
Next
objtextfile.WriteLine "<!Memoria" & Int(cont_mem / 1024 / 1024) & "Fim_Mem>"
For i = totalpentes + 1 To totalslots
objtextfile.WriteLine "<Font face='arial'><ul>"
objtextfile.WriteLine " <li> Physical Memory " & i - 1
objtextfile.WriteLine " Vazio"
objtextfile.WriteLine "</ul>"
Next
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_PageFileUsage",,48)
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<ul><br>"
objtextfile.WriteLine "<Font face='arial'><b> Arquivo de Paginação</b><br>"
objtextfile.WriteLine "<table border=2 width=500>"
objtextfile.WriteLine "<tr><td><center>localização</center></td><td><center>Tamanho</center></td><td><center>Utilização Atual</center></td><td><center>" & _
"Pico de Utilização</center></td></tr>"
For Each objItem In colItems
wlinha = " "
wlinha = "<center><tr><td>"
wlinha=wlinha & objItem.Description & "</td></center><td><center>"
wlinha=wlinha & objItem.AllocatedBaseSize & "MB" & "</td></center><td><center>"
wlinha=wlinha & objItem.CurrentUsage & "MB"& "</td></center><td><center>"
wlinha=wlinha & objItem.PeakUsage & "MB" & "</td></center></tr>"
objtextfile.WriteLine wlinha
Next
objtextfile.WriteLine "</table>"
objtextfile.WriteLine "</ul>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
' Coletando Placas de Rede
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#rede'> Componentes de Rede</a></h2></b>"
w_Status = Array("Device is working properly.", _
"Device is not configured correctly.", _
"Windows cannot load the driver for this device.", _
"Driver for this device might be corrupted, or the system may be low on memory or other resources.", _
"Device is not working properly. One of its drivers or the registry might be corrupted.", _
"Driver for the device requires a resource that Windows cannot manage.", _
"Boot configuration for the device conflicts with other devices.", _
"Cannot filter.", "Driver loader for the device is missing.", _
"Device is not working properly; the controlling firmware is incorrectly reporting the resources for the device.", _
"Device cannot start.", "Device failed.", "Device cannot find enough free resources to use.", _
"Windows cannot verify the device's resources.", "Device cannot work properly until the computer is restarted.", _
"Device is not working properly due to a possible re-enumeration problem.", _
"Windows cannot identify all of the resources that the device uses.", _
"Device is requesting an unknown resource type.", "Device drivers need to be reinstalled.", _
"Failure using the VxD loader.", "Registry might be corrupted.", _
"System failure. If changing the device driver is ineffective, see the hardware documentation. Windows is removing the device.", _
"Device is disabled.", "System failure. If changing the device driver is ineffective, see the hardware documentation.", _
"Device is not present, not working properly", _
"Windows is still setting up the device.", "Windows is still setting up the device.", _
"Device does not have valid log configuration.", "Device drivers are not installed.", _
"Device is disabled; the device firmware did not provide the required resources.", _
"Device is using an IRQ resource that another device is using.", _
"Device is not working properly; Windows cannot load the required device drivers.")
w_statusinfo = Array("Disconnected", "Connecting", "Connected", "Disconnecting", _
"Hardware Not present", "Hardware disabled", "Hardware malfunction", _
"Media disconnected", "Authenticating", "Authentication succeeded", _
"Authentication failed", "Invalid Address", "Credentials required")
Set colItems2 = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter") '
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<table border=2 width=1100>"
objtextfile.WriteLine "<tr><td><center>Tipo de Adaptador</center></td><td><center>Descriçao</center></td><td><center>Mac Address</center></td><td><center>" & _
"Fabricante</center></td><td><center>Status</center></td><td><center>Nome da Conexao</center></td><td><center>Velocidade</center></td></tr>"
For Each objItem In colItems2
If IsNull(objItem.AdapterType) then
wTipo = "-"
else
wTipo = objItem.AdapterType
end if
If IsNull(objItem.MACAddress) then
wMac = "- "
Else
wMac = objItem.MACAddress
end if
' If IsNull(objItem.StatusInfo) then
' wMac = "-"
' Else
' wMac = objItem.StatusInfo
' end if
If IsNull(objItem.NetConnectionID) Then
wconnection = "-"
Else
wconnection = objItem.NetConnectionID
end if
If IsNull(objItem.speed) Then
wvelocidade = "-"
Else
wvelocidade = objItem.speed
end if
objtextfile.WriteLine "<Font face='arial'><tr><td>" & wTipo & "</td><td>" & objItem.Description & "</td><td>" & _
wMac & "</td><td>" & objItem.Manufacturer & "</td><td >" & _
w_Status(objItem.ConfigManagerErrorCode) & "</td><td>" & wconnection & "</td><td>" & wvelocidade & "</td></tr>"
Next
objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
objtextfile.writeline "<li><b><h2><a name='#tcp'> Endereços TCP/IP</a></h2></b>"
Set colftp = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
objtextfile.writeline "</ul>"
'objtextfile.writeline "<table border=2 width=100%>"
'objtextfile.writeline "<tr><td><center>Placa de rede</center></td><td><center>Endereco TCP/IP</center></td><td><center>Mascara</center></td><td><center>" & _
'"Tipo IP</center></td><td><center>Default Gateway</center></td><td><center>DNS Server</center></td><td><center>Wins Server</center></td></tr>"
'Nome placa
For Each objftp In colftp
wlinha = " "
wlinha = "<table border=2 width=100% bgcolor=#666666>"
wlinha = wlinha + "<tr><td width=15%><center><b><font color=#FFFFFF>Placa</b></center></font></td><td><center><b><font color=#FFFFFF><!Nome_Pl" & objftp.Description & "Fim_Pl>" + objftp.Description + "</td></b></center></font><td><center><b><font color=#FFFFFF>"
'DHCP ou Estatico
If objftp.dhcpenabled Then
wlinha = wlinha + "IP Dinamico" + "</td></b></center></font><td>"
Else
wlinha = wlinha + "IP Estatico" + "</td></b></center></font><td>"
End If
wlinha = wlinha + "</table>"
wlinha = wlinha + "<table border=1 width=100%>"
'End_IP
wlinha = wlinha + "<tr><td width=15%>IP</td><td>"
strIP = 1
For Each StrIPaddress In objftp.IPAddress
wlinha = wlinha + "<!IP" & strIP & StrIPaddress & "Fim_IP" & strIP & ">" + StrIPaddress + "</td><td>"
strIP = strIP + 1
'objtextfile.writeline "<!End_IP" & StrIPaddress & "Fim_IP>"
Next
'Mascara
wlinha = wlinha + "<tr><td width=15%>Mascara</td><td>"
For Each strIPSubnet In objftp.IPSubnet
wlinha = wlinha + strIPSubnet + "</td><td>"
Next
'Gateway
wlinha = wlinha + "<tr><td width=15%>Gateway</td><td>"
For Each strDefaultIPGatewaY In objftp.DefaultIPGateway
If IsEmpty(strDefaultIPGatewaY) Then
wlinha = wlinha + "0.0.0.0" + "<br>"
Else
wlinha = wlinha + strDefaultIPGatewaY + "<br>"
End If
Next
wlinha = wlinha + "</td><td>"
'DNS
wlinha = wlinha + "<tr><td width=15%>DNS</td><td>"
For Each strDNSServer In objftp.DNSServerSearchOrder
If IsEmpty(strDNSServer) Then
wlinha = wlinha + "0.0.0.0" + "<br>"
Else
wlinha = wlinha + strDNSServer + "<br>"
End If
Next
wlinha = wlinha + "</td><td>"
'Wins
wlinha = wlinha + "<tr><td width=15%>Wins</td><td>"
If IsNull(objftp.WINSPrimaryServer) Then
wlinha = wlinha + "0.0.0.0" + "<br>"
Else
wlinha = wlinha + objftp.WINSPrimaryServer + "<br>"
End If
If IsNull(objftp.WINSSecondaryServer) Then
wlinha = wlinha + "0.0.0.0" + "</td><td>"
Else
wlinha = wlinha + objftp.WINSSecondaryServer + "</td><td>"
End If
wlinha = wlinha + "</table>"
objtextfile.writeline wlinha
Next
objtextfile.writeline "</table>"
objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#discos'> Discos Locais</a></h2></b>"
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<table border=2 width=400>"
objtextfile.WriteLine "<tr><td><center>Unidade</center></td><td><center>Tipo</center></td></tr>"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk")
For Each objDisk in colDisks
W_ID= objDisk.DeviceID
Select Case objDisk.DriveType
Case 1
W_ID1 = "Tipo de Disco não Detectado"
Case 2
W_ID1 = "Disco removível ou Disquete"
Case 3
W_ID1 = "Disco Rígido Local"
Case 4
W_ID1 ="Drive de Rede"
Case 5
W_ID1 = "Unidade de CD"
Case 6
W_ID1 ="RAM disk."
Case Else
W_ID1 = "Tipo de Disco não Detectado"
End Select
objtextfile.WriteLine "<tr><td><center>" & W_ID & "</center></td><td><center>" & W_ID1 & "</center></td></tr>"
Next
objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#discos'> Detalhe dos Discos Locais</a></h2></b>"
objtextfile.WriteLine "</ul>"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDiskDrives = objWMIService.ExecQuery ("Select * from Win32_DiskDrive")
strDisk = 1
For each objDiskDrive in colDiskDrives
objtextfile.WriteLine "<Font face='arial'><ul>"
objtextfile.WriteLine "<li><pre><b>Caption: </b>" & ltrim(objDiskDrive.Caption )
objtextfile.WriteLine "<li><b>Device ID: </b>" & ltrim(objDiskDrive.DeviceID )
objtextfile.WriteLine "<li><b>Interface Type: </b>" & ltrim(objDiskDrive.InterfaceType)
objtextfile.WriteLine "<li><b>Manufacturer: </b>" & ltrim(objDiskDrive.Manufacturer)
objtextfile.WriteLine "<li><b>Model: </b>" & ltrim(objDiskDrive.Model)
objtextfile.WriteLine "<li><b>Name: </b>" & ltrim(objDiskDrive.Name)
objtextfile.WriteLine "<li><b>Partitions: </b>" & ltrim(objDiskDrive.Partitions)
objtextfile.WriteLine "<li><b>SCSI Bus: </b>" & ltrim(objDiskDrive.SCSIBus)
objtextfile.WriteLine "<li><b>SCSI Logical Unit: </b>" & ltrim(objDiskDrive.SCSILogicalUnit)
objtextfile.WriteLine "<li><b>SCSI Port: </b>" & ltrim(objDiskDrive.SCSIPort)
objtextfile.WriteLine "<li><b>SCSI TargetId: </b>" & ltrim(objDiskDrive.SCSITargetId)
objtextfile.WriteLine "<!Disco" & strDisk & int(objDiskDrive.Size/1024/1024) & "Fim_Disco" & strDisk & ">"
objtextfile.WriteLine "<li><b>Size: </b>" & int(objDiskDrive.Size/1024/1024) & "MB"
objtextfile.WriteLine "<li><b>Status: </b>" & ltrim(objDiskDrive.Status)
objtextfile.WriteLine "</ul>"
strDisk = strDisk+1
Next
'
' Discos lógicos
Const HARD_DISK = 3
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#discos'> Partições</a></h2></b>"
Set colDiskDrives = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<table border=2 width=500>"
objtextfile.WriteLine "<tr><td><center>Unidade</center></td><td><center>Tamanho (MB)</center></td><td><center>Tipo Partiçao" & _
"</td><td><center>Espaço Livre(MB)</center></td></tr>"
For Each objdisk In colDiskDrives
objtextfile.WriteLine "<tr><td><center>" & objdisk.DeviceID & "</center></td><td><center>" & " " _
& Int(objdisk.Size / 1024 / 1024) & "</center></td><td><center>" & " " _
& objdisk.FileSystem & "</center></td><td><center>" _
& int(objDisk.FreeSpace/(1024*1024)) & "</center></td></tr>"
Next
objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#discos'> Unidade de CDROM</a></h2></b>"
objtextfile.WriteLine "</ul>"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive")
For Each objItem in colItems
objtextfile.WriteLine "<tr><td>" & objItem.Caption & "</td></td>"
Next
'
'Controladoras de Disco"
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#controladoras'> Controladoras de Disco</a></h2></b>"
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<table border=2 width=600>"
objtextfile.WriteLine "<tr><td><center>Controladora</center></td><td><center>Driver</center></td><td><center>Fabricante</center></td><td><center>Status</center></td></tr>"
Set wplaca = objWMIService.ExecQuery("Select * from Win32_SCSIController")
For Each objplaca In wplaca
objtextfile.WriteLine "<tr><td>" & objplaca.Name & "</td><td>" & " " _
& objplaca.DriverName & "</td><td>" & " " _
& objplaca.Manufacturer & "</td><td>" & " " _
& objplaca.Status & "</td></tr>"
Next
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "</table>"
'
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#backup'> Unidade de Backup</a></h2></b></ul>"
objtextfile.WriteLine "<table>"
Set wfita = objWMIService.ExecQuery("Select * from Win32_TapeDrive")
For Each objfita In wfita
objtextfile.WriteLine "<tr><td>" & objfita.Caption & "</td></tr>"
Next
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
'Coleta usuarios locais
Set colAccounts = GetObject("WinNT://" & STRcomputer & "")
Set colGroups = GetObject("WinNT://" & STRcomputer & "")
colAccounts.Filter = Array("user")
colGroups.Filter = Array("group")
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#usuarios'> Usuarios Locais</a></h2></b>"
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<table border=2 width=1000>"
objtextfile.WriteLine "<tr><td><center>Login</center></td><td><center>Nome Completo</center></td><td><center>Descriçao</center>" & _
"</td><td><center>Status</center></td><td><center>Grupos</center></td></tr>"
For Each objUser In colAccounts
Wgrupo = " "
If objUser.AccountDisabled then
wstatus = "Inativa"
Else
wstatus = "Ativa"
End if
For Each objGroup In colGroups
For Each objuserMBR In objGroup.Members
If objuserMBR.Name = objUser.Name Then
Wgrupo = Wgrupo & objGroup.Name & "<br>"
End If
Next
Next
If Len(objUser.FullName) <= 1 Then
wfulname = "-"
Else
wfulname = objUser.FullName
End If
If Len(objUser.Description) <= 1 then
wdescricao = "-"
else
wdescricao = objUser.Description
end if
objtextfile.WriteLine "<tr><td>" & objUser.Name & "</td><td>" & " " _
& wfulname & "</td><td>" _
& wdescricao & "</td><td>" _
& wstatus & "</td><td>" _
& Wgrupo & "</td></tr> "
Next
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
strcomputer = STRcomputer
if strcomputer = "" then
wscript.quit
else
'ping it!
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select * from Win32_PingStatus where address = '" & strcomputer & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
'request timed out
msgbox(strcomputer & " did not reply" & vbcrlf & vbcrlf & _
"Please check the name and try again")
else
'who's there?
set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#usuarios'> Usuarios de Rede</a></h2></b>"
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<Font face='arial'><li>Usuario Logado..............................: " & objcomputer.username & "</font>"
Next
end if
next
end if
'cleanup
set objwmiservice = nothing
set colsettings = nothing
set objping = nothing
'Coleta Software
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
strEntry1a = "DisplayName"
strEntry1b = "QuietDisplayName"
strEntry2 = "InstallDate"
strEntry3 = "VersionMajor"
strEntry4 = "VersionMinor"
strEntry5 = "EstimatedSize"
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#software'> Softwares Instalados</a></h2></b>"
objtextfile.WriteLine "</ul>"
'objtextfile.WriteLine "<table border=2>"
objtextfile.WriteLine "<tr><td>Software / Hotfix</td></tr>"
Set objReg = GetObject("winmgmts://" & STRcomputer & _
"/root/default:StdRegProv")
objReg.EnumKey HKLM, strKey, arrSubkeys
For Each strSubkey In arrSubkeys
' wlinha = "<tr><td>"
wlinha=""
intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
strEntry1a, strValue1)
If intRet1 <> 0 Then
objReg.GetStringValue HKLM, strKey & strSubkey, _
strEntry1b, strValue1
End If
If strValue1 <> "" Then
wlinha = wlinha + strValue1 '+ "</td><td>"
End If
objReg.GetDWORDValue HKLM, strKey & strSubkey, _
strEntry3, intValue3
objReg.GetDWORDValue HKLM, strKey & strSubkey, _
strEntry4, intValue4
If intValue3 <> "" Then
wlinha = wlinha + intValue3 + "." + intValue4 '"</td></tr>"
End If
If Len(wlinha) > 8 Then
objtextfile.WriteLine wlinha + "<br>"
End If
Next
objtextfile.WriteLine "</ul>"
'objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
'Coleta Serviços
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & STRcomputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service")
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#servicos'> Serviços</a></h2></b>"
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<table border=2 width=800>"
objtextfile.WriteLine "<tr><td><b><center>Serviço</center></b></td><td><b><center>Startup</center></b></td><td><b>" & _
"<center>Status</center></b></td><td><b><center>Usuario de Startup</center></b></b></td></tr>"
For Each objService In colListOfServices
if objService.State = "Stopped" then
wfonte= "<font color=red>"
else
wfonte = "<font>"
end if
objtextfile.WriteLine "<tr><td><i>" & wfonte & objService.Caption & "</font></i></td><td><i>" & _
wfonte & objService.StartMode & "</font></i></td><td><i>" & _
wfonte & objService.State & "</font></i></td><td><i>" & _
wfonte & objService.StartName & "</font></i></td></tr>"
Next
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
'Coleta Tamanho dos Diretorios
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & STRcomputer & "\root\cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#compartilhamentos'>Compartilhamentos</a></h2></b>"
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<table border=2>"
objtextfile.WriteLine "<tr><td><b><center>Compartilhamento</center></b></td><td><b><center>" & _
"Caminho</center></b></b></td></tr>"
For Each objShare In colShares
objtextfile.WriteLine "<tr><td><i>" & objShare.Name & "</i></td><td><i>" _
& objShare.Path & "</i></td></tr>"
Next
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
'Coleta Impressora
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & STRcomputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_PrinterDriver")
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#impressora'> Drivers de Impressoras</a></h2></b>"
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<table border=2>"
objtextfile.WriteLine "<tr><td><b>Impressora Local</b></b></td></tr>"
For Each objPrinter In colInstalledPrinters
objtextfile.WriteLine "<tr><td><i>" & objPrinter.Name & "</i></td></tr>"
Next
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
'Coleta portas de impressora
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & STRcomputer & "\root\cimv2")
Set colPorts = objWMIService.ExecQuery _
("Select * from Win32_TCPIPPrinterPort")
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#portas'> Portas de Impressora</a></h2></b>"
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<table border=2>"
objtextfile.WriteLine "<tr><td><b><center>Impressora Local</center></b></td><td><b><center>Endereco Host</center></b></td><td><b>" & _
"<center>Porta</center></b></td><td><b><center>Protocolo</center></b></b></td></tr>"
For Each objPort In colPorts
objtextfile.WriteLine "<tr><td><i>" & objPort.Description & "</i></td><td><i>" & _
objPort.HostAddress & "</i></td><td><i>" & _
objPort.Name & "</i></td><td><i>" & _
objPort.PortNumber & "</i></td><td><i>" & _
objPort.Protocol & "</i></td></tr>"
Next
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
'
objtextfile.WriteLine "<ul>"
objtextfile.WriteLine "<li><b><h2><a name='#event'> Event Viewer</a></h2></b>"
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "<table border=2 width=100>"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Security)}!\\" & _
strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile " _
& "Where LogFileName='Security'")
For Each objLogFile in colLogFiles
objtextfile.WriteLine "<tr><td><i>Security </i></td><td><i>" & int(objLogfile.MaxFileSize/1024) & "MB" & "</i></td><td><i>"
Next
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile " _
& "Where LogFileName='application'")
For Each objLogFile in colLogFiles
objtextfile.WriteLine "<tr><td><i>Application</i></td><td><i>" & int(objLogfile.MaxFileSize/1024) & "MB" & "</i></td><td><i>"
Next
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile " _
& "Where LogFileName='system'")
For Each objLogFile in colLogFiles
objtextfile.WriteLine "<tr><td><i>System</i></td><td><i>" & int(objLogfile.MaxFileSize/1024) & "MB" & "</i></td><td><i></tr>"
Next
objtextfile.WriteLine "</ul>"
objtextfile.WriteLine "</table>"
Objtextfile.writeline "<font size=1 face='Helvetica' color=blue><a href='#menu'>Menu</a></font>"
Objtextfile.writeline "</html>"
'*** ENVIO DO EMAIL - PARTE 2***
Set objEmail = CreateObject("CDO.Message")
Subjectline = ""
messagebody = ""
Subjectline = "Exemplo de subject"
Messagebody = ""
SMTPServerAddress = "seusmtp"
'*** This section provides the configuration information for the remote SMTP server ***
With objEmail
'DO NOT CHANGE ANYTHING FOR THE FOLLOWING LINE
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.meudominio.com.br"
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
'Your UserID on the SMTP server
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "inventario@meudominio.com.br"
'Your password on the SMTP server
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "minhasenha"
'Server port (typically 25)
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
'Use SSL for the connection (False or True)
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'DO NOT CHANGE ANYTHING FOR THE FOLLOWING LINE
.Configuration.Fields.Update
'The line below shows how to add attachment
.AddAttachment "C:\DELL\inventario.HTML"
'Send text body Email
'objEmail.Textbody = "Server1 is no longer accessible over the network."
'Send html body Email
'objEmail.HTMLBody = <font face=arial color=blue>Server1 is no longer accessible over the network.</font>
'The line below shows how to send a webpage from a remote site
'objEmail.CreateMHTMLBody "http://www.google.com.hk/"
'The line below shows how to send a webpage from a file on your machine
'objEmail.CreateMHTMLBody "C:\DELL\inventario.HTML"
End With
'*** End remote SMTP server configuration section ***
'WScript.Echo "Sending Email..."
With ObjEmail
.From = "inventario@meudominio.com.br"
.To = "meuemail@meudominio.com.br"
.Subject = "Inventario"
.HTMLBody = "<p><b>Segue anexo o inventario de Software e Hardware</b></p>"
End With
'On Error Resume Next
objEmail.Send
'WScript.Echo "Finished Sending Email."
Set objEmail = Nothing
Obrigado desde já,
