Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Windows 98

Windows 98

7 réponses
Avatar
arnaud
Comment sait on quel est la version du service pack Windows 98 installée sur
l'ordinateur ?
Merci d'avance
Arnaud
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FxM
Bonjour,

arnaud wrote:
Comment sait on quel est la version du service pack Windows 98 installée sur
l'ordinateur ?
Merci d'avance
Arnaud


MPFE est un groupe consacré à Excel pas à windows98. SVP, voir le forum
approprié microsft.public.fr.windows98 où cette question est posée
plusieurs fois par semaine et dans le panneau de config | système.

Qu'entends-tu pas service pack ? Si c'est de savoir si c'est Win98 ou
Win98 SE ? Ce sont deux versions différentes et non avec avec SP.
Quant à savoir si d'autres rustines ont été appliquées, il n'y a pas de
listing direct. Il faut chercher à la mimine dans le s/r windows et voir
ce que l'on y trouve.

@+
FxM (4.10.2222 = Win98SE)

Avatar
papou
Bonjour Arnaud
Clic droit sur le poste de travail, Propriétés
Sinon dans une fenêtre explorateur Windows, clic sur le ? puis à propos de
Microsoft Windows 98
Cordialement
Pascal

"arnaud" a écrit dans le message de
news:
Comment sait on quel est la version du service pack Windows 98 installée
sur

l'ordinateur ?
Merci d'avance
Arnaud




Avatar
ChrisV
Bonjour Arnaud,

Non testée pour Win98

Pour XP...

Private Declare Function GetVersion Lib "kernel32" () As Long
Public Function GetWinVersion() As String
'papou
Dim Ver As Long, WinVer As Long
Ver = GetVersion()
WinVer = Ver And &HFFFF&
GetWinVersion = Format((WinVer Mod 256) + ((WinVer 256) / 100),
"Fixed")
End Function
Sub TestIt()
MsgBox "Windows version: " + GetWinVersion
End Sub


'************************************************************
'pour les versions antérieurs à XP
'************************************************************

'Private Declare Function RegOpenKeyExA Lib "Advapi32" _
() ' (ByVal hKey As Long, ByVal lpSubKey As String, _
' ByVal ulOptions As Long, ByVal samDesired As Long, _
' phkResult As Long) As Long
'
'Private Declare Function RegCloseKey Lib "Advapi32" _
() ' (ByVal hKey As Long) As Long
'
'Declare Function RegQueryValueExA Lib "Advapi32" _
() ' (ByVal hKey As Long, ByVal lpValueName As String, _
' lpReserved As Long, lpType As Long, _
' ByVal lpData As String, lpcbData As Long) As Long
'
'Private Function NumSérie() As String
' Dim hKey As Long, cbData As Long
' RegOpenKeyExA &H80000002, _
' "SoftwareMicrosoftWindowsCurrentVersion", 0, &HF003F, hKey
' RegQueryValueExA hKey, "ProductId", 0, 1, NumSérie, cbData
' NumSérie = Space$(cbData - 1)
' RegQueryValueExA hKey, "ProductId", 0, 1, NumSérie, cbData
' RegCloseKey hKey
'End Function
'
'Sub Test()
' MsgBox "Numéro de série de Windows = " & NumSérie
'End Sub


ChrisV


"arnaud" a écrit dans le message de news:

Comment sait on quel est la version du service pack Windows 98 installée
sur

l'ordinateur ?
Merci d'avance
Arnaud




Avatar
chrisn
"arnaud" a écrit dans le message de news:

Comment sait on quel est la version du service pack Windows 98
installée sur l'ordinateur ?


Il n'y a pas à proprement parler de service pack pour windows 98, en
particulier pour windows 98se. Par contre excel 97 (office 97) doit
être SR2
(voir dans menu aide (?) barre "à propos de")


--
chrisn
mettre le bon fai, libertysurf pour me répondre

Avatar
Clément Marcotte
Il n'y a pas à proprement parler de service pack pour windows 98,


Alors, comment se fait-il quand je vais dans Ajout/Suppression de
programme, je vois Windows 98 Service Pack 1 ?

Avatar
chrisn
"Clément Marcotte" a écrit dans le message de news:

Il n'y a pas à proprement parler de service pack pour windows
98,



Alors, comment se fait-il quand je vais dans Ajout/Suppression de
programme, je vois Windows 98 Service Pack 1 ?

L'alternative à l'upgrade vers SE, effectivement. mea culpa.



--
chrisn
mettre le bon fai, libertysurf pour me répondre


Avatar
Frédéric Sigonneau
Bonsoir,

Une procédure qui renvoie quelques renseignements sur la version de Windows du
poste où elle s'exécute (issue d'une discussion ici il y a quelques mois, testée
par les lecteurs/contributeurs de ce groupe pour à peu près toutes les versions
de Windows 32 bits en circulation) :

'=================== 'infos sur l'OS utilisé (version, type, etc.)

Public Declare Function GetWinVersion Lib "kernel32" Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFO) As Long
Public Declare Function GetWinVersionEx Lib "kernel32" Alias "GetVersionExA" _
(lpVersionInformation As OSVERSIONINFOEX) As Long

'Déclaration des constantes
Const VER_SUITE_SMALLBUSINESS = &H1
Const VER_SUITE_ENTERPRISE = &H2
Const VER_SUITE_BACKOFFICE = &H4
Const VER_SUITE_BLADE = &H400
Const VER_SUITE_COMMUNICATIONS = &H8
Const VER_SUITE_TERMINAL = &H10
Const VER_SUITE_SMALLBUSINESS_RESTRICTED = &H20
Const VER_SUITE_EMBEDDEDNT = &H40
Const VER_SUITE_DATACENTER = &H80
Const VER_SUITE_SINGLEUSERTS = &H100
Const VER_SUITE_PERSONAL = &H200

Const VER_NT_WORKSTATION = &H1
Const VER_NT_DOMAIN_CONTROLLER = &H2
Const VER_NT_SERVER = &H3

Public Const VER_PLATFORM_WIN32s = 0
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2

'Structure pour les versions WinDOS
Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 'sous type de certaines versions
End Type

'Structure pour les versions WinNT
Public Type OSVERSIONINFOEX
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128 'sous type ou info sur service pack installé
wServicePackMajor As Integer
wServicePackMinor As Integer
wSuiteMask As Integer
wProductType As Byte
wRest As Byte
End Type


Public Sub GetWindowsVersion()
Dim oviWinNT As OSVERSIONINFOEX
Dim oviWin32 As OSVERSIONINFO
Dim strVer As String
Dim OS As String
Dim OSType As String
Dim NumeroVersion As String
Dim Detail As String
Dim Msg$, SP$

oviWin32.dwOSVersionInfoSize = Len(oviWin32)
GetWinVersion oviWin32
Detail = Mid(oviWin32.szCSDVersion, 2, 1)

Select Case oviWin32.dwPlatformId

Case VER_PLATFORM_WIN32_WINDOWS

If oviWin32.dwMajorVersion = 4 And oviWin32.dwMinorVersion = 0 Then
OS = "Windows 95"
If Detail = "A" Then
OS = OS & " OSR1"
ElseIf Detail = "B" Then
OS = OS & " OSR2"
End If
ElseIf oviWin32.dwMajorVersion = 4 And oviWin32.dwMinorVersion = 3 Then
OS = "Windows 95 OSR2"
If Detail = "B" Then
OS = OS & ".1"
ElseIf Detail = "C" Then
OS = OS & ".5"
End If
ElseIf oviWin32.dwMajorVersion = 4 And oviWin32.dwMinorVersion = 10 Then
OS = "Windows 98"
If Detail = "A" Then OS = OS & " SE (Seconde Édition)"
ElseIf oviWin32.dwMajorVersion = 4 And oviWin32.dwMinorVersion = 90 Then
OS = "Windows ME (Millenium Édition)"
End If
NumeroVersion = "[" & oviWin32.dwMajorVersion & "." _
& oviWin32.dwMinorVersion & _
IIf(Asc(Detail) = 0, "", "." & Detail) & "]"

Case VER_PLATFORM_WIN32_NT

oviWinNT.dwOSVersionInfoSize = Len(oviWinNT)
GetWinVersionEx oviWinNT

If oviWinNT.dwMajorVersion = 3 And oviWinNT.dwMinorVersion = 0 Then
OS = "Windows NT 3.0"
ElseIf oviWinNT.dwMajorVersion = 3 And oviWinNT.dwMinorVersion = 1 Then
OS = "Windows NT 3.1"
ElseIf oviWinNT.dwMajorVersion = 3 And oviWinNT.dwMinorVersion = 51 Then
OS = "Windows NT 3.51"
ElseIf oviWinNT.dwMajorVersion = 4 Then
OS = "Windows NT 4.0"
ElseIf oviWinNT.dwMajorVersion = 5 And oviWinNT.dwMinorVersion = 0 Then
OS = "Windows 2000"
ElseIf oviWinNT.dwMajorVersion = 5 And oviWinNT.dwMinorVersion = 1 Then
OS = "Windows XP"
ElseIf oviWinNT.dwMajorVersion = 5 And oviWinNT.dwMinorVersion = 2 Then
OS = "Windows 2003 Serveur"
End If

'De quel type est le produit NT/2000/XP/2003 ?
Select Case oviWinNT.wProductType
Case VER_NT_WORKSTATION
If oviWinNT.dwMajorVersion < 5 Then
OSType = "Station de travail"
Else
If oviWinNT.wSuiteMask And VER_SUITE_PERSONAL Then
OSType = "Édition familiale"
Else
OSType = "Professionnel"
End If
End If
Case VER_NT_DOMAIN_CONTROLLER
OSType = "Serveur (Contrôleur de domaine)"
Case VER_NT_SERVER
If oviWinNT.wSuiteMask And VER_SUITE_DATACENTER Then
OSType = "Serveur (Centre de données)"
ElseIf oviWinNT.wSuiteMask And VER_SUITE_ENTERPRISE Then
If oviWinNT.dwMajorVersion = 5 And oviWinNT.dwMinorVersion = 0 Then
OSType = "Serveur avancé"
Else
OSType = "Edition Entreprise"
End If
ElseIf oviWinNT.wSuiteMask And VER_SUITE_BLADE Then
OSType = "Édition Web"
Else
OSType = "Serveur"
End If
End Select

NumeroVersion = "[" & oviWinNT.dwMajorVersion & "." _
& oviWinNT.dwMinorVersion & "." _
& oviWinNT.dwBuildNumber & "]"

If oviWinNT.wServicePackMajor >= 1 Then
SP = "Service Pack : " & oviWinNT.wServicePackMajor & "." & _
oviWinNT.wServicePackMinor
Else
SP = "Service Pack : " & "Aucun Service Pack installé"
End If

End Select

Msg = "Système : " & OS & " " & OSType & vbLf
Msg = Msg & "Numéro version : " & NumeroVersion & vbLf
Msg = Msg & SP

MsgBox Msg

End Sub 'fs
'===================
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Comment sait on quel est la version du service pack Windows 98 installée sur
l'ordinateur ?
Merci d'avance
Arnaud