Accedere alle informazioni del server con ADSI
Uno script come quello di oggi può essere utile in molte occasioni, ad esempio per eseguire una specie di diagnostica via web, o per capire quale server abbia eseguito la pagina, in un cluster.
In realtà non è uno script banale e perchè funzioni è necessario che la directory di esecuzione abbia impostato come utente autenticato uno appartenente al gruppo Administrator.
Senza questa modifica non sarà possibile accedere via ADSI alle informazioni del sistema e si ottenerà un errore, che verrà mostrato a video.
<%
on error resume next
' accesso all'oggetto che contiene le informazioni
' sul sistema
set objSysInfo = CreateObject("WinNTSystemInfo")
strName = objSysInfo.ComputerName
strUser = objSysInfo.UserName
' accesso via ADSI alle proprietà del computer
' se si desidera accedere ad un altro computer
' della rete, basta cambiare strName
Set objPC = GetObject("WinNT://" & strName & ",computer")
strCPU = objPC.Processor
set objPC = Nothing
set objSysInfo = Nothing
If err.Number = 0 then
Response.write "<P>Impossibile accedere alle informazioni: " & _
err.Description
Else
response.write "Nome del computer: "&_
strName
response.write "<BR>User: "&_
strUser
response.write "<BR>Processore: "&_
strCPU
End if
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
