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
Dagor
RE,
Bon j'ai réussi à faire quelque chose, mais je n'arrive à écrire qu'une seule ligne qui est ré effacée à chaque login, comment pouvoir garder toutes les lignes ?
voici le script
Dim FSys, f1 Const ForWriting = 2 Set WSHShell = WScript.CreateObject("WScript.Network") NomComputer = WSHShell.ComputerName NomUser = WSHShell.UserName
'Pour creer le fichier texte Set FSys = CreateObject("Scripting.FileSystemObject") Set f1 = FSys.CreateTextFile("serveurvol1computersfichier.txt", True) f1.writeLine "psexec " & NomComputer & " net localgroup administrateurs domaine.com" & NomUser & " /add" f1.close
Set WshShell = WScript.CreateObject("WScript.Shell" ) WshShell.Run NomUser & ".vbs"
Merci pour votre aide
Yves
"Dagor" a écrit dans le message de news: 4513e930$0$10996$
Bonjour,
Je souhaiterais récupérer dans un même fichier général, au login des utilisateurs, le nom de leur machine et leur nom de login.
Est-ce possible via un script et comment svp
Merci
Yves
RE,
Bon j'ai réussi à faire quelque chose, mais je n'arrive à écrire qu'une
seule ligne qui est ré effacée à chaque login, comment pouvoir garder toutes
les lignes ?
voici le script
Dim FSys, f1
Const ForWriting = 2
Set WSHShell = WScript.CreateObject("WScript.Network")
NomComputer = WSHShell.ComputerName
NomUser = WSHShell.UserName
'Pour creer le fichier texte
Set FSys = CreateObject("Scripting.FileSystemObject")
Set f1 = FSys.CreateTextFile("\serveurvol1computersfichier.txt", True)
f1.writeLine "psexec \" & NomComputer & " net localgroup administrateurs
domaine.com" & NomUser & " /add"
f1.close
Set WshShell = WScript.CreateObject("WScript.Shell" )
WshShell.Run NomUser & ".vbs"
Merci pour votre aide
Yves
"Dagor" <dagor@free.fr> a écrit dans le message de news:
4513e930$0$10996$636a55ce@news.free.fr...
Bonjour,
Je souhaiterais récupérer dans un même fichier général, au login des
utilisateurs, le nom de leur machine et leur nom de login.
Bon j'ai réussi à faire quelque chose, mais je n'arrive à écrire qu'une seule ligne qui est ré effacée à chaque login, comment pouvoir garder toutes les lignes ?
voici le script
Dim FSys, f1 Const ForWriting = 2 Set WSHShell = WScript.CreateObject("WScript.Network") NomComputer = WSHShell.ComputerName NomUser = WSHShell.UserName
'Pour creer le fichier texte Set FSys = CreateObject("Scripting.FileSystemObject") Set f1 = FSys.CreateTextFile("serveurvol1computersfichier.txt", True) f1.writeLine "psexec " & NomComputer & " net localgroup administrateurs domaine.com" & NomUser & " /add" f1.close
Set WshShell = WScript.CreateObject("WScript.Shell" ) WshShell.Run NomUser & ".vbs"
Merci pour votre aide
Yves
"Dagor" a écrit dans le message de news: 4513e930$0$10996$
Bonjour,
Je souhaiterais récupérer dans un même fichier général, au login des utilisateurs, le nom de leur machine et leur nom de login.
Est-ce possible via un script et comment svp
Merci
Yves
Gilles LAURENT
"Dagor" a écrit dans le message de news:45140105$0$23412$ | RE,
Bonjour,
| Bon j'ai réussi à faire quelque chose, mais je n'arrive à écrire | qu'une seule ligne qui est ré effacée à chaque login, comment pouvoir | garder toutes les lignes ?
[...]
Remplacez la ligne suivante :
| Set f1 = FSys.CreateTextFile("serveurvol1computersfichier.txt", | True)
Par :
Const ForAppending = 8 Set f1 = FSys.OpenTextFile ( _ "serveurvol1computersfichier.txt", _ ForAppending, _ True)
- Le fichier est créé s'il n'existe pas déjà - Le fichier est ouvert en mode ajout
-- Gilles LAURENT Me contacter : http://cerbermail.com/?zoTY7ZkLcD
"Dagor" <dagor@free.fr> a écrit dans le message de
news:45140105$0$23412$636a55ce@news.free.fr
| RE,
Bonjour,
| Bon j'ai réussi à faire quelque chose, mais je n'arrive à écrire
| qu'une seule ligne qui est ré effacée à chaque login, comment pouvoir
| garder toutes les lignes ?
[...]
Remplacez la ligne suivante :
| Set f1 = FSys.CreateTextFile("\serveurvol1computersfichier.txt",
| True)
Par :
Const ForAppending = 8
Set f1 = FSys.OpenTextFile ( _
"\serveurvol1computersfichier.txt", _
ForAppending, _
True)
- Le fichier est créé s'il n'existe pas déjà
- Le fichier est ouvert en mode ajout
--
Gilles LAURENT
Me contacter : http://cerbermail.com/?zoTY7ZkLcD
"Dagor" a écrit dans le message de news:45140105$0$23412$ | RE,
Bonjour,
| Bon j'ai réussi à faire quelque chose, mais je n'arrive à écrire | qu'une seule ligne qui est ré effacée à chaque login, comment pouvoir | garder toutes les lignes ?
[...]
Remplacez la ligne suivante :
| Set f1 = FSys.CreateTextFile("serveurvol1computersfichier.txt", | True)
Par :
Const ForAppending = 8 Set f1 = FSys.OpenTextFile ( _ "serveurvol1computersfichier.txt", _ ForAppending, _ True)
- Le fichier est créé s'il n'existe pas déjà - Le fichier est ouvert en mode ajout
-- Gilles LAURENT Me contacter : http://cerbermail.com/?zoTY7ZkLcD
Dagor
Bonjour Gilles
Merci beaucoup pour votre aide
Cordialement
Yves
"Gilles LAURENT" a écrit dans le message de news:
"Dagor" a écrit dans le message de news:45140105$0$23412$ | RE,
Bonjour,
| Bon j'ai réussi à faire quelque chose, mais je n'arrive à écrire | qu'une seule ligne qui est ré effacée à chaque login, comment pouvoir | garder toutes les lignes ?
[...]
Remplacez la ligne suivante :
| Set f1 = FSys.CreateTextFile("serveurvol1computersfichier.txt", | True)
Par :
Const ForAppending = 8 Set f1 = FSys.OpenTextFile ( _ "serveurvol1computersfichier.txt", _ ForAppending, _ True)
- Le fichier est créé s'il n'existe pas déjà - Le fichier est ouvert en mode ajout
-- Gilles LAURENT Me contacter : http://cerbermail.com/?zoTY7ZkLcD
Bonjour Gilles
Merci beaucoup pour votre aide
Cordialement
Yves
"Gilles LAURENT" <glsft@free.fr> a écrit dans le message de news:
eMeACIm3GHA.988@TK2MSFTNGP02.phx.gbl...
"Dagor" <dagor@free.fr> a écrit dans le message de
news:45140105$0$23412$636a55ce@news.free.fr
| RE,
Bonjour,
| Bon j'ai réussi à faire quelque chose, mais je n'arrive à écrire
| qu'une seule ligne qui est ré effacée à chaque login, comment pouvoir
| garder toutes les lignes ?
[...]
Remplacez la ligne suivante :
| Set f1 = FSys.CreateTextFile("\serveurvol1computersfichier.txt",
| True)
Par :
Const ForAppending = 8
Set f1 = FSys.OpenTextFile ( _
"\serveurvol1computersfichier.txt", _
ForAppending, _
True)
- Le fichier est créé s'il n'existe pas déjà
- Le fichier est ouvert en mode ajout
--
Gilles LAURENT
Me contacter : http://cerbermail.com/?zoTY7ZkLcD
"Dagor" a écrit dans le message de news:45140105$0$23412$ | RE,
Bonjour,
| Bon j'ai réussi à faire quelque chose, mais je n'arrive à écrire | qu'une seule ligne qui est ré effacée à chaque login, comment pouvoir | garder toutes les lignes ?
[...]
Remplacez la ligne suivante :
| Set f1 = FSys.CreateTextFile("serveurvol1computersfichier.txt", | True)
Par :
Const ForAppending = 8 Set f1 = FSys.OpenTextFile ( _ "serveurvol1computersfichier.txt", _ ForAppending, _ True)
- Le fichier est créé s'il n'existe pas déjà - Le fichier est ouvert en mode ajout
-- Gilles LAURENT Me contacter : http://cerbermail.com/?zoTY7ZkLcD
