Dall'archivio script > Classic ASP

Accedere alle informazioni del server con ADSI

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, ADSI, Admin,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

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

I più letti di oggi