Aprenda criar um programa que faça verificações do Windows e as mostre pra você!

Aprenda criar um programa, que faça verificações do Windows e as mostre pra você!

Estamos disponibilizando um pequeno programa, feito em HTML e Vbscript, que captura algumas informações básica do Windows e printa na tela para você, trata-se de um pequeno inventário contendo informações básicas de seu computador, conforme mostra imagem acima.

Se você tem conhecimento de html e Vbscript fique a vontade e faça as alterações que achar, necessárias. Pois você verá que é tudo muito simples e fácil de manipular, agora se você não tem o minimo de conhecimento em programação ou lógica,aconselho você assistir nossos cursos básicos e tutoriais, onde ensinamos html,e vbscript.

Assistir em nosso canal clique aqui!

Agora para finalizarmos basta copiar o código logo abaixo cole-o em um bloco de notas ou um editor de sua preferência, escolha um nome para o mesmo e salve com a extensão .HTA

<html>
<head>

<title>Informação do sistema</title>
<HTA:APPLICATION 
APPLICATIONNAME="Informação do sistema"
SCROLL="yes"
SINGLEINSTANCE="no"
WINDOWSTATE="normal">

<script language="VBScript">
ctrlsHTML = "<input type=" & Chr(34) & "text" & Chr(34) & "name=" & Chr(34) & "Textbox" & Chr(34) & "size=" & Chr(34) & "12" & Chr(34) & ">" 
EnableDisableSwitch = 0

'********************************************************************************

Sub window_Onload
ControlsArea.innerHTML = ctrlsHTML
'window.resizeTo 698,325
Textbox.value = "localhost"
End sub

'********************************************************************************

Sub ClearWindow
DataArea.InnerHTML = ""
'ControlsArea.innerHTML = ctrlsHTML
'Textbox.value = "localhost"
End Sub

'********************************************************************************

Sub GetComputerName
strIPaddress = Textbox.value
Set objWMIService = GetObject("winmgmts:\\" & strIPaddress & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
 For Each objItem in colItems
 ComputerName = objItem.Name
 Next
strHTML = "<table>"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<th>IP Address:  " & strIPaddress & "</th>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td NOWRAP>" & ComputerName & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "</table>
"
DataArea.innerHTML = strHTML & "<br>" & DataArea.innerHTML
End Sub

'********************************************************************************

Sub GetServerInfo

strComputer = TextBox.value 'InputBox("HostName ou IP adress")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

'GetServiceTag and BIOSVersion
Set colBIOS = objWMIService.ExecQuery("Select * from Win32_bios")
 For Each objBIOS in colBIOS 
  ServiceTag = objbios.serialnumber
  BIOSVersion = objbios.Caption
 Next
 
 
'Get RAM and Model Name
Set colCS = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
 For Each objCS in colCS 
  RAMgb = FormatNumber(objCS.TotalPhysicalMemory/1073741824,2)
  RAMmb = FormatNumber(objCS.TotalPhysicalMemory/1048576,2)  
  Model = objCS.Model
  SystemType = objCS.SystemType
 Next

'Get OS Version and Last Bootup time
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
  For Each objOperatingSystem in colOperatingSystems
   OSVersion = objOperatingSystem.Caption & " " & objOperatingSystem.Version & " (SP" & objOperatingSystem.ServicePackMajorVersion &")"
   dtmBootup = objOperatingSystem.LastBootUpTime
  Next
RebootDateAndTime = CDate(Mid(dtmBootup, 5, 2) & "/" & _
Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) & " " & Mid (dtmBootup, 9, 2) & ":" & Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup,13, 2))

'Get Processor Info (not using this because it takes a long time to pull info from this class)
'Set colProc = objWMIService.ExecQuery("Select * from Win32_Processor")
 'For Each objProc in colProc 
  'LogicalProcessors = objProc.NumberOfLogicalProcessors
  'Cores = objProc.NumberOfCores
  'ProcessorName = objProc.Name
 'Next

'Display Results 
strHTML = "<table>"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<th>Cmputador:</th>"
strHTML = strHTML & "<th>" & UCase(strComputer) & "</th>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Modelo e nome:</td>"
strHTML = strHTML & "<td>" & Model & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Versão da BIOS:</th>"
strHTML = strHTML & "<td>" & BIOSVersion & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Serviço :</td>"
strHTML = strHTML & "<td>" & ServiceTag & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Sistema operacional:</td>"
strHTML = strHTML & "<td>" & OSVersion & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Tipo de sistema (Arquitetura):</td>"
strHTML = strHTML & "<td>" & SystemType & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Memória Física (RAM):</td>"
strHTML = strHTML & "<td>" & RAMgb & "GB (" & RAMmb & "MB)</td>"
strHTML = strHTML & "</tr>
"

'Get Disk Drive Model
Set colDiskDrive = objWMIService.ExecQuery("Select * from Win32_DiskDrive")
 valuetest = 0
 For Each objDrive in colDiskDrive
  driveModel = objDrive.Model
  deviceID = objDrive.deviceID
  valuetest = valuetest + 1

strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Modelo de disco e controle de Raid:</th>"
strHTML = strHTML & "<td>" & deviceID & ": " & driveModel & "</th>"
strHTML = strHTML & "</tr>
"
 
 Next

strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Iniciallização e tempo:</th>"
strHTML = strHTML & "<td>" & RebootDateAndTime & "</th>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "</table>
"
DataArea.innerHTML = strHTML & "<br>" & DataArea.innerHTML
End Sub

'********************************************************************************

</script>

<style type="text/css">
<!--

#navcontainer 
{
background: #fcccf0;
border-top: 1px solid #888888;
border-bottom: 1px solid #888888;
border-right: 1px solid #888888;
border-left: 1px solid #888888;
font: bold 10px Verdana, sans-serif;
}

#navlist
{
list-style: none outside none;
margin: 0;
padding: 0;
}

@media all {
#navlist {
text-align: center
}
}

#navlist li
{
bottom: 11px;
display: inline;
line-height: 1.2em;
margin: 0;
padding: 0;
position: relative;
}

html>body #navlist li
{
background: #000;
margin: 0 3px 0 0;
padding: 4px 0px 4px 0;
}

#navlist a, #navlist a:link, #navlist a:visited a:hover
{
background: #999999;
border: 1px solid #000000;
bottom: 2px;
color: #222222;
cursor: pointer;
display: inline;
height: 1em;
margin: 0;
padding: 3px 5px 3px 5px;
position: relative;
right: 2px;
text-decoration: none;
}

#navlist a:hover
{
background: #ff5555;
bottom: 1px;
color: #DDD;
position: relative;
right: 1px;
}

#navlist a:active
{
background: #555555;
bottom: 0px;
color: #000;
position: relative;
right: 0px;
}

#navlist li#active
{
background: #778;
bottom: 13px;
display: inline;
margin: 0 3px 0 0;
padding: 0;
position: relative;
}

html>body #navlist li#active
{
background: #fff000;
margin: 0 4px 0 4px;
}

#navlist #active a, #navlist #active a:link, #navlist #active a:visited, #navlist #active a:hover 
{
background: #369;
border-bottom: none;
border-left: 1px solid #9CC;
border-right: 1px solid #9CC;
border-top: 1px solid #9CC;
bottom: 0;
color: #778;
cursor: text;
margin: 0;
padding: 2px 5px 0 5px;
position: relative;
right: 0;
}

th {
background-color:#0000ff;
}

table, th, td {
border:1px solid #222222;
/*border:1px solid #444444;*/
border-collapse: collapse;
}

table {
width:100%;
font: 16px;
/*font: 14px arial, sans-serif;*/
}

td, th {
white-space: nowrap;
}

.graph {
width:104px;
height:10px;
padding:1px;
border:1px solid white;
/*background:#000000*/
}

.bar2 {
width:0px;
height:10px;
background:#3300FF;
}

.bar {
width:0px;
height:2px;
background:#ff00ff;
}

a.gobutton 
{
font:bold 10px Verdana, sans-serif;
text-align: center;
background: #ff9999;
border: 1px solid #000000;
bottom: 2px;
color: #222222;
cursor: pointer;
display: inline;
height: 1em;
margin: 0;
padding: 3px 5px 3px 5px;
position: relative;
right: 2px;
text-decoration: none;
}

a.gobutton:hover
{
background: #005555;
bottom: 1px;
color: #DDD;
position: relative;
right: 1px;
}

a.gobutton:active
{
background: #555555;
bottom: 0px;
color: #000;
position: relative;
right: 0px;
}

-->
</style>
</head>

<body STYLE="font:10 pt palatino; color:white; background-color:#5555ff;">

<p>
<span id = "ControlsArea"></span>
</p>
<div id="navcontainer">
<ul id="navlist">
<li><a onclick="GetServerInfo" href="#">Windows informação</a></li>
<li><a onclick="ClearWindow" href="#">Apagar</a></li>
</ul>
</div>
<p>
<span id = "DataArea"></span>
</p>
</body>
</html>

Header Ads

Aprenda criar um programa que faça verificações do Windows e as mostre pra você!

Aprenda criar um programa, que faça verificações do Windows e as mostre pra você!

Nenhum comentário

Popular

Categorias

Marcadores

contato