Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

ecrire dans un fichier texte....erreur !

9 réponses
Avatar
HeLioZz
voila enfaites je voudrais ecrire dans un fichier texte....
hors avec le code ci dessous il me dit qu il y a une erreur de
syntaxe...element atendu ')'
si quelqu un peut m eguiller....
ce serait super !

merci a tous d avance !

voici le code :

strbackupScriptFileName ="c:\backup.vbs"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)

objMyFile.WriteLine("dim shell, params ")
'objMyFile.WriteLine("Set WshNetwork = WScript.CreateObject
("WScript.Network")")
objMyFile.WriteLine("strComputer = "." ")
objMyFile.WriteLine("Set objWMIService = GetObject("winmgmts:" _")
objMyFile.WriteLine(" & "{impersonationLevel=impersonate}!\\" & strComputer
& "\root\cimv2") ")
objMyFile.WriteLine("Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")")
objMyFile.WriteLine("For Each objItem in colItems")
objMyFile.WriteLine(" TempsLocal = objItem.LocalDateTime")
objMyFile.WriteLine(" An = Left(TempsLocal, 4)")
objMyFile.WriteLine(" Mois = Mid(TempsLocal, 5, 2)")
objMyFile.WriteLine(" Jour = Mid(TempsLocal, 7, 2)")
objMyFile.WriteLine(" Heures = Mid(TempsLocal, 9, 2)")
objMyFile.WriteLine(" Minutes = Mid(TempsLocal, 11, 2)")
objMyFile.WriteLine("Next")
objMyFile.WriteLine("strDate = Jour & "." & Mois & "." & An")
objMyFile.WriteLine("strTemps = Heures & "." & Minutes")
objMyFile.WriteLine("set shell = WScript.CreateObject("WScript.Shell")")
objMyFile.WriteLine("params = "a -r -o- -m5 c:\sauve\" &
WshNetwork.ComputerName & "-" & strDate & "-" & strTemps & ".rar c:\backup"")
objMyFile.WriteLine("Shell.run """C:\program files\winrar\winrar.exe """
&params")

9 réponses

Avatar
Georges MAUREL
A quelle ligne l'erreur ?

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
voila enfaites je voudrais ecrire dans un fichier texte....
hors avec le code ci dessous il me dit qu il y a une erreur de
syntaxe...element atendu ')'
si quelqu un peut m eguiller....
ce serait super !

merci a tous d avance !

voici le code :

strbackupScriptFileName ="c:backup.vbs"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)

objMyFile.WriteLine("dim shell, params ")
'objMyFile.WriteLine("Set WshNetwork = WScript.CreateObject
("WScript.Network")")
objMyFile.WriteLine("strComputer = "." ")
objMyFile.WriteLine("Set objWMIService = GetObject("winmgmts:" _")
objMyFile.WriteLine(" & "{impersonationLevel=impersonate}!" &
strComputer
& "rootcimv2") ")
objMyFile.WriteLine("Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")")
objMyFile.WriteLine("For Each objItem in colItems")
objMyFile.WriteLine(" TempsLocal = objItem.LocalDateTime")
objMyFile.WriteLine(" An = Left(TempsLocal, 4)")
objMyFile.WriteLine(" Mois = Mid(TempsLocal, 5, 2)")
objMyFile.WriteLine(" Jour = Mid(TempsLocal, 7, 2)")
objMyFile.WriteLine(" Heures = Mid(TempsLocal, 9, 2)")
objMyFile.WriteLine(" Minutes = Mid(TempsLocal, 11, 2)")
objMyFile.WriteLine("Next")
objMyFile.WriteLine("strDate = Jour & "." & Mois & "." & An")
objMyFile.WriteLine("strTemps = Heures & "." & Minutes")
objMyFile.WriteLine("set shell = WScript.CreateObject("WScript.Shell")")
objMyFile.WriteLine("params = "a -r -o- -m5 c:sauve" &
WshNetwork.ComputerName & "-" & strDate & "-" & strTemps & ".rar
c:backup"")
objMyFile.WriteLine("Shell.run """C:program fileswinrarwinrar.exe """
&params")




Avatar
HeLioZz
au premier writeline(que j ai mis en commentaire) et a la ligne suivante...
merci beaucoup de porter cette attention a mon (mes) pb !!!



"Georges MAUREL" wrote:

A quelle ligne l'erreur ?

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
voila enfaites je voudrais ecrire dans un fichier texte....
hors avec le code ci dessous il me dit qu il y a une erreur de
syntaxe...element atendu ')'
si quelqu un peut m eguiller....
ce serait super !

merci a tous d avance !

voici le code :

strbackupScriptFileName ="c:backup.vbs"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)

objMyFile.WriteLine("dim shell, params ")
'objMyFile.WriteLine("Set WshNetwork = WScript.CreateObject
("WScript.Network")")
objMyFile.WriteLine("strComputer = "." ")
objMyFile.WriteLine("Set objWMIService = GetObject("winmgmts:" _")
objMyFile.WriteLine(" & "{impersonationLevel=impersonate}!" &
strComputer
& "rootcimv2") ")
objMyFile.WriteLine("Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")")
objMyFile.WriteLine("For Each objItem in colItems")
objMyFile.WriteLine(" TempsLocal = objItem.LocalDateTime")
objMyFile.WriteLine(" An = Left(TempsLocal, 4)")
objMyFile.WriteLine(" Mois = Mid(TempsLocal, 5, 2)")
objMyFile.WriteLine(" Jour = Mid(TempsLocal, 7, 2)")
objMyFile.WriteLine(" Heures = Mid(TempsLocal, 9, 2)")
objMyFile.WriteLine(" Minutes = Mid(TempsLocal, 11, 2)")
objMyFile.WriteLine("Next")
objMyFile.WriteLine("strDate = Jour & "." & Mois & "." & An")
objMyFile.WriteLine("strTemps = Heures & "." & Minutes")
objMyFile.WriteLine("set shell = WScript.CreateObject("WScript.Shell")")
objMyFile.WriteLine("params = "a -r -o- -m5 c:sauve" &
WshNetwork.ComputerName & "-" & strDate & "-" & strTemps & ".rar
c:backup"")
objMyFile.WriteLine("Shell.run """C:program fileswinrarwinrar.exe """
&params")









Avatar
lavache
Selon moi ton probleme vien des "
lorsque tu me """ cela ne fonction pas.
example
que tu veux ecrire " qui est deja dans "" tu doit metre '

donc a reguardant vite il a plien erreur de syntaxe a cause de tes "


sebas.


"HeLioZz" a écrit dans le message de
news:
voila enfaites je voudrais ecrire dans un fichier texte....
hors avec le code ci dessous il me dit qu il y a une erreur de
syntaxe...element atendu ')'
si quelqu un peut m eguiller....
ce serait super !

merci a tous d avance !

voici le code :

strbackupScriptFileName ="c:backup.vbs"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)

objMyFile.WriteLine("dim shell, params ")
'objMyFile.WriteLine("Set WshNetwork = WScript.CreateObject
("WScript.Network")")
objMyFile.WriteLine("strComputer = "." ")
objMyFile.WriteLine("Set objWMIService = GetObject("winmgmts:" _")
objMyFile.WriteLine(" & "{impersonationLevel=impersonate}!" &
strComputer

& "rootcimv2") ")
objMyFile.WriteLine("Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")")
objMyFile.WriteLine("For Each objItem in colItems")
objMyFile.WriteLine(" TempsLocal = objItem.LocalDateTime")
objMyFile.WriteLine(" An = Left(TempsLocal, 4)")
objMyFile.WriteLine(" Mois = Mid(TempsLocal, 5, 2)")
objMyFile.WriteLine(" Jour = Mid(TempsLocal, 7, 2)")
objMyFile.WriteLine(" Heures = Mid(TempsLocal, 9, 2)")
objMyFile.WriteLine(" Minutes = Mid(TempsLocal, 11, 2)")
objMyFile.WriteLine("Next")
objMyFile.WriteLine("strDate = Jour & "." & Mois & "." & An")
objMyFile.WriteLine("strTemps = Heures & "." & Minutes")
objMyFile.WriteLine("set shell = WScript.CreateObject("WScript.Shell")")
objMyFile.WriteLine("params = "a -r -o- -m5 c:sauve" &
WshNetwork.ComputerName & "-" & strDate & "-" & strTemps & ".rar
c:backup"")

objMyFile.WriteLine("Shell.run """C:program fileswinrarwinrar.exe """
&params")




Avatar
lavache
si tu a vraiment besoin de " tu peux metre Chr(34)

"lavache" a écrit dans le message de
news:
Selon moi ton probleme vien des "
lorsque tu me """ cela ne fonction pas.
example
que tu veux ecrire " qui est deja dans "" tu doit metre '

donc a reguardant vite il a plien erreur de syntaxe a cause de tes "


sebas.


"HeLioZz" a écrit dans le message de
news:
voila enfaites je voudrais ecrire dans un fichier texte....
hors avec le code ci dessous il me dit qu il y a une erreur de
syntaxe...element atendu ')'
si quelqu un peut m eguiller....
ce serait super !

merci a tous d avance !

voici le code :

strbackupScriptFileName ="c:backup.vbs"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)

objMyFile.WriteLine("dim shell, params ")
'objMyFile.WriteLine("Set WshNetwork = WScript.CreateObject
("WScript.Network")")
objMyFile.WriteLine("strComputer = "." ")
objMyFile.WriteLine("Set objWMIService = GetObject("winmgmts:" _")
objMyFile.WriteLine(" & "{impersonationLevel=impersonate}!" &
strComputer

& "rootcimv2") ")
objMyFile.WriteLine("Set colItems = objWMIService.ExecQuery("Select *
from


Win32_OperatingSystem")")
objMyFile.WriteLine("For Each objItem in colItems")
objMyFile.WriteLine(" TempsLocal = objItem.LocalDateTime")
objMyFile.WriteLine(" An = Left(TempsLocal, 4)")
objMyFile.WriteLine(" Mois = Mid(TempsLocal, 5, 2)")
objMyFile.WriteLine(" Jour = Mid(TempsLocal, 7, 2)")
objMyFile.WriteLine(" Heures = Mid(TempsLocal, 9, 2)")
objMyFile.WriteLine(" Minutes = Mid(TempsLocal, 11, 2)")
objMyFile.WriteLine("Next")
objMyFile.WriteLine("strDate = Jour & "." & Mois & "." & An")
objMyFile.WriteLine("strTemps = Heures & "." & Minutes")
objMyFile.WriteLine("set shell = WScript.CreateObject("WScript.Shell")")
objMyFile.WriteLine("params = "a -r -o- -m5 c:sauve" &
WshNetwork.ComputerName & "-" & strDate & "-" & strTemps & ".rar
c:backup"")

objMyFile.WriteLine("Shell.run """C:program fileswinrarwinrar.exe """
&params")








Avatar
HeLioZz
excuse moi j dois peut etre etre bete mais j suis pas sur d avoir compris ce
que tu as essayé d m expliquer ....


"lavache" wrote:

si tu a vraiment besoin de " tu peux metre Chr(34)

"lavache" a écrit dans le message de
news:
Selon moi ton probleme vien des "
lorsque tu me """ cela ne fonction pas.
example
que tu veux ecrire " qui est deja dans "" tu doit metre '

donc a reguardant vite il a plien erreur de syntaxe a cause de tes "


sebas.


"HeLioZz" a écrit dans le message de
news:
voila enfaites je voudrais ecrire dans un fichier texte....
hors avec le code ci dessous il me dit qu il y a une erreur de
syntaxe...element atendu ')'
si quelqu un peut m eguiller....
ce serait super !

merci a tous d avance !

voici le code :

strbackupScriptFileName ="c:backup.vbs"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)

objMyFile.WriteLine("dim shell, params ")
'objMyFile.WriteLine("Set WshNetwork = WScript.CreateObject
("WScript.Network")")
objMyFile.WriteLine("strComputer = "." ")
objMyFile.WriteLine("Set objWMIService = GetObject("winmgmts:" _")
objMyFile.WriteLine(" & "{impersonationLevel=impersonate}!" &
strComputer

& "rootcimv2") ")
objMyFile.WriteLine("Set colItems = objWMIService.ExecQuery("Select *
from


Win32_OperatingSystem")")
objMyFile.WriteLine("For Each objItem in colItems")
objMyFile.WriteLine(" TempsLocal = objItem.LocalDateTime")
objMyFile.WriteLine(" An = Left(TempsLocal, 4)")
objMyFile.WriteLine(" Mois = Mid(TempsLocal, 5, 2)")
objMyFile.WriteLine(" Jour = Mid(TempsLocal, 7, 2)")
objMyFile.WriteLine(" Heures = Mid(TempsLocal, 9, 2)")
objMyFile.WriteLine(" Minutes = Mid(TempsLocal, 11, 2)")
objMyFile.WriteLine("Next")
objMyFile.WriteLine("strDate = Jour & "." & Mois & "." & An")
objMyFile.WriteLine("strTemps = Heures & "." & Minutes")
objMyFile.WriteLine("set shell = WScript.CreateObject("WScript.Shell")")
objMyFile.WriteLine("params = "a -r -o- -m5 c:sauve" &
WshNetwork.ComputerName & "-" & strDate & "-" & strTemps & ".rar
c:backup"")

objMyFile.WriteLine("Shell.run """C:program fileswinrarwinrar.exe """
&params")













Avatar
Georges MAUREL
Exact, le problème vient des "
Il faut les remplacer par des chr(34)
Exemple
objMyFile.WriteLine "Set WshNetwork = WScript.CreateObject(" & chr(34) &
"WScript.Network" & chr(34) & ")"

Je voies bien ce que vous cherchez à faire : créer un script à partir d'un
autre script. Mais vous faite encore bien compliqué pour récupérer la date
et l'heure système puisque vous avez les fonctions date et time pour cela...
Enfin c'est vous qui voyez mais comme vous avez de grosses difficultés, vous
devriez d'abord faire des choses simples avant de vouloir vous embarquer
dans l'inconnu...(et lire un peu plus les doc...)

Cordialement
Georges


"lavache" a écrit dans le message de news:

Selon moi ton probleme vien des "
lorsque tu me """ cela ne fonction pas.
example
que tu veux ecrire " qui est deja dans "" tu doit metre '

donc a reguardant vite il a plien erreur de syntaxe a cause de tes "


sebas.


"HeLioZz" a écrit dans le message de
news:
voila enfaites je voudrais ecrire dans un fichier texte....
hors avec le code ci dessous il me dit qu il y a une erreur de
syntaxe...element atendu ')'
si quelqu un peut m eguiller....
ce serait super !

merci a tous d avance !

voici le code :

strbackupScriptFileName ="c:backup.vbs"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)

objMyFile.WriteLine("dim shell, params ")
'objMyFile.WriteLine("Set WshNetwork = WScript.CreateObject
("WScript.Network")")
objMyFile.WriteLine("strComputer = "." ")
objMyFile.WriteLine("Set objWMIService = GetObject("winmgmts:" _")
objMyFile.WriteLine(" & "{impersonationLevel=impersonate}!" &
strComputer

& "rootcimv2") ")
objMyFile.WriteLine("Set colItems = objWMIService.ExecQuery("Select *
from
Win32_OperatingSystem")")
objMyFile.WriteLine("For Each objItem in colItems")
objMyFile.WriteLine(" TempsLocal = objItem.LocalDateTime")
objMyFile.WriteLine(" An = Left(TempsLocal, 4)")
objMyFile.WriteLine(" Mois = Mid(TempsLocal, 5, 2)")
objMyFile.WriteLine(" Jour = Mid(TempsLocal, 7, 2)")
objMyFile.WriteLine(" Heures = Mid(TempsLocal, 9, 2)")
objMyFile.WriteLine(" Minutes = Mid(TempsLocal, 11, 2)")
objMyFile.WriteLine("Next")
objMyFile.WriteLine("strDate = Jour & "." & Mois & "." & An")
objMyFile.WriteLine("strTemps = Heures & "." & Minutes")
objMyFile.WriteLine("set shell = WScript.CreateObject("WScript.Shell")")
objMyFile.WriteLine("params = "a -r -o- -m5 c:sauve" &
WshNetwork.ComputerName & "-" & strDate & "-" & strTemps & ".rar
c:backup"")

objMyFile.WriteLine("Shell.run """C:program fileswinrarwinrar.exe """
&params")








Avatar
HeLioZz
mais les chr(34) se mettent que la ou il y a des parenthese ?


"Georges MAUREL" wrote:

Exact, le problème vient des "
Il faut les remplacer par des chr(34)
Exemple
objMyFile.WriteLine "Set WshNetwork = WScript.CreateObject(" & chr(34) &
"WScript.Network" & chr(34) & ")"

Je voies bien ce que vous cherchez à faire : créer un script à partir d'un
autre script. Mais vous faite encore bien compliqué pour récupérer la date
et l'heure système puisque vous avez les fonctions date et time pour cela...
Enfin c'est vous qui voyez mais comme vous avez de grosses difficultés, vous
devriez d'abord faire des choses simples avant de vouloir vous embarquer
dans l'inconnu...(et lire un peu plus les doc...)

Cordialement
Georges


"lavache" a écrit dans le message de news:

Selon moi ton probleme vien des "
lorsque tu me """ cela ne fonction pas.
example
que tu veux ecrire " qui est deja dans "" tu doit metre '

donc a reguardant vite il a plien erreur de syntaxe a cause de tes "


sebas.


"HeLioZz" a écrit dans le message de
news:
voila enfaites je voudrais ecrire dans un fichier texte....
hors avec le code ci dessous il me dit qu il y a une erreur de
syntaxe...element atendu ')'
si quelqu un peut m eguiller....
ce serait super !

merci a tous d avance !

voici le code :

strbackupScriptFileName ="c:backup.vbs"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)

objMyFile.WriteLine("dim shell, params ")
'objMyFile.WriteLine("Set WshNetwork = WScript.CreateObject
("WScript.Network")")
objMyFile.WriteLine("strComputer = "." ")
objMyFile.WriteLine("Set objWMIService = GetObject("winmgmts:" _")
objMyFile.WriteLine(" & "{impersonationLevel=impersonate}!" &
strComputer

& "rootcimv2") ")
objMyFile.WriteLine("Set colItems = objWMIService.ExecQuery("Select *
from
Win32_OperatingSystem")")
objMyFile.WriteLine("For Each objItem in colItems")
objMyFile.WriteLine(" TempsLocal = objItem.LocalDateTime")
objMyFile.WriteLine(" An = Left(TempsLocal, 4)")
objMyFile.WriteLine(" Mois = Mid(TempsLocal, 5, 2)")
objMyFile.WriteLine(" Jour = Mid(TempsLocal, 7, 2)")
objMyFile.WriteLine(" Heures = Mid(TempsLocal, 9, 2)")
objMyFile.WriteLine(" Minutes = Mid(TempsLocal, 11, 2)")
objMyFile.WriteLine("Next")
objMyFile.WriteLine("strDate = Jour & "." & Mois & "." & An")
objMyFile.WriteLine("strTemps = Heures & "." & Minutes")
objMyFile.WriteLine("set shell = WScript.CreateObject("WScript.Shell")")
objMyFile.WriteLine("params = "a -r -o- -m5 c:sauve" &
WshNetwork.ComputerName & "-" & strDate & "-" & strTemps & ".rar
c:backup"")

objMyFile.WriteLine("Shell.run """C:program fileswinrarwinrar.exe """
&params")













Avatar
Georges MAUREL
Non
Les parenthèses sont inutiles.
Pour info : une chaine doit commencer par " et se finir par ". Exemple :
"test"
Si vous souhaitez ajouter un " dans une chaine il faut le replacer par
chr(34). Exemple : "test avec" & chr(34)

Est-ce clair ?

PS : je vais facturer les cours de programmation si cela continue....

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
mais les chr(34) se mettent que la ou il y a des parenthese ?


"Georges MAUREL" wrote:

Exact, le problème vient des "
Il faut les remplacer par des chr(34)
Exemple
objMyFile.WriteLine "Set WshNetwork = WScript.CreateObject(" & chr(34) &
"WScript.Network" & chr(34) & ")"

Je voies bien ce que vous cherchez à faire : créer un script à partir
d'un
autre script. Mais vous faite encore bien compliqué pour récupérer la
date
et l'heure système puisque vous avez les fonctions date et time pour
cela...
Enfin c'est vous qui voyez mais comme vous avez de grosses difficultés,
vous
devriez d'abord faire des choses simples avant de vouloir vous embarquer
dans l'inconnu...(et lire un peu plus les doc...)

Cordialement
Georges


"lavache" a écrit dans le message de news:

Selon moi ton probleme vien des "
lorsque tu me """ cela ne fonction pas.
example
que tu veux ecrire " qui est deja dans "" tu doit metre '

donc a reguardant vite il a plien erreur de syntaxe a cause de tes "


sebas.


"HeLioZz" a écrit dans le message
de
news:
voila enfaites je voudrais ecrire dans un fichier texte....
hors avec le code ci dessous il me dit qu il y a une erreur de
syntaxe...element atendu ')'
si quelqu un peut m eguiller....
ce serait super !

merci a tous d avance !

voici le code :

strbackupScriptFileName ="c:backup.vbs"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)

objMyFile.WriteLine("dim shell, params ")
'objMyFile.WriteLine("Set WshNetwork = WScript.CreateObject
("WScript.Network")")
objMyFile.WriteLine("strComputer = "." ")
objMyFile.WriteLine("Set objWMIService = GetObject("winmgmts:" _")
objMyFile.WriteLine(" & "{impersonationLevel=impersonate}!" &
strComputer

& "rootcimv2") ")
objMyFile.WriteLine("Set colItems = objWMIService.ExecQuery("Select *
from
Win32_OperatingSystem")")
objMyFile.WriteLine("For Each objItem in colItems")
objMyFile.WriteLine(" TempsLocal = objItem.LocalDateTime")
objMyFile.WriteLine(" An = Left(TempsLocal, 4)")
objMyFile.WriteLine(" Mois = Mid(TempsLocal, 5, 2)")
objMyFile.WriteLine(" Jour = Mid(TempsLocal, 7, 2)")
objMyFile.WriteLine(" Heures = Mid(TempsLocal, 9, 2)")
objMyFile.WriteLine(" Minutes = Mid(TempsLocal, 11, 2)")
objMyFile.WriteLine("Next")
objMyFile.WriteLine("strDate = Jour & "." & Mois & "." & An")
objMyFile.WriteLine("strTemps = Heures & "." & Minutes")
objMyFile.WriteLine("set shell =
WScript.CreateObject("WScript.Shell")")
objMyFile.WriteLine("params = "a -r -o- -m5 c:sauve" &
WshNetwork.ComputerName & "-" & strDate & "-" & strTemps & ".rar
c:backup"")

objMyFile.WriteLine("Shell.run """C:program fileswinrarwinrar.exe
"""
&params")















Avatar
HeLioZz
oui cela me semble plus clair !
merci encore
et je n esiterai pas la prochaine fois a vous envoyer des honoraires !
a bientot et merci encore pour tt!

"Georges MAUREL" wrote:

Non
Les parenthèses sont inutiles.
Pour info : une chaine doit commencer par " et se finir par ". Exemple :
"test"
Si vous souhaitez ajouter un " dans une chaine il faut le replacer par
chr(34). Exemple : "test avec" & chr(34)

Est-ce clair ?

PS : je vais facturer les cours de programmation si cela continue....

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
mais les chr(34) se mettent que la ou il y a des parenthese ?


"Georges MAUREL" wrote:

Exact, le problème vient des "
Il faut les remplacer par des chr(34)
Exemple
objMyFile.WriteLine "Set WshNetwork = WScript.CreateObject(" & chr(34) &
"WScript.Network" & chr(34) & ")"

Je voies bien ce que vous cherchez à faire : créer un script à partir
d'un
autre script. Mais vous faite encore bien compliqué pour récupérer la
date
et l'heure système puisque vous avez les fonctions date et time pour
cela...
Enfin c'est vous qui voyez mais comme vous avez de grosses difficultés,
vous
devriez d'abord faire des choses simples avant de vouloir vous embarquer
dans l'inconnu...(et lire un peu plus les doc...)

Cordialement
Georges


"lavache" a écrit dans le message de news:

Selon moi ton probleme vien des "
lorsque tu me """ cela ne fonction pas.
example
que tu veux ecrire " qui est deja dans "" tu doit metre '

donc a reguardant vite il a plien erreur de syntaxe a cause de tes "


sebas.


"HeLioZz" a écrit dans le message
de
news:
voila enfaites je voudrais ecrire dans un fichier texte....
hors avec le code ci dessous il me dit qu il y a une erreur de
syntaxe...element atendu ')'
si quelqu un peut m eguiller....
ce serait super !

merci a tous d avance !

voici le code :

strbackupScriptFileName ="c:backup.vbs"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)

objMyFile.WriteLine("dim shell, params ")
'objMyFile.WriteLine("Set WshNetwork = WScript.CreateObject
("WScript.Network")")
objMyFile.WriteLine("strComputer = "." ")
objMyFile.WriteLine("Set objWMIService = GetObject("winmgmts:" _")
objMyFile.WriteLine(" & "{impersonationLevel=impersonate}!" &
strComputer

& "rootcimv2") ")
objMyFile.WriteLine("Set colItems = objWMIService.ExecQuery("Select *
from
Win32_OperatingSystem")")
objMyFile.WriteLine("For Each objItem in colItems")
objMyFile.WriteLine(" TempsLocal = objItem.LocalDateTime")
objMyFile.WriteLine(" An = Left(TempsLocal, 4)")
objMyFile.WriteLine(" Mois = Mid(TempsLocal, 5, 2)")
objMyFile.WriteLine(" Jour = Mid(TempsLocal, 7, 2)")
objMyFile.WriteLine(" Heures = Mid(TempsLocal, 9, 2)")
objMyFile.WriteLine(" Minutes = Mid(TempsLocal, 11, 2)")
objMyFile.WriteLine("Next")
objMyFile.WriteLine("strDate = Jour & "." & Mois & "." & An")
objMyFile.WriteLine("strTemps = Heures & "." & Minutes")
objMyFile.WriteLine("set shell =
WScript.CreateObject("WScript.Shell")")
objMyFile.WriteLine("params = "a -r -o- -m5 c:sauve" &
WshNetwork.ComputerName & "-" & strDate & "-" & strTemps & ".rar
c:backup"")

objMyFile.WriteLine("Shell.run """C:program fileswinrarwinrar.exe
"""
&params")