ecrire dans un fichier texte....erreur !

Le
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
syntaxeelement 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
& "ootcimv2") ")
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")
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Georges MAUREL
Le #507011
A quelle ligne l'erreur ?

Cordialement
Georges


"HeLioZz" 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")




HeLioZz
Le #507009
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" 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")









lavache
Le #507008
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" 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")




lavache
Le #507007
si tu a vraiment besoin de " tu peux metre Chr(34)

"lavache" 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" 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")








HeLioZz
Le #507006
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" 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" 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")













Georges MAUREL
Le #507005
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"
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" 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")








HeLioZz
Le #506792
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"
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" 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")













Georges MAUREL
Le #506791
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" 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"
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" 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")















HeLioZz
Le #506790
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" 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"
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" 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")




















Poster une réponse
Anonyme