Tra le variabili server messe a disposizione da ASP ne esiste una in grado di restituire informazioni sul software del server.
Parliamo della variabile:
Request.ServerVariables("SERVER_SOFTWARE")
che se stampata da una pagina ASP su un pc con sistema operativo Windows XP restituisce ad esempio una stringa del tipo Microsoft-IIS/5.1 .
Realizziamo una funzione per individuare i possibili sistemi operativi:
<%
public function getServerOS()
Dim lvServer
Dim lvServerVar
' Attribuisce alla variabile il valore della Variabile Server
lvServerVar = Request.ServerVariables("SERVER_SOFTWARE")
' Controlla il valore di IIS
' univoco per ogni sistema operativo
if Instr(lvServerVar, "IIS/4") > 0 then
lvServer = "Microsoft Windows NT"
elseif Instr(lvServerVar, "IIS/5.0") > 0 then
lvServer = "Microsoft Windows 2000"
elseif Instr(lvServerVar, "IIS/5.1") > 0 then
lvServer = "Microsoft Windows XP"
elseif Instr(lvServerVar, "IIS/6") > 0 then
lvServer = "Microsoft Windows 2003"
end if
' Valore di ritorno della funzione
getServerOS = lvServer
end function
' Stampa a video il valore
Response.Write(getServerOS())
%>