cpsifrance69100
Messages postés6Date d'inscriptionvendredi 22 avril 2005StatutMembreDernière intervention30 avril 2005
-
22 avril 2005 à 03:14
cpsifrance69100
Messages postés6Date d'inscriptionvendredi 22 avril 2005StatutMembreDernière intervention30 avril 2005
-
22 avril 2005 à 23:40
bonjour
si kel k1 peux m'expliqué pkoi le dernier script (votre windows) ne s'affiche pas sur mon site
<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="Votre Windows est 98"
End If
ElseIf InStr(Agt, "Windows NT 5.0") Then
If theOS = 1 then
WinOS="W2K"
Else
WinOS="Votre Windows est 2000"
End If
ElseIf InStr(Agt, "Windows NT 5.") = 0 and InStr(Agt, "Windows NT" ) Then
If theOS = 1 then
WinOS="WNT"
Else
WinOS="Votre Windows est NT"
End If
ElseIf InStr(Agt, "Windows 98" ) <> 0 and InStr(Agt, "Win 9x") Then
If theOS=1 then
WinOS="WME"
Else
WinOS="Votre Windows est ME"
End If
ElseIf InStr(Agt, "Windows NT 5.1" ) <> 0 Then
If theOS = 1 then
WinOS="WXP"
Else
WinOS="Votre Windows est XP"
End If
End If
End Function