Je d=E9sirerais savoir comment faire pour trouver une occurence telle :
"Soreson" dans la base de registre sous l'arborescence de kle :
HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\......
ceci pour savoir si ce logiciel a =E9t=E9 install=E9
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
Gilles LAURENT
"Georges" a écrit dans le message de news: | Bonjour,
Bonjour,
| Je désirerais savoir comment faire pour trouver une occurence telle : | "Soreson" dans la base de registre sous l'arborescence de kle : | HKLMSoftwareMicrosoftWindowsCurrentVersionUninstall...... | ceci pour savoir si ce logiciel a été installé
Ci-dessous une commande permettant de rechercher une occurence dans le regsitre. La commande doit être entrée dans une invite de commandes sur une seule ligne :
"Georges" <y.dagor@gmail.com> a écrit dans le message de
news:1162636003.399554.274440@k70g2000cwa.googlegroups.com
| Bonjour,
Bonjour,
| Je désirerais savoir comment faire pour trouver une occurence telle :
| "Soreson" dans la base de registre sous l'arborescence de kle :
| HKLMSoftwareMicrosoftWindowsCurrentVersionUninstall......
| ceci pour savoir si ce logiciel a été installé
Ci-dessous une commande permettant de rechercher une occurence dans le
regsitre. La commande doit être entrée dans une invite de commandes sur
une seule ligne :
"Georges" a écrit dans le message de news: | Bonjour,
Bonjour,
| Je désirerais savoir comment faire pour trouver une occurence telle : | "Soreson" dans la base de registre sous l'arborescence de kle : | HKLMSoftwareMicrosoftWindowsCurrentVersionUninstall...... | ceci pour savoir si ce logiciel a été installé
Ci-dessous une commande permettant de rechercher une occurence dans le regsitre. La commande doit être entrée dans une invite de commandes sur une seule ligne :
"Georges" a écrit dans le message de news: | Bonjour,
Bonjour,
| Je désirerais savoir comment faire pour trouver une occurence telle : | "Soreson" dans la base de registre sous l'arborescence de kle : | HKLMSoftwareMicrosoftWindowsCurrentVersionUninstall...... | ceci pour savoir si ce logiciel a été installé
Ci-dessous une commande permettant de rechercher une occurence dans le regsitre. La commande doit être entrée dans une invite de commandes s ur une seule ligne :
Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de login pour avoir une réponse oui ou non et, si elle existe, c'est que je peux mettre à jour ce logiciel, sinon, je l'installe
Merci
"Georges" <y.dagor@gmail.com> a écrit dans le message de
news:1162636003.399554.274440@k70g2000cwa.googlegroups.com
| Bonjour,
Bonjour,
| Je désirerais savoir comment faire pour trouver une occurence telle :
| "Soreson" dans la base de registre sous l'arborescence de kle :
| HKLMSoftwareMicrosoftWindowsCurrentVersionUninstall......
| ceci pour savoir si ce logiciel a été installé
Ci-dessous une commande permettant de rechercher une occurence dans le
regsitre. La commande doit être entrée dans une invite de commandes s ur
une seule ligne :
Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de
login pour avoir une réponse oui ou non et, si elle existe, c'est que
je peux mettre à jour ce logiciel, sinon, je l'installe
"Georges" a écrit dans le message de news: | Bonjour,
Bonjour,
| Je désirerais savoir comment faire pour trouver une occurence telle : | "Soreson" dans la base de registre sous l'arborescence de kle : | HKLMSoftwareMicrosoftWindowsCurrentVersionUninstall...... | ceci pour savoir si ce logiciel a été installé
Ci-dessous une commande permettant de rechercher une occurence dans le regsitre. La commande doit être entrée dans une invite de commandes s ur une seule ligne :
Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de login pour avoir une réponse oui ou non et, si elle existe, c'est que je peux mettre à jour ce logiciel, sinon, je l'installe
Merci
Gilles LAURENT
"Georges" a écrit dans le message de news: | Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de | login pour avoir une réponse oui ou non et, si elle existe, c'est que | je peux mettre à jour ce logiciel, sinon, je l'installe
Ci-dessous la fonction VBScript 'IsProductInstalled' permettant de déterminer si un produit est installé ou non. Le nom du produit est transmis comme argument à la fonction.
+++ Usage (VBScript) If IsProductInstalled ("soreson") = True Then WScript.Echo "Product is installed ..." Else WScript.Echo "Product is not installed ..." End If
--- Coupez ici : IsProductInstalled.vbs ---
Function IsProductInstalled (strProductName)
' déclaration des variables Dim oReg Dim strKey, strData Dim arrKeys Dim bRet: bRet = False
' définition des constantes Const HKLM = &H80000002 Const KEY = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall" Const DNA = "DisplayName"
' initialisation des objets Set oReg = GetObject ("winmgmts:rootdefault:StdRegProv")
' énumération des clés oReg.EnumKey HKLM, KEY, arrKeys For Each strKey In arrKeys ' lecture du nom affiché (ajout/suppression de programmes) oReg.GetStringValue HKLM, KEY & "" & strKey, DNA, strData
' recherche du nom du produit dans le nom de la clé ou ' dans le nom affiché If _ InStr (1, strKey, strProductName, 1) Or _ InStr (1, strData, strProductName, 1) Then ' Le produit est installé bRet = True End If Next
' retour du résultat de la recherche IsProductInstalled = bRet
End Function
--- Coupez ici : IsProductInstalled.vbs ---
-- Gilles LAURENT http://glsft.free.fr
"Georges" <y.dagor@gmail.com> a écrit dans le message de
news:1162647560.007439.196280@m73g2000cwd.googlegroups.com
| Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de
| login pour avoir une réponse oui ou non et, si elle existe, c'est que
| je peux mettre à jour ce logiciel, sinon, je l'installe
Ci-dessous la fonction VBScript 'IsProductInstalled' permettant de
déterminer si un produit est installé ou non. Le nom du produit est
transmis comme argument à la fonction.
+++ Usage (VBScript)
If IsProductInstalled ("soreson") = True Then
WScript.Echo "Product is installed ..."
Else
WScript.Echo "Product is not installed ..."
End If
--- Coupez ici : IsProductInstalled.vbs ---
Function IsProductInstalled (strProductName)
' déclaration des variables
Dim oReg
Dim strKey, strData
Dim arrKeys
Dim bRet: bRet = False
' définition des constantes
Const HKLM = &H80000002
Const KEY = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall"
Const DNA = "DisplayName"
' initialisation des objets
Set oReg = GetObject ("winmgmts:rootdefault:StdRegProv")
' énumération des clés
oReg.EnumKey HKLM, KEY, arrKeys
For Each strKey In arrKeys
' lecture du nom affiché (ajout/suppression de programmes)
oReg.GetStringValue HKLM, KEY & "" & strKey, DNA, strData
' recherche du nom du produit dans le nom de la clé ou
' dans le nom affiché
If _
InStr (1, strKey, strProductName, 1) Or _
InStr (1, strData, strProductName, 1) Then
' Le produit est installé
bRet = True
End If
Next
' retour du résultat de la recherche
IsProductInstalled = bRet
"Georges" a écrit dans le message de news: | Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de | login pour avoir une réponse oui ou non et, si elle existe, c'est que | je peux mettre à jour ce logiciel, sinon, je l'installe
Ci-dessous la fonction VBScript 'IsProductInstalled' permettant de déterminer si un produit est installé ou non. Le nom du produit est transmis comme argument à la fonction.
+++ Usage (VBScript) If IsProductInstalled ("soreson") = True Then WScript.Echo "Product is installed ..." Else WScript.Echo "Product is not installed ..." End If
--- Coupez ici : IsProductInstalled.vbs ---
Function IsProductInstalled (strProductName)
' déclaration des variables Dim oReg Dim strKey, strData Dim arrKeys Dim bRet: bRet = False
' définition des constantes Const HKLM = &H80000002 Const KEY = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall" Const DNA = "DisplayName"
' initialisation des objets Set oReg = GetObject ("winmgmts:rootdefault:StdRegProv")
' énumération des clés oReg.EnumKey HKLM, KEY, arrKeys For Each strKey In arrKeys ' lecture du nom affiché (ajout/suppression de programmes) oReg.GetStringValue HKLM, KEY & "" & strKey, DNA, strData
' recherche du nom du produit dans le nom de la clé ou ' dans le nom affiché If _ InStr (1, strKey, strProductName, 1) Or _ InStr (1, strData, strProductName, 1) Then ' Le produit est installé bRet = True End If Next
' retour du résultat de la recherche IsProductInstalled = bRet
End Function
--- Coupez ici : IsProductInstalled.vbs ---
-- Gilles LAURENT http://glsft.free.fr
Georges
"Georges" a écrit dans le message de news: | Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de | login pour avoir une réponse oui ou non et, si elle existe, c'est que | je peux mettre à jour ce logiciel, sinon, je l'installe
Ci-dessous la fonction VBScript 'IsProductInstalled' permettant de déterminer si un produit est installé ou non. Le nom du produit est transmis comme argument à la fonction.
+++ Usage (VBScript) If IsProductInstalled ("soreson") = True Then WScript.Echo "Product is installed ..." Else WScript.Echo "Product is not installed ..." End If
--- Coupez ici : IsProductInstalled.vbs ---
Function IsProductInstalled (strProductName)
' déclaration des variables Dim oReg Dim strKey, strData Dim arrKeys Dim bRet: bRet = False
' définition des constantes Const HKLM = &H80000002 Const KEY = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall" Const DNA = "DisplayName"
' initialisation des objets Set oReg = GetObject ("winmgmts:rootdefault:StdRegProv")
' énumération des clés oReg.EnumKey HKLM, KEY, arrKeys For Each strKey In arrKeys ' lecture du nom affiché (ajout/suppression de programmes) oReg.GetStringValue HKLM, KEY & "" & strKey, DNA, strData
' recherche du nom du produit dans le nom de la clé ou ' dans le nom affiché If _ InStr (1, strKey, strProductName, 1) Or _ InStr (1, strData, strProductName, 1) Then ' Le produit est installé bRet = True End If Next
' retour du résultat de la recherche IsProductInstalled = bRet
End Function
--- Coupez ici : IsProductInstalled.vbs ---
-- Gilles LAURENT http://glsft.free.fr
merci beaucoup, ça marche du feu de dieu !
Cordialement G
"Georges" <y.dagor@gmail.com> a écrit dans le message de
news:1162647560.007439.196280@m73g2000cwd.googlegroups.com
| Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de
| login pour avoir une réponse oui ou non et, si elle existe, c'est que
| je peux mettre à jour ce logiciel, sinon, je l'installe
Ci-dessous la fonction VBScript 'IsProductInstalled' permettant de
déterminer si un produit est installé ou non. Le nom du produit est
transmis comme argument à la fonction.
+++ Usage (VBScript)
If IsProductInstalled ("soreson") = True Then
WScript.Echo "Product is installed ..."
Else
WScript.Echo "Product is not installed ..."
End If
--- Coupez ici : IsProductInstalled.vbs ---
Function IsProductInstalled (strProductName)
' déclaration des variables
Dim oReg
Dim strKey, strData
Dim arrKeys
Dim bRet: bRet = False
' définition des constantes
Const HKLM = &H80000002
Const KEY = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall"
Const DNA = "DisplayName"
' initialisation des objets
Set oReg = GetObject ("winmgmts:rootdefault:StdRegProv")
' énumération des clés
oReg.EnumKey HKLM, KEY, arrKeys
For Each strKey In arrKeys
' lecture du nom affiché (ajout/suppression de programmes)
oReg.GetStringValue HKLM, KEY & "" & strKey, DNA, strData
' recherche du nom du produit dans le nom de la clé ou
' dans le nom affiché
If _
InStr (1, strKey, strProductName, 1) Or _
InStr (1, strData, strProductName, 1) Then
' Le produit est installé
bRet = True
End If
Next
' retour du résultat de la recherche
IsProductInstalled = bRet
"Georges" a écrit dans le message de news: | Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de | login pour avoir une réponse oui ou non et, si elle existe, c'est que | je peux mettre à jour ce logiciel, sinon, je l'installe
Ci-dessous la fonction VBScript 'IsProductInstalled' permettant de déterminer si un produit est installé ou non. Le nom du produit est transmis comme argument à la fonction.
+++ Usage (VBScript) If IsProductInstalled ("soreson") = True Then WScript.Echo "Product is installed ..." Else WScript.Echo "Product is not installed ..." End If
--- Coupez ici : IsProductInstalled.vbs ---
Function IsProductInstalled (strProductName)
' déclaration des variables Dim oReg Dim strKey, strData Dim arrKeys Dim bRet: bRet = False
' définition des constantes Const HKLM = &H80000002 Const KEY = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall" Const DNA = "DisplayName"
' initialisation des objets Set oReg = GetObject ("winmgmts:rootdefault:StdRegProv")
' énumération des clés oReg.EnumKey HKLM, KEY, arrKeys For Each strKey In arrKeys ' lecture du nom affiché (ajout/suppression de programmes) oReg.GetStringValue HKLM, KEY & "" & strKey, DNA, strData
' recherche du nom du produit dans le nom de la clé ou ' dans le nom affiché If _ InStr (1, strKey, strProductName, 1) Or _ InStr (1, strData, strProductName, 1) Then ' Le produit est installé bRet = True End If Next
' retour du résultat de la recherche IsProductInstalled = bRet
End Function
--- Coupez ici : IsProductInstalled.vbs ---
-- Gilles LAURENT http://glsft.free.fr
merci beaucoup, ça marche du feu de dieu !
Cordialement G
Georges
"Georges" a écrit dans le message de news: | Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de | login pour avoir une réponse oui ou non et, si elle existe, c'est que | je peux mettre à jour ce logiciel, sinon, je l'installe
Ci-dessous la fonction VBScript 'IsProductInstalled' permettant de déterminer si un produit est installé ou non. Le nom du produit est transmis comme argument à la fonction.
+++ Usage (VBScript) If IsProductInstalled ("soreson") = True Then WScript.Echo "Product is installed ..." Else WScript.Echo "Product is not installed ..." End If
--- Coupez ici : IsProductInstalled.vbs ---
Function IsProductInstalled (strProductName)
' déclaration des variables Dim oReg Dim strKey, strData Dim arrKeys Dim bRet: bRet = False
' définition des constantes Const HKLM = &H80000002 Const KEY = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall" Const DNA = "DisplayName"
' initialisation des objets Set oReg = GetObject ("winmgmts:rootdefault:StdRegProv")
' énumération des clés oReg.EnumKey HKLM, KEY, arrKeys For Each strKey In arrKeys ' lecture du nom affiché (ajout/suppression de programmes) oReg.GetStringValue HKLM, KEY & "" & strKey, DNA, strData
' recherche du nom du produit dans le nom de la clé ou ' dans le nom affiché If _ InStr (1, strKey, strProductName, 1) Or _ InStr (1, strData, strProductName, 1) Then ' Le produit est installé bRet = True End If Next
' retour du résultat de la recherche IsProductInstalled = bRet
End Function
--- Coupez ici : IsProductInstalled.vbs ---
-- Gilles LAURENT http://glsft.free.fr
Bonjour,
Je viens de m'apercevoir que j'ai besoin de balayer toutes les Clés qui sont sous SOFTWAREMicrosoftWindowsCurrentVersionUninstall pour trouver une sous clé qui se nomme DisplayType=xxxxx
avez vous une idée
Merci Cordialement
Georges
"Georges" <y.dagor@gmail.com> a écrit dans le message de
news:1162647560.007439.196280@m73g2000cwd.googlegroups.com
| Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de
| login pour avoir une réponse oui ou non et, si elle existe, c'est que
| je peux mettre à jour ce logiciel, sinon, je l'installe
Ci-dessous la fonction VBScript 'IsProductInstalled' permettant de
déterminer si un produit est installé ou non. Le nom du produit est
transmis comme argument à la fonction.
+++ Usage (VBScript)
If IsProductInstalled ("soreson") = True Then
WScript.Echo "Product is installed ..."
Else
WScript.Echo "Product is not installed ..."
End If
--- Coupez ici : IsProductInstalled.vbs ---
Function IsProductInstalled (strProductName)
' déclaration des variables
Dim oReg
Dim strKey, strData
Dim arrKeys
Dim bRet: bRet = False
' définition des constantes
Const HKLM = &H80000002
Const KEY = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall"
Const DNA = "DisplayName"
' initialisation des objets
Set oReg = GetObject ("winmgmts:rootdefault:StdRegProv")
' énumération des clés
oReg.EnumKey HKLM, KEY, arrKeys
For Each strKey In arrKeys
' lecture du nom affiché (ajout/suppression de programmes)
oReg.GetStringValue HKLM, KEY & "" & strKey, DNA, strData
' recherche du nom du produit dans le nom de la clé ou
' dans le nom affiché
If _
InStr (1, strKey, strProductName, 1) Or _
InStr (1, strData, strProductName, 1) Then
' Le produit est installé
bRet = True
End If
Next
' retour du résultat de la recherche
IsProductInstalled = bRet
End Function
--- Coupez ici : IsProductInstalled.vbs ---
--
Gilles LAURENT
http://glsft.free.fr
Bonjour,
Je viens de m'apercevoir que j'ai besoin de balayer toutes les Clés
qui sont sous
SOFTWAREMicrosoftWindowsCurrentVersionUninstall
pour trouver une sous clé qui se nomme DisplayType=xxxxx
"Georges" a écrit dans le message de news: | Ok c'est trés bon, mais, je voudrais tester cette klé dans un vbs de | login pour avoir une réponse oui ou non et, si elle existe, c'est que | je peux mettre à jour ce logiciel, sinon, je l'installe
Ci-dessous la fonction VBScript 'IsProductInstalled' permettant de déterminer si un produit est installé ou non. Le nom du produit est transmis comme argument à la fonction.
+++ Usage (VBScript) If IsProductInstalled ("soreson") = True Then WScript.Echo "Product is installed ..." Else WScript.Echo "Product is not installed ..." End If
--- Coupez ici : IsProductInstalled.vbs ---
Function IsProductInstalled (strProductName)
' déclaration des variables Dim oReg Dim strKey, strData Dim arrKeys Dim bRet: bRet = False
' définition des constantes Const HKLM = &H80000002 Const KEY = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall" Const DNA = "DisplayName"
' initialisation des objets Set oReg = GetObject ("winmgmts:rootdefault:StdRegProv")
' énumération des clés oReg.EnumKey HKLM, KEY, arrKeys For Each strKey In arrKeys ' lecture du nom affiché (ajout/suppression de programmes) oReg.GetStringValue HKLM, KEY & "" & strKey, DNA, strData
' recherche du nom du produit dans le nom de la clé ou ' dans le nom affiché If _ InStr (1, strKey, strProductName, 1) Or _ InStr (1, strData, strProductName, 1) Then ' Le produit est installé bRet = True End If Next
' retour du résultat de la recherche IsProductInstalled = bRet
End Function
--- Coupez ici : IsProductInstalled.vbs ---
-- Gilles LAURENT http://glsft.free.fr
Bonjour,
Je viens de m'apercevoir que j'ai besoin de balayer toutes les Clés qui sont sous SOFTWAREMicrosoftWindowsCurrentVersionUninstall pour trouver une sous clé qui se nomme DisplayType=xxxxx
avez vous une idée
Merci Cordialement
Georges
Jean-Claude BELLAMY
Dans le message :, Georges a pris la peine d'écrire ce qui suit :
[...] Je viens de m'apercevoir que j'ai besoin de balayer toutes les Clés qui sont sous SOFTWAREMicrosoftWindowsCurrentVersionUninstall pour trouver une sous clé qui se nomme DisplayType=xxxxx
avez vous une idée
Je fais cela depuis des siècles (euh... presque!) dans mon script DELUNINSTALL.VBS! ;-) http://www.bellamyjc.org/fr/vbsdownload.html#deluninstall
const HKEY_LOCAL_MACHINE = &H80000002 ... on error resume next ... Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!.rootdefault:StdRegProv") strKeyPath = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall" oReg.EnumKey HKEY_LOCAL_MACHINE,strKeyPath,arrSubKeys For Each subkey In arrSubKeys coderet=oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & _ "" & subkey,"DisplayType", DisplayType If (coderet= 0) And (Err.Number = 0) Then ' traitement sur DisplayType ' ' end if Next ...
PS : ce "DisplayType" me surprend !
Je ne vois çà nulle part dans mes BDR. Par contre on trouve très souvent "DisplayName", "DisplayIcon" ou "DisplayVersion" Mais peut-être que c'est une particularité chez toi, que justement tu recherches ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Dans le message :1162821799.447698.284690@f16g2000cwb.googlegroups.com,
Georges <y.dagor@gmail.com> a pris la peine d'écrire ce qui suit :
[...]
Je viens de m'apercevoir que j'ai besoin de balayer toutes les Clés
qui sont sous
SOFTWAREMicrosoftWindowsCurrentVersionUninstall
pour trouver une sous clé qui se nomme DisplayType=xxxxx
avez vous une idée
Je fais cela depuis des siècles (euh... presque!) dans mon script
DELUNINSTALL.VBS! ;-)
http://www.bellamyjc.org/fr/vbsdownload.html#deluninstall
const HKEY_LOCAL_MACHINE = &H80000002
...
on error resume next
...
Set
oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\.rootdefault:StdRegProv")
strKeyPath = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE,strKeyPath,arrSubKeys
For Each subkey In arrSubKeys
coderet=oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & _
"" & subkey,"DisplayType", DisplayType
If (coderet= 0) And (Err.Number = 0) Then
' traitement sur DisplayType
'
'
end if
Next
...
PS : ce "DisplayType" me surprend !
Je ne vois çà nulle part dans mes BDR.
Par contre on trouve très souvent "DisplayName", "DisplayIcon" ou
"DisplayVersion"
Mais peut-être que c'est une particularité chez toi, que justement tu
recherches ...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Dans le message :, Georges a pris la peine d'écrire ce qui suit :
[...] Je viens de m'apercevoir que j'ai besoin de balayer toutes les Clés qui sont sous SOFTWAREMicrosoftWindowsCurrentVersionUninstall pour trouver une sous clé qui se nomme DisplayType=xxxxx
avez vous une idée
Je fais cela depuis des siècles (euh... presque!) dans mon script DELUNINSTALL.VBS! ;-) http://www.bellamyjc.org/fr/vbsdownload.html#deluninstall
const HKEY_LOCAL_MACHINE = &H80000002 ... on error resume next ... Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!.rootdefault:StdRegProv") strKeyPath = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall" oReg.EnumKey HKEY_LOCAL_MACHINE,strKeyPath,arrSubKeys For Each subkey In arrSubKeys coderet=oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & _ "" & subkey,"DisplayType", DisplayType If (coderet= 0) And (Err.Number = 0) Then ' traitement sur DisplayType ' ' end if Next ...
PS : ce "DisplayType" me surprend !
Je ne vois çà nulle part dans mes BDR. Par contre on trouve très souvent "DisplayName", "DisplayIcon" ou "DisplayVersion" Mais peut-être que c'est une particularité chez toi, que justement tu recherches ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Georges
Dans le message :, Georges a pris la peine d'écrire ce qui suit :
[...] Je viens de m'apercevoir que j'ai besoin de balayer toutes les Clés qui sont sous SOFTWAREMicrosoftWindowsCurrentVersionUninstall pour trouver une sous clé qui se nomme DisplayType=xxxxx
avez vous une idée
Je fais cela depuis des siècles (euh... presque!) dans mon script DELUNINSTALL.VBS! ;-) http://www.bellamyjc.org/fr/vbsdownload.html#deluninstall
const HKEY_LOCAL_MACHINE = &H80000002 ... on error resume next ... Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!.rootde fault:StdRegProv") strKeyPath = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall" oReg.EnumKey HKEY_LOCAL_MACHINE,strKeyPath,arrSubKeys For Each subkey In arrSubKeys coderet=oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & _ "" & subkey,"DisplayType", DisplayType If (coderet= 0) And (Err.Number = 0) Then ' traitement sur DisplayType ' ' end if Next ...
PS : ce "DisplayType" me surprend !
Je ne vois çà nulle part dans mes BDR. Par contre on trouve très souvent "DisplayName", "DisplayIcon" ou "DisplayVersion" Mais peut-être que c'est une particularité chez toi, que justement tu recherches ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Bonsoir,
Merci, c'est justement ce que j'attendais
Cordialement
Georges
Dans le message :1162821799.447698.284690@f16g2000cwb.googlegroups.com,
Georges <y.dagor@gmail.com> a pris la peine d'écrire ce qui suit :
[...]
Je viens de m'apercevoir que j'ai besoin de balayer toutes les Clés
qui sont sous
SOFTWAREMicrosoftWindowsCurrentVersionUninstall
pour trouver une sous clé qui se nomme DisplayType=xxxxx
avez vous une idée
Je fais cela depuis des siècles (euh... presque!) dans mon script
DELUNINSTALL.VBS! ;-)
http://www.bellamyjc.org/fr/vbsdownload.html#deluninstall
const HKEY_LOCAL_MACHINE = &H80000002
...
on error resume next
...
Set
oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\.rootde fault:StdRegProv")
strKeyPath = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall"
oReg.EnumKey HKEY_LOCAL_MACHINE,strKeyPath,arrSubKeys
For Each subkey In arrSubKeys
coderet=oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & _
"" & subkey,"DisplayType", DisplayType
If (coderet= 0) And (Err.Number = 0) Then
' traitement sur DisplayType
'
'
end if
Next
...
PS : ce "DisplayType" me surprend !
Je ne vois çà nulle part dans mes BDR.
Par contre on trouve très souvent "DisplayName", "DisplayIcon" ou
"DisplayVersion"
Mais peut-être que c'est une particularité chez toi, que justement tu
recherches ...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Dans le message :, Georges a pris la peine d'écrire ce qui suit :
[...] Je viens de m'apercevoir que j'ai besoin de balayer toutes les Clés qui sont sous SOFTWAREMicrosoftWindowsCurrentVersionUninstall pour trouver une sous clé qui se nomme DisplayType=xxxxx
avez vous une idée
Je fais cela depuis des siècles (euh... presque!) dans mon script DELUNINSTALL.VBS! ;-) http://www.bellamyjc.org/fr/vbsdownload.html#deluninstall
const HKEY_LOCAL_MACHINE = &H80000002 ... on error resume next ... Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!.rootde fault:StdRegProv") strKeyPath = "SOFTWAREMicrosoftWindowsCurrentVersionUninstall" oReg.EnumKey HKEY_LOCAL_MACHINE,strKeyPath,arrSubKeys For Each subkey In arrSubKeys coderet=oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & _ "" & subkey,"DisplayType", DisplayType If (coderet= 0) And (Err.Number = 0) Then ' traitement sur DisplayType ' ' end if Next ...
PS : ce "DisplayType" me surprend !
Je ne vois çà nulle part dans mes BDR. Par contre on trouve très souvent "DisplayName", "DisplayIcon" ou "DisplayVersion" Mais peut-être que c'est une particularité chez toi, que justement tu recherches ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Bonsoir,
Merci, c'est justement ce que j'attendais
Cordialement
Georges
Georges
Bonjour,
coderet=oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & _ "" & subkey,"DisplayType", DisplayType If (coderet= 0) And (Err.Number = 0) Then ' traitement sur DisplayType ' ' end if Next
Ok, mais je crois que dans mon script, j'ai une erreur et je ne sais pas où à la ligne de la ligne du coderet et peut etre du psexec
If fso.FileExists(nom_fich) = false Then commande = "mon-controleurtemppsexec " & PcName & " -d net localgroup administrateur mondomaine" & Username & " /Add"
coderet = Shell.Run & " " & commande & ",1,true" commande = "serveurappliappli.msi /quiet /passive /log %temp%appli.log" Shell.Run commande,1,true If (coderet= 0) And (Err.Number = 0) Then commande = "mon-controleurtemppsexec " & PcName & " -d net localgroup administrateur mondomaine" & Username & " /Delete" Shell.Run commande,1,true endif 'copie du résultat pour le Collaboratif fso.CopyFile tfolder & ....... End If
Merci pour l'aide
Georges
Bonjour,
coderet=oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & _
"" & subkey,"DisplayType", DisplayType
If (coderet= 0) And (Err.Number = 0) Then
' traitement sur DisplayType
'
'
end if
Next
Ok, mais je crois que dans mon script, j'ai une erreur et je ne sais
pas où à la ligne de la ligne du coderet et peut etre du psexec
If fso.FileExists(nom_fich) = false Then
commande = "\mon-controleurtemppsexec \" & PcName & " -d net
localgroup administrateur mondomaine" & Username & " /Add"
coderet = Shell.Run & " " & commande & ",1,true"
commande = "\serveurappliappli.msi /quiet /passive /log
%temp%appli.log"
Shell.Run commande,1,true
If (coderet= 0) And (Err.Number = 0) Then
commande = "\mon-controleurtemppsexec \" & PcName & " -d net
localgroup administrateur mondomaine" & Username & " /Delete"
Shell.Run commande,1,true
endif
'copie du résultat pour le Collaboratif
fso.CopyFile tfolder & .......
End If
coderet=oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & _ "" & subkey,"DisplayType", DisplayType If (coderet= 0) And (Err.Number = 0) Then ' traitement sur DisplayType ' ' end if Next
Ok, mais je crois que dans mon script, j'ai une erreur et je ne sais pas où à la ligne de la ligne du coderet et peut etre du psexec
If fso.FileExists(nom_fich) = false Then commande = "mon-controleurtemppsexec " & PcName & " -d net localgroup administrateur mondomaine" & Username & " /Add"
coderet = Shell.Run & " " & commande & ",1,true" commande = "serveurappliappli.msi /quiet /passive /log %temp%appli.log" Shell.Run commande,1,true If (coderet= 0) And (Err.Number = 0) Then commande = "mon-controleurtemppsexec " & PcName & " -d net localgroup administrateur mondomaine" & Username & " /Delete" Shell.Run commande,1,true endif 'copie du résultat pour le Collaboratif fso.CopyFile tfolder & ....... End If
