Bonjour,
j'ai un script don une partie doit s'executer sur les workstation (2000 pro
ou xp) et non sur les serveur (2000 ou 2003 ) comment fait la différence
entre les 2 environement en script vbs
Merci d'avance
Yann
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
Jean-Claude BELLAMY
Dans le message news: , news.microsoft.com s'est ainsi exprimé:
Bonjour, j'ai un script don une partie doit s'executer sur les workstation (2000 pro ou xp) et non sur les serveur (2000 ou 2003 ) comment fait la différence entre les 2 environement en script vbs
Il suffit de tester la clef (de type REG_SZ) HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlProductOptionsProductType dont la valeur est respectivement :
OS Station de travail : "WinNT"
OS Serveur : "ServerNT"
-------- couper ici -------- Set Shell = WScript.CreateObject("WScript.Shell") ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptionsProductType")) If ProductType="winnt" then ' OS station ... Elseif ProductType="servernt" then ' OS server ... Else ' Il y a un problème ! end if -------- couper ici --------
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
Dans le message news:Oy5NKWwSFHA.1044@TK2MSFTNGP10.phx.gbl ,
news.microsoft.com <yann@toto.com> s'est ainsi exprimé:
Bonjour,
j'ai un script don une partie doit s'executer sur les workstation
(2000 pro ou xp) et non sur les serveur (2000 ou 2003 ) comment fait
la différence entre les 2 environement en script vbs
Il suffit de tester la clef (de type REG_SZ)
HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlProductOptionsProductType
dont la valeur est respectivement :
OS Station de travail :
"WinNT"
OS Serveur :
"ServerNT"
-------- couper ici --------
Set Shell = WScript.CreateObject("WScript.Shell")
ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptionsProductType"))
If ProductType="winnt" then
' OS station
...
Elseif ProductType="servernt" then
' OS server
...
Else
' Il y a un problème !
end if
-------- couper ici --------
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr
Dans le message news: , news.microsoft.com s'est ainsi exprimé:
Bonjour, j'ai un script don une partie doit s'executer sur les workstation (2000 pro ou xp) et non sur les serveur (2000 ou 2003 ) comment fait la différence entre les 2 environement en script vbs
Il suffit de tester la clef (de type REG_SZ) HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlProductOptionsProductType dont la valeur est respectivement :
OS Station de travail : "WinNT"
OS Serveur : "ServerNT"
-------- couper ici -------- Set Shell = WScript.CreateObject("WScript.Shell") ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptionsProductType")) If ProductType="winnt" then ' OS station ... Elseif ProductType="servernt" then ' OS server ... Else ' Il y a un problème ! end if -------- couper ici --------
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
Jean-Claude BELLAMY
Dans le message news: , Jean-Claude BELLAMY s'est ainsi exprimé:
Dans le message news: , news.microsoft.com s'est ainsi exprimé:
Bonjour, j'ai un script don une partie doit s'executer sur les workstation (2000 pro ou xp) et non sur les serveur (2000 ou 2003 ) comment fait la différence entre les 2 environement en script vbs
Il suffit de tester la clef (de type REG_SZ) HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlProductOptionsProductType dont la valeur est respectivement :
OS Station de travail : "WinNT"
OS Serveur : "ServerNT"
j'ai oublié de préciser ceci :
OS Serveur contrôleur de domaine : "LanmanNT"
Le script doit donc être un peu complèté : -------- couper ici -------- Set Shell = WScript.CreateObject("WScript.Shell") ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptionsProductType")) If ProductType="winnt" then ' OS station ... Elseif ProductType="servernt" then ' OS server ... Elseif ProductType="lanmannt" then ' OS server contrôleur de domaine ... Else ' Il y a un problème ! ... end if -------- couper ici --------
Désolé d'avoir posté trop vite tout à l'heure ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
Dans le message news:etmxsvwSFHA.2756@tk2msftngp13.phx.gbl ,
Jean-Claude BELLAMY <Jean-Claude.Bellamy@wanadoo.fr> s'est ainsi exprimé:
Dans le message news:Oy5NKWwSFHA.1044@TK2MSFTNGP10.phx.gbl ,
news.microsoft.com <yann@toto.com> s'est ainsi exprimé:
Bonjour,
j'ai un script don une partie doit s'executer sur les workstation
(2000 pro ou xp) et non sur les serveur (2000 ou 2003 ) comment fait
la différence entre les 2 environement en script vbs
Il suffit de tester la clef (de type REG_SZ)
HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlProductOptionsProductType
dont la valeur est respectivement :
OS Station de travail :
"WinNT"
OS Serveur :
"ServerNT"
j'ai oublié de préciser ceci :
OS Serveur contrôleur de domaine :
"LanmanNT"
Le script doit donc être un peu complèté :
-------- couper ici --------
Set Shell = WScript.CreateObject("WScript.Shell")
ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptionsProductType"))
If ProductType="winnt" then
' OS station
...
Elseif ProductType="servernt" then
' OS server
...
Elseif ProductType="lanmannt" then
' OS server contrôleur de domaine
...
Else
' Il y a un problème !
...
end if
-------- couper ici --------
Désolé d'avoir posté trop vite tout à l'heure ...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr
Dans le message news: , Jean-Claude BELLAMY s'est ainsi exprimé:
Dans le message news: , news.microsoft.com s'est ainsi exprimé:
Bonjour, j'ai un script don une partie doit s'executer sur les workstation (2000 pro ou xp) et non sur les serveur (2000 ou 2003 ) comment fait la différence entre les 2 environement en script vbs
Il suffit de tester la clef (de type REG_SZ) HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlProductOptionsProductType dont la valeur est respectivement :
OS Station de travail : "WinNT"
OS Serveur : "ServerNT"
j'ai oublié de préciser ceci :
OS Serveur contrôleur de domaine : "LanmanNT"
Le script doit donc être un peu complèté : -------- couper ici -------- Set Shell = WScript.CreateObject("WScript.Shell") ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptionsProductType")) If ProductType="winnt" then ' OS station ... Elseif ProductType="servernt" then ' OS server ... Elseif ProductType="lanmannt" then ' OS server contrôleur de domaine ... Else ' Il y a un problème ! ... end if -------- couper ici --------
Désolé d'avoir posté trop vite tout à l'heure ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
news.microsoft.com
"Jean-Claude BELLAMY" a écrit dans le message de news:
Dans le message news: , Jean-Claude BELLAMY s'est ainsi exprimé:
Dans le message news: , news.microsoft.com s'est ainsi exprimé:
Bonjour, j'ai un script don une partie doit s'executer sur les workstation (2000 pro ou xp) et non sur les serveur (2000 ou 2003 ) comment fait la différence entre les 2 environement en script vbs
If ProductType="winnt" then ' OS station ... Elseif ProductType="servernt" then ' OS server ... Elseif ProductType="lanmannt" then ' OS server contrôleur de domaine ... Else ' Il y a un problème ! ... end if -------- couper ici --------
Désolé d'avoir posté trop vite tout à l'heure ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
Merci beaucoup il manquait aussi system dans ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptio nsProductType")) Yann
"Jean-Claude BELLAMY" <Jean-Claude.Bellamy@wanadoo.fr> a écrit dans le
message de news: ObomJ0wSFHA.1896@TK2MSFTNGP14.phx.gbl...
Dans le message news:etmxsvwSFHA.2756@tk2msftngp13.phx.gbl ,
Jean-Claude BELLAMY <Jean-Claude.Bellamy@wanadoo.fr> s'est ainsi exprimé:
Dans le message news:Oy5NKWwSFHA.1044@TK2MSFTNGP10.phx.gbl ,
news.microsoft.com <yann@toto.com> s'est ainsi exprimé:
Bonjour,
j'ai un script don une partie doit s'executer sur les workstation
(2000 pro ou xp) et non sur les serveur (2000 ou 2003 ) comment fait
la différence entre les 2 environement en script vbs
If ProductType="winnt" then
' OS station
...
Elseif ProductType="servernt" then
' OS server
...
Elseif ProductType="lanmannt" then
' OS server contrôleur de domaine
...
Else
' Il y a un problème !
...
end if
-------- couper ici --------
Désolé d'avoir posté trop vite tout à l'heure ...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr
Merci beaucoup
il manquait aussi system dans
ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptio
nsProductType"))
Yann
"Jean-Claude BELLAMY" a écrit dans le message de news:
Dans le message news: , Jean-Claude BELLAMY s'est ainsi exprimé:
Dans le message news: , news.microsoft.com s'est ainsi exprimé:
Bonjour, j'ai un script don une partie doit s'executer sur les workstation (2000 pro ou xp) et non sur les serveur (2000 ou 2003 ) comment fait la différence entre les 2 environement en script vbs
If ProductType="winnt" then ' OS station ... Elseif ProductType="servernt" then ' OS server ... Elseif ProductType="lanmannt" then ' OS server contrôleur de domaine ... Else ' Il y a un problème ! ... end if -------- couper ici --------
Désolé d'avoir posté trop vite tout à l'heure ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
Merci beaucoup il manquait aussi system dans ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptio nsProductType")) Yann
Jean-Claude BELLAMY
Dans le message news: , news.microsoft.com s'est ainsi exprimé:
"Jean-Claude BELLAMY" a écrit dans le message de news: [...]
il manquait aussi system dans ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptio nsProductType"))
Merci d'avoir rectifié ! Je vois qu'il y en a qui suivent ! ;-)
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
Dans le message news:ek1zdtxSFHA.3244@TK2MSFTNGP15.phx.gbl ,
news.microsoft.com <yann@toto.com> s'est ainsi exprimé:
"Jean-Claude BELLAMY" <Jean-Claude.Bellamy@wanadoo.fr> a écrit dans le
message de news: ObomJ0wSFHA.1896@TK2MSFTNGP14.phx.gbl...
[...]
il manquait aussi system dans
ProductType=lcase(shell.regread("HKLMCurrentControlSetControlProductOptio
nsProductType"))
Merci d'avoir rectifié !
Je vois qu'il y en a qui suivent ! ;-)
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org
Jean-Claude.Bellamy@wanadoo.fr * JC.Bellamy@free.fr
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org *
