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
le Troll
Salut,
Le forum MsDos, les "batch" ils devraient encore mieux connaître...
"Nicolas POPOVIC" a écrit dans le message de news:412c01c4a527$ed985eb0$ Bonjour, savez-vous comment déterminer l'OS avec un batch?
Salut,
Le forum MsDos, les "batch" ils devraient encore mieux connaître...
"Nicolas POPOVIC" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:412c01c4a527$ed985eb0$a401280a@phx.gbl...
Bonjour, savez-vous comment déterminer l'OS avec un batch?
Le forum MsDos, les "batch" ils devraient encore mieux connaître...
"Nicolas POPOVIC" a écrit dans le message de news:412c01c4a527$ed985eb0$ Bonjour, savez-vous comment déterminer l'OS avec un batch?
didier TEST
"Nicolas POPOVIC" a écrit dans le message de news:412c01c4a527$ed985eb0$
Bonjour, savez-vous comment déterminer l'OS avec un batch?
Oui, je me suis fait un petit truc qui me retourne dans un fichier plein d info divers en voici l'extrait pour l OS (y a peut etre un peu de menage a faire mais ca marche):
'---Version Windows Dim oShell, oEnv, TypeOS, PathWin, strDebug
Set oShell = CreateObject("WScript.Shell") Set oEnv = oShell.Environment("PROCESS") TypeOS = oEnv("OS") PathWin = oEnv("WINDIR") If TypeOS = "" Then TypeOS = "WIN9x" Enr = "type OS = " + TypeOS strDebug = strDebug + vbCr + Enr
Tmp = LitBaseReg("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersioncurrentVersion") Enr = "num ver = " + Tmp strDebug = strDebug + vbCr + Enr End If
Function LitBaseReg(ByVal CleReg) Rem *************************************************************************** Rem * Objet : Lit la valeur d une cle dans la base de registre * Rem * * Rem * Entrées: Nom de la cle a chercher * Rem * * Rem * Retours: Valeur de la clé * Rem * * Rem *************************************************************************** Rem * Dim WshShell, Rep Rep = "Rien" On Error Resume Next 'astuce anti blocage bizarre Set WshShell = CreateObject("WScript.Shell") Rep = WshShell.RegRead(CleReg) LitBaseReg = Rep End Function
"Nicolas POPOVIC" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:412c01c4a527$ed985eb0$a401280a@phx.gbl...
Bonjour, savez-vous comment déterminer l'OS avec un batch?
Oui, je me suis fait un petit truc qui me retourne dans un fichier plein d
info divers
en voici l'extrait pour l OS (y a peut etre un peu de menage a faire mais ca
marche):
'---Version Windows
Dim oShell, oEnv, TypeOS, PathWin, strDebug
Set oShell = CreateObject("WScript.Shell")
Set oEnv = oShell.Environment("PROCESS")
TypeOS = oEnv("OS")
PathWin = oEnv("WINDIR")
If TypeOS = "" Then TypeOS = "WIN9x"
Enr = "type OS = " + TypeOS
strDebug = strDebug + vbCr + Enr
Tmp = LitBaseReg("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows
NTCurrentVersioncurrentVersion")
Enr = "num ver = " + Tmp
strDebug = strDebug + vbCr + Enr
End If
Function LitBaseReg(ByVal CleReg)
Rem
***************************************************************************
Rem * Objet : Lit la valeur d une cle dans la base de registre
*
Rem *
*
Rem * Entrées: Nom de la cle a chercher
*
Rem *
*
Rem * Retours: Valeur de la clé
*
Rem *
*
Rem
***************************************************************************
Rem *
Dim WshShell, Rep
Rep = "Rien"
On Error Resume Next 'astuce anti blocage bizarre
Set WshShell = CreateObject("WScript.Shell")
Rep = WshShell.RegRead(CleReg)
LitBaseReg = Rep
End Function
"Nicolas POPOVIC" a écrit dans le message de news:412c01c4a527$ed985eb0$
Bonjour, savez-vous comment déterminer l'OS avec un batch?
Oui, je me suis fait un petit truc qui me retourne dans un fichier plein d info divers en voici l'extrait pour l OS (y a peut etre un peu de menage a faire mais ca marche):
'---Version Windows Dim oShell, oEnv, TypeOS, PathWin, strDebug
Set oShell = CreateObject("WScript.Shell") Set oEnv = oShell.Environment("PROCESS") TypeOS = oEnv("OS") PathWin = oEnv("WINDIR") If TypeOS = "" Then TypeOS = "WIN9x" Enr = "type OS = " + TypeOS strDebug = strDebug + vbCr + Enr
Tmp = LitBaseReg("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersioncurrentVersion") Enr = "num ver = " + Tmp strDebug = strDebug + vbCr + Enr End If
Function LitBaseReg(ByVal CleReg) Rem *************************************************************************** Rem * Objet : Lit la valeur d une cle dans la base de registre * Rem * * Rem * Entrées: Nom de la cle a chercher * Rem * * Rem * Retours: Valeur de la clé * Rem * * Rem *************************************************************************** Rem * Dim WshShell, Rep Rep = "Rien" On Error Resume Next 'astuce anti blocage bizarre Set WshShell = CreateObject("WScript.Shell") Rep = WshShell.RegRead(CleReg) LitBaseReg = Rep End Function
