Comment donner un nom à une machine (=cp) et affecte à la variable d'environneme

medas918 Messages postés 45 Date d'inscription lundi 14 juin 2010 Statut Membre Dernière intervention 28 mai 2012 - 14 juin 2010 à 15:25
medas918 Messages postés 45 Date d'inscription lundi 14 juin 2010 Statut Membre Dernière intervention 28 mai 2012 - 14 juin 2010 à 16:53
j'ai un début de script ou l'ulisateur saisie le nom mais je ne sais pas comment je dois finir pour computername existe

3 réponses

medas918 Messages postés 45 Date d'inscription lundi 14 juin 2010 Statut Membre Dernière intervention 28 mai 2012
14 juin 2010 à 15:26
voilà le script sque j'ai fait:


option explicit

' recuparation de la ligne de commande
class argument,nomvariable
if WScript.arguments.unnamed.length>0 Then
Argument = WScript.Argument.unamed.item(0)
else
Argument = ""
End If
dim S, mess
' si on est en mode de ligne de commande
if instr(1,WScript.fullName, "csript") > 0 then
s = Wscript.stIn.Readline
Else
'boite de dialogue de saisie
s = InputBox ("saisser votre nom ... ", " exemple VB Script", Argument)

end if
if s "" then'si réponse vide saisie vide ou clic sur annuler
mess = " désolé, vous avez annulé cette action : fin de programme."
Wscript.echo mess
else
mess="" & vbcrlf & s

wscript.echo mess
'set toto = "mess "
end if
0
medas918 Messages postés 45 Date d'inscription lundi 14 juin 2010 Statut Membre Dernière intervention 28 mai 2012
14 juin 2010 à 16:24
un petit script que j'ai réussi seul pour donner un nom de machine avec une fenetre dans une variable en local voilà

option explicit

' recuparation de la ligne de commande
dim argument,nomvariable, fso, shl
if WScript.arguments.unnamed.length>0 Then
Argument = WScript.Argument.unamed.item(0)
else
Argument = ""
End If
dim S, mess
' si on est en mode de ligne de commande
if instr(1,WScript.fullName, "csript") > 0 then
s = Wscript.stIn.Readline
Else
'boite de dialogue de saisie
s = InputBox ("saisser votre nom ... ", " exemple VB Script", Argument)

end if
if s "" then'si réponse vide saisie vide ou clic sur annuler
mess = " désolé, vous avez annulé cette action : fin de programme."
Wscript.echo mess
else
mess="" & vbcrlf & s

wscript.echo mess
'set toto = "mess "
end if

Set fso = CreateObject("Scripting.FileSystemObject" )
set shl = createobject("wscript.shell" )
shl.run "command /K SET idmachine = "& s &""
0
medas918 Messages postés 45 Date d'inscription lundi 14 juin 2010 Statut Membre Dernière intervention 28 mai 2012
14 juin 2010 à 16:53
mais comment faire que la variablme ne change pas d'une fenetre dos à une autre
je veux que mon idmachine soit fixe c'est à dire en global
j'épere quelqu'un lira ce sujet
avant que j'y résoud
0
Rejoignez-nous