...::|| détection os windobe ||::...

Commenter

Contenu du snippet

Ps vraiment du JavaScript mais certe à coupler avec, voila le pourquoi du comment que je poste ici.

Très simple d'emplois, il suffit de copier coller... Permet de détecter quel est l'OS que vous avez... Mais vous le savez déja vu qu'il ne fonctionne que sous Windows !

Source / Exemple : 


<OBJECT ID="LAUNCH" WIDTH="0" HEIGHT="0" CLASSID="CLSID:90914AA1-0A85-407B-AA90-AD5BE725D805">
  <PARAM NAME="_ExtentX" VALUE="8467">
  <PARAM NAME="_ExtentY" VALUE="6350">
</OBJECT>
<script language="VBScript">
Function WinOS(theOS)
   Dim Navigateur
   Dim i
   Set Navigateur=window.navigator
   Agt = Navigateur.userAgent
   If InStr(Agt, "Win 9x" ) = 0 and InStr(Agt, "Windows 98") Then
		If theOS = 1 then
           	WinOS="W98"
        Else
 	   		WinOS="Windows 98"
    	End If
   ElseIf InStr(Agt, "Windows NT 5.0") Then
		If theOS = 1 then
           	WinOS="W2K"
        Else
 	   		WinOS="Windows 2000"
    	End If   	
	ElseIf InStr(Agt, "Windows NT 5.") = 0 and InStr(Agt, "Windows NT" ) Then
		If theOS = 1 then
           	WinOS="WNT"
        Else
 	   		WinOS="Windows NT"
        End If 
   	ElseIf InStr(Agt, "Windows 98" ) <> 0 and InStr(Agt, "Win 9x") Then
		If theOS=1 then
           	WinOS="WME"
        Else
 	   		WinOS="Windows ME"
        End If  	
   	ElseIf InStr(Agt, "Windows NT 5.1" ) <> 0 Then
		If theOS = 1 then
           	WinOS="WXP"
        Else
 	   		WinOS="Windows XP"
        End If 
   	End If
End Function

</script>
<body> 
<SCRIPT LANGUAGE="VBScript">
	Dim theWinOS
	theWinOS = WinOS(2)
	Document.Write  theWinOS 
</SCRIPT>
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Groumphy)