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 """
¶ms")
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 """
¶ms")
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 """
¶ms")
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 """
¶ms")
A quelle ligne l'erreur ?
Cordialement
Georges
"HeLioZz" <HeLioZz@discussions.microsoft.com> a écrit dans le message de
news: 8F969819-E91F-42AB-B555-B68651D8FA98@microsoft.com...
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 """
¶ms")
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 """
¶ms")
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 """
¶ms")
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 """
¶ms")
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 """
¶ms")
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 """
¶ms")
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" <HeLioZz@discussions.microsoft.com> a écrit dans le message de
news:8F969819-E91F-42AB-B555-B68651D8FA98@microsoft.com...
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 """
¶ms")
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 """
¶ms")
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 *
fromWin32_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 """
¶ms")
si tu a vraiment besoin de " tu peux metre Chr(34)
"lavache" <lavache@nospam.9bit.qc.ca> a écrit dans le message de
news:OxbfP9ayFHA.4016@TK2MSFTNGP10.phx.gbl...
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" <HeLioZz@discussions.microsoft.com> a écrit dans le message de
news:8F969819-E91F-42AB-B555-B68651D8FA98@microsoft.com...
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 """
¶ms")
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 *
fromWin32_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 """
¶ms")
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 """
¶ms")
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" <HeLioZz@discussions.microsoft.com> a écrit dans le message de
news:8F969819-E91F-42AB-B555-B68651D8FA98@microsoft.com...
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 """
¶ms")
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 """
¶ms")
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 """
¶ms")
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" <lavache@nospam.9bit.qc.ca> a écrit dans le message de news:
OxbfP9ayFHA.4016@TK2MSFTNGP10.phx.gbl...
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" <HeLioZz@discussions.microsoft.com> a écrit dans le message de
news:8F969819-E91F-42AB-B555-B68651D8FA98@microsoft.com...
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 """
¶ms")
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 """
¶ms")
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
"""
¶ms")
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" <lavache@nospam.9bit.qc.ca> a écrit dans le message de news:
OxbfP9ayFHA.4016@TK2MSFTNGP10.phx.gbl...
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" <HeLioZz@discussions.microsoft.com> a écrit dans le message
de
news:8F969819-E91F-42AB-B555-B68651D8FA98@microsoft.com...
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
"""
¶ms")
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
"""
¶ms")
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
"""
¶ms")
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" <HeLioZz@discussions.microsoft.com> a écrit dans le message de
news: 3C7E1100-4758-4BD3-AB22-CE23058AE874@microsoft.com...
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" <lavache@nospam.9bit.qc.ca> a écrit dans le message de news:
OxbfP9ayFHA.4016@TK2MSFTNGP10.phx.gbl...
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" <HeLioZz@discussions.microsoft.com> a écrit dans le message
de
news:8F969819-E91F-42AB-B555-B68651D8FA98@microsoft.com...
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
"""
¶ms")
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
"""
¶ms")