PDA

View Full Version : AIUTOO!!! CERCASI PROGRAMMA!!!

CipHak
22-08-2004, 23:26
:cry: :cry: :cry: :cry: :cry:

Aiutatemi.. sono alla ricerca di un programma che faccia delle pagine HTML contenti valori derivati da parametri del pc...

mi spiego meglio..

Questo programma dovrebbe costruirmi una pagina web contente:
l'Uptime del computer
Il carico cpu...
lo spazio su hdd...
e via dicendo....

qualkuno può darmi una dritta??:cry:
gor
23-08-2004, 00:31
cerca in rete everest home edition quando fai il report scegli il file html,ciao.
CipHak
23-08-2004, 20:32
Grazie! ma ce una maniera per farlo fare in real time, o con scadenze automatiche?
gor
23-08-2004, 21:05
non lo sò,comunque quello e un programma che scansiona il pc tipo sandra e fa il report dei componenti e benchmark eseguiti,ciao.
CipHak
24-08-2004, 00:53
Si avvicina molto a quanto mi serve, ma non mi basta!!!
vorrei vare un vero e proprio "STATUS SERVER" disponibile quando il mio server è on-line...
CipHak
24-08-2004, 15:31
up
SirBlack
25-08-2004, 15:12
Puoi fartelo tu con dei semplici script VB
http://www.microsoft.com/technet/scriptcenter/repository.mspx
CipHak
25-08-2004, 16:18
ehmm esempio?
cmq i parametri andrebbero presi dal server non dal client...
non so se è possibile con il visual...
CipHak
26-08-2004, 00:09
uppete..
CipHak
26-08-2004, 17:58
up
SirBlack
27-08-2004, 07:37
Originariamente inviato da CipHak
ehmm esempio?
cmq i parametri andrebbero presi dal server non dal client...
non so se è possibile con il visual...

Mi sa che è difficile che il server acceda alle classi WMI del client ma sicuramente onn il contrario.
Se crei una pagina ASP col coldice VB dentro che legge l'uptime, tipo:

<%
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOperatingSystems
dtmConvertedDate.Value = objOS.LastBootUpTime
dtmLastBootUpTime = dtmConvertedDate.GetVarDate
dtmSystemUptime = DateDiff("d", dtmLastBootUpTime, Now)
response.write dtmSystemUptime
Next
%>

Avrai una pagine che ti dice l'uptime del server...basterebbe aggiungere prima del response.write di sopra un bel:
Response.write "<html><head><META http-equiv='refresh' content='30;URL=uptime.asp'></head><body>"
...per avere la pagina col refresh ogni 30 secondi.

Occhio che però la paginanon deve girare mcon l'utente IUSR_xxxx ma come un tente Administrator o che cmq possa accedere a WMI.

CiaZ
SirBlack
27-08-2004, 08:49
Ecco un esempio funzionante:

<%
Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOperatingSystems
dtmConvertedDate.Value = objOS.LastBootUpTime
dtmLastBootUpTime = dtmConvertedDate.GetVarDate
dtmSystemUptime = DateDiff("d", dtmLastBootUpTime, Now)
response.write "<center><font face=tahoma size=2 color=006699>Il server è online da <b>" & dtmSystemUptime & "</b> giorni e sta girando su <b>" & Replace(objOS.Caption,"(R)","®") & " " & objOS.Version
Next

%>


Che puoi vedere qui (http://alepanzetta.no-ip.info/LogViewers/server_uptime.asp)

CiaZ
CipHak
27-08-2004, 14:41
Grazie 1000! molto gentile!!!;)
CipHak
27-08-2004, 15:20
ma a me non mi funziona!!!!!!!!
CipHak
29-08-2004, 18:25
uppete...:(