Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft n en sort plus !!

n en sort plus !!

8 réponses
Avatar
HeLioZz
encore moi je sais ....
voila enfaite c avec (encore)writeline...
j ai du mal comme on dit...
je voudrais savoir comment faire pour tt mes writeline pour qu ils soient
tous pris en compte .(pas ce que jacques a fait)...
voici le code :


'demande de source
rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration du
serveur")


if Rep = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Dim shell, item
dim source, destination, exclu
Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit )



else
MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit
end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, objMyFile
Set filesys = CreateObject("Scripting.objMyFile")
Set objMyFile= filesys.CreateTextFile("c:\backup vbs\backup.vbs", True)
objMyFile.WriteLine"set source = " &result
objMyFile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation" &wscript.quit

End If



Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function


rep2= vbok
while rep2 = vbok

rep2 = MsgBox ("voulez vous reselectionner des fichiers a sauvegarder ?",
vbQuestion + vbOKCancel + vbApplicationModal ,"resaisir ")

if Rep2 = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile= filesys.CreateTextFile("c:\backup vbs\backup.vbs", True)
objMyFile.WriteLine"set source = " &result
objMyFile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation"&wscript.quit
end if
wend

'demande destination

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez de la destination des fichiers "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)




If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile= filesys.CreateTextFile("c:\backup vbs\backup.vbs", True)
objMyFile.WriteLine"set destinaton = " &Result
objMyFile.Close


end if


'demande exclusions



rep3 = MsgBox ("voulez vous exlure des fichiers ?", vbQuestion Or
vbOkCancel, "exclusions")

if rep3 = vbok then

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez les fichiers a exclure "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)


else

MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile.Close= filesys.CreateTextFile("c:\backup vbs\backup.vbs", True)
objMyFile.WriteLine"set exclu = "&Result
objMyFile.Close

end if

strFTPScriptFileName ="c:\backup vbs\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 "dim source, destination, exclu"
objMyFile.WriteLine "Set WshNetwork = WScript.CreateObject(" & chr(34) &_
"WScript.Network" & chr(34) & ")"
objMyFile.WriteLine "strComputer =" & chr(34) & "." & chr(34)
objMyFile.WriteLine "Set objWMIService = GetObject(" & chr(34) &
"winmgmts:"& chr(34) & "_"
objMyFile.WriteLine "& " & chr(34) & "{impersonationLevel=impersonate}!\\"
&chr(34) &_
" & strComputer & " & chr(34)&"\root\cimv2"
& chr(34) &")"
objMyFile.WriteLine "Set colItems = objWMIService.ExecQuery(" & chr(34) &_
"Select * from Win32_OperatingSystem"
&chr(34) & ")"
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 & " & chr(34) & "." & chr(34) & "&
Mois&" &_
chr(34) & "." & chr(34) & "& An"
objMyFile.WriteLine "strTemps = Heures & " & chr(34) & "." & chr(34) &
"&Minutes"
objMyFile.WriteLine "set shell = WScript.CreateObject(" & chr(34)
&"WScript.Shell" & chr(34) & ")"
objMyFile.WriteLine "params = " & chr(34) & "a -r -o- -m5 c:\sauve\"
&chr(34) &_
"& WshNetwork.ComputerName &" & chr(34) & "-" & chr(34)& _
"& strDate &" & chr(34) & "-" & chr(34) &_
"& strTemps &" & chr(34) & ".rar c:\backup" & chr(34)
objMyFile.WriteLine "Shell.run " & chr(34) & chr(34) & chr(34) &_
"C:\program files\winrar\winrar.exe " & chr(34) & chr(34)
&chr(34) & " &params"
objMyFile.Close





MsgBox "l 'application s'est bien deroulée, fin de la
configuration",vbInformation + vbOkOnly + vbApplicationModal + 0,"Fin de la
configuration"




merci d jeter un cp d oeuil !
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Georges MAUREL
Là vous poussez un peu.
Si vous vouliez qu'on vous fasse le programme il était plus simple de le
dire....
Sinon il existe des programme de backup déjà tout prêt et même intégrés au
système pour certains.
En plus vous attribuez mon travail à un autre (jacques) !!!!

Petite indication : vous faites un CreateTextFile systématiquement avec
True. Donc votre fichier est écrasé systématiquement !!!!

Faites un peu plus attention et donnez-vous un peu plus de mal car sinon je
vais faire comme les autres : PLONK

Cordialement
Georges



"HeLioZz" a écrit dans le message de
news:
encore moi je sais ....
voila enfaite c avec (encore)writeline...
j ai du mal comme on dit...
je voudrais savoir comment faire pour tt mes writeline pour qu ils soient
tous pris en compte .(pas ce que jacques a fait)...
voici le code :


'demande de source
rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration
du
serveur")


if Rep = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Dim shell, item
dim source, destination, exclu
Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit )



else
MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit
end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, objMyFile
Set filesys = CreateObject("Scripting.objMyFile")
Set objMyFile= filesys.CreateTextFile("c:backup vbsbackup.vbs", True)
objMyFile.WriteLine"set source = " &result
objMyFile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation" &wscript.quit

End If



Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function


rep2= vbok
while rep2 = vbok

rep2 = MsgBox ("voulez vous reselectionner des fichiers a sauvegarder ?",
vbQuestion + vbOKCancel + vbApplicationModal ,"resaisir ")

if Rep2 = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile= filesys.CreateTextFile("c:backup vbsbackup.vbs", True)
objMyFile.WriteLine"set source = " &result
objMyFile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation"&wscript.quit
end if
wend

'demande destination

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez de la destination des fichiers "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)




If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile= filesys.CreateTextFile("c:backup vbsbackup.vbs", True)
objMyFile.WriteLine"set destinaton = " &Result
objMyFile.Close


end if


'demande exclusions



rep3 = MsgBox ("voulez vous exlure des fichiers ?", vbQuestion Or
vbOkCancel, "exclusions")

if rep3 = vbok then

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez les fichiers a exclure "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)


else

MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile.Close= filesys.CreateTextFile("c:backup vbsbackup.vbs",
True)
objMyFile.WriteLine"set exclu = "&Result
objMyFile.Close

end if

strFTPScriptFileName ="c:backup vbsbackup.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 "dim source, destination, exclu"
objMyFile.WriteLine "Set WshNetwork = WScript.CreateObject(" & chr(34) &_
"WScript.Network" & chr(34) & ")"
objMyFile.WriteLine "strComputer =" & chr(34) & "." & chr(34)
objMyFile.WriteLine "Set objWMIService = GetObject(" & chr(34) &
"winmgmts:"& chr(34) & "_"
objMyFile.WriteLine "& " & chr(34) & "{impersonationLevel=impersonate}!"
&chr(34) &_
" & strComputer & " &
chr(34)&"rootcimv2"
& chr(34) &")"
objMyFile.WriteLine "Set colItems = objWMIService.ExecQuery(" & chr(34) &_
"Select * from Win32_OperatingSystem"
&chr(34) & ")"
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 & " & chr(34) & "." & chr(34) & "&
Mois&" &_
chr(34) & "." & chr(34) & "& An"
objMyFile.WriteLine "strTemps = Heures & " & chr(34) & "." & chr(34) &
"&Minutes"
objMyFile.WriteLine "set shell = WScript.CreateObject(" & chr(34)
&"WScript.Shell" & chr(34) & ")"
objMyFile.WriteLine "params = " & chr(34) & "a -r -o- -m5 c:sauve"
&chr(34) &_
"& WshNetwork.ComputerName &" & chr(34) & "-" &
chr(34)& _
"& strDate &" & chr(34) & "-" & chr(34) &_
"& strTemps &" & chr(34) & ".rar c:backup" & chr(34)
objMyFile.WriteLine "Shell.run " & chr(34) & chr(34) & chr(34) &_
"C:program fileswinrarwinrar.exe " & chr(34) & chr(34)
&chr(34) & " &params"
objMyFile.Close





MsgBox "l 'application s'est bien deroulée, fin de la
configuration",vbInformation + vbOkOnly + vbApplicationModal + 0,"Fin de
la
configuration"




merci d jeter un cp d oeuil !


Avatar
HeLioZz
excusez moi pour le labsuce avec votre prenom...je suis sincerement désolé !!!!

"Georges MAUREL" wrote:

Là vous poussez un peu.
Si vous vouliez qu'on vous fasse le programme il était plus simple de le
dire....
Sinon il existe des programme de backup déjà tout prêt et même intégrés au
système pour certains.
En plus vous attribuez mon travail à un autre (jacques) !!!!

Petite indication : vous faites un CreateTextFile systématiquement avec
True. Donc votre fichier est écrasé systématiquement !!!!

Faites un peu plus attention et donnez-vous un peu plus de mal car sinon je
vais faire comme les autres : PLONK

Cordialement
Georges



"HeLioZz" a écrit dans le message de
news:
encore moi je sais ....
voila enfaite c avec (encore)writeline...
j ai du mal comme on dit...
je voudrais savoir comment faire pour tt mes writeline pour qu ils soient
tous pris en compte .(pas ce que jacques a fait)...
voici le code :


'demande de source
rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration
du
serveur")


if Rep = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Dim shell, item
dim source, destination, exclu
Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit )



else
MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit
end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, objMyFile
Set filesys = CreateObject("Scripting.objMyFile")
Set objMyFile= filesys.CreateTextFile("c:backup vbsbackup.vbs", True)
objMyFile.WriteLine"set source = " &result
objMyFile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation" &wscript.quit

End If



Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function


rep2= vbok
while rep2 = vbok

rep2 = MsgBox ("voulez vous reselectionner des fichiers a sauvegarder ?",
vbQuestion + vbOKCancel + vbApplicationModal ,"resaisir ")

if Rep2 = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile= filesys.CreateTextFile("c:backup vbsbackup.vbs", True)
objMyFile.WriteLine"set source = " &result
objMyFile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation"&wscript.quit
end if
wend

'demande destination

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez de la destination des fichiers "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)




If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile= filesys.CreateTextFile("c:backup vbsbackup.vbs", True)
objMyFile.WriteLine"set destinaton = " &Result
objMyFile.Close


end if


'demande exclusions



rep3 = MsgBox ("voulez vous exlure des fichiers ?", vbQuestion Or
vbOkCancel, "exclusions")

if rep3 = vbok then

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez les fichiers a exclure "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)


else

MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile.Close= filesys.CreateTextFile("c:backup vbsbackup.vbs",
True)
objMyFile.WriteLine"set exclu = "&Result
objMyFile.Close

end if

strFTPScriptFileName ="c:backup vbsbackup.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 "dim source, destination, exclu"
objMyFile.WriteLine "Set WshNetwork = WScript.CreateObject(" & chr(34) &_
"WScript.Network" & chr(34) & ")"
objMyFile.WriteLine "strComputer =" & chr(34) & "." & chr(34)
objMyFile.WriteLine "Set objWMIService = GetObject(" & chr(34) &
"winmgmts:"& chr(34) & "_"
objMyFile.WriteLine "& " & chr(34) & "{impersonationLevel=impersonate}!"
&chr(34) &_
" & strComputer & " &
chr(34)&"rootcimv2"
& chr(34) &")"
objMyFile.WriteLine "Set colItems = objWMIService.ExecQuery(" & chr(34) &_
"Select * from Win32_OperatingSystem"
&chr(34) & ")"
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 & " & chr(34) & "." & chr(34) & "&
Mois&" &_
chr(34) & "." & chr(34) & "& An"
objMyFile.WriteLine "strTemps = Heures & " & chr(34) & "." & chr(34) &
"&Minutes"
objMyFile.WriteLine "set shell = WScript.CreateObject(" & chr(34)
&"WScript.Shell" & chr(34) & ")"
objMyFile.WriteLine "params = " & chr(34) & "a -r -o- -m5 c:sauve"
&chr(34) &_
"& WshNetwork.ComputerName &" & chr(34) & "-" &
chr(34)& _
"& strDate &" & chr(34) & "-" & chr(34) &_
"& strTemps &" & chr(34) & ".rar c:backup" & chr(34)
objMyFile.WriteLine "Shell.run " & chr(34) & chr(34) & chr(34) &_
"C:program fileswinrarwinrar.exe " & chr(34) & chr(34)
&chr(34) & " &params"
objMyFile.Close





MsgBox "l 'application s'est bien deroulée, fin de la
configuration",vbInformation + vbOkOnly + vbApplicationModal + 0,"Fin de
la
configuration"




merci d jeter un cp d oeuil !







Avatar
Georges MAUREL
OK

mais avez-vous lu et mis en appliquation la suite de ma réponse ? Il
faudrait que vous fassiez quelques efforts si vous voulez que l'on continue
à vous aider...

Cordialement
Georges


"HeLioZz" a écrit dans le message de
news:
excusez moi pour le labsuce avec votre prenom...je suis sincerement désolé
!!!!

"Georges MAUREL" wrote:

Là vous poussez un peu.
Si vous vouliez qu'on vous fasse le programme il était plus simple de le
dire....
Sinon il existe des programme de backup déjà tout prêt et même intégrés
au
système pour certains.
En plus vous attribuez mon travail à un autre (jacques) !!!!

Petite indication : vous faites un CreateTextFile systématiquement avec
True. Donc votre fichier est écrasé systématiquement !!!!

Faites un peu plus attention et donnez-vous un peu plus de mal car sinon
je
vais faire comme les autres : PLONK

Cordialement
Georges



"HeLioZz" a écrit dans le message de
news:
encore moi je sais ....
voila enfaite c avec (encore)writeline...
j ai du mal comme on dit...
je voudrais savoir comment faire pour tt mes writeline pour qu ils
soient
tous pris en compte .(pas ce que jacques a fait)...
voici le code :


'demande de source
rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la
configuration
du
serveur")


if Rep = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000

Dim shell, item
dim source, destination, exclu
Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"
Set Item = shell.BrowseForFolder(0,titre,flag, dirinit )



else
MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit
end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Dim filesys, objMyFile
Set filesys = CreateObject("Scripting.objMyFile")
Set objMyFile= filesys.CreateTextFile("c:backup vbsbackup.vbs", True)
objMyFile.WriteLine"set source = " &result
objMyFile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation" &wscript.quit

End If



Function IsValue(obj)
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then IsValue = False Else IsValue = True
On Error GoTo 0
End Function


rep2= vbok
while rep2 = vbok

rep2 = MsgBox ("voulez vous reselectionner des fichiers a sauvegarder
?",
vbQuestion + vbOKCancel + vbApplicationModal ,"resaisir ")

if Rep2 = vbOk then


BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="Sélectionnez un dossier a sauvegarder"

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile= filesys.CreateTextFile("c:backup vbsbackup.vbs", True)
objMyFile.WriteLine"set source = " &result
objMyFile.Close

else
MsgBox "vous avez cliqué sur annuler !",vbInformation + vbOkOnly +
vbApplicationModal + 0,"annulation"&wscript.quit
end if
wend

'demande destination

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez de la destination des fichiers "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)




If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile= filesys.CreateTextFile("c:backup vbsbackup.vbs", True)
objMyFile.WriteLine"set destinaton = " &Result
objMyFile.Close


end if


'demande exclusions



rep3 = MsgBox ("voulez vous exlure des fichiers ?", vbQuestion Or
vbOkCancel, "exclusions")

if rep3 = vbok then

BIF_returnonlyfsdirs = &H0001
BIF_dontgobelowdomain = &H0002
BIF_editbox = &H0010
BIF_validate = &H0020
BIF_browseforcomputer = &H1000


Set shell = WScript.CreateObject("Shell.Application")
flag=BIF_returnonlyfsdirs
titre="selectionnez les fichiers a exclure "

Set Item = shell.BrowseForFolder(0,titre,flag, dirinit)


else

MsgBox "vous avez cliqué sur annuler !", vbInformation + vbOkOnly +
vbApplicationModal, "annulation" &wscript.quit

end if

If isvalue(Item) Then
Result=Item.Title

If InStr(1,Result,":")=0 Then
Result=Item.ParentFolder.ParseName(Item.Title).Path
End If

Set filesys = CreateObject("Scripting.FileSystemObject")
Set objMyFile.Close= filesys.CreateTextFile("c:backup vbsbackup.vbs",
True)
objMyFile.WriteLine"set exclu = "&Result
objMyFile.Close

end if

strFTPScriptFileName ="c:backup vbsbackup.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 "dim source, destination, exclu"
objMyFile.WriteLine "Set WshNetwork = WScript.CreateObject(" & chr(34)
&_
"WScript.Network" & chr(34) & ")"
objMyFile.WriteLine "strComputer =" & chr(34) & "." & chr(34)
objMyFile.WriteLine "Set objWMIService = GetObject(" & chr(34) &
"winmgmts:"& chr(34) & "_"
objMyFile.WriteLine "& " & chr(34) &
"{impersonationLevel=impersonate}!"
&chr(34) &_
" & strComputer & " &
chr(34)&"rootcimv2"
& chr(34) &")"
objMyFile.WriteLine "Set colItems = objWMIService.ExecQuery(" & chr(34)
&_
"Select * from Win32_OperatingSystem"
&chr(34) & ")"
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 & " & chr(34) & "." & chr(34) & "&
Mois&" &_
chr(34) & "." & chr(34) & "& An"
objMyFile.WriteLine "strTemps = Heures & " & chr(34) & "." & chr(34) &
"&Minutes"
objMyFile.WriteLine "set shell = WScript.CreateObject(" & chr(34)
&"WScript.Shell" & chr(34) & ")"
objMyFile.WriteLine "params = " & chr(34) & "a -r -o- -m5 c:sauve"
&chr(34) &_
"& WshNetwork.ComputerName &" & chr(34) & "-" &
chr(34)& _
"& strDate &" & chr(34) & "-" & chr(34) &_
"& strTemps &" & chr(34) & ".rar c:backup" &
chr(34)
objMyFile.WriteLine "Shell.run " & chr(34) & chr(34) & chr(34) &_
"C:program fileswinrarwinrar.exe " & chr(34) &
chr(34)
&chr(34) & " &params"
objMyFile.Close





MsgBox "l 'application s'est bien deroulée, fin de la
configuration",vbInformation + vbOkOnly + vbApplicationModal + 0,"Fin
de
la
configuration"




merci d jeter un cp d oeuil !









Avatar
Jacques93
Bonjour Georges MAUREL,
[...]

En plus vous attribuez mon travail à un autre (jacques) !!!!


[...]
rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration du
serveur")

Je peux me tromper, mais cela ressemble comme deux gouttes d'eau à une
réponse que j'ai donnée à une question d'HeLioZz sur le forum windowsxp
le 27/09/2005 (fil initié a 10:59). Dans ce même fil, Jean-Claude
BELLAMY lui a 'conseillé' de venir voir ici. D'ailleurs il semble que
HeLioZz soit sur le forum scripting (sous ce pseudo) depuis le
28/09/2005... ;-)

--
Cordialement,

Jacques.

Avatar
Georges MAUREL
Bonjour Jacques,
Désolé, je ne savais pas qu'il sévissait aussi sur un autre forum...
Je ralais car je lui ai fait le reste du code et qu'il vous remerciait...

Cordialement
Georges


"Jacques93" a écrit dans le message de news:
%
Bonjour Georges MAUREL,
[...]

En plus vous attribuez mon travail à un autre (jacques) !!!!


[...]
rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration
du
serveur")

Je peux me tromper, mais cela ressemble comme deux gouttes d'eau à une
réponse que j'ai donnée à une question d'HeLioZz sur le forum windowsxp le
27/09/2005 (fil initié a 10:59). Dans ce même fil, Jean-Claude BELLAMY lui
a 'conseillé' de venir voir ici. D'ailleurs il semble que HeLioZz soit sur
le forum scripting (sous ce pseudo) depuis le 28/09/2005... ;-)

--
Cordialement,

Jacques.



Avatar
Jacques93
Bonsoir Georges MAUREL,
Bonjour Jacques,
Désolé, je ne savais pas qu'il sévissait aussi sur un autre forum...
Je ralais car je lui ai fait le reste du code et qu'il vous remerciait...

Cordialement
Georges




Tu n'as pas à être désolé, je ne voulais pas revendiquer la paternité de
cette ligne de code (bien qu'elle ait des chances de rester immortelle
;-) ) mais juste t'informer de la démarche du personnage, d'ailleurs le
Jacques dont il parle n'est peut être pas moi...

:-)

--
Cordialement,

Jacques.

Avatar
jbongran
HeLioZz wrote:
Set filesys = CreateObject("Scripting.objMyFile")
L'objet Scripting.objMyFile n'existe pas, comme vous l'a (patiemment)

indiqué Georges Maurel, la ligne correcte est : Set objFSO =
CreateObject("Scripting.FileSystemObject")
Mais pourquoi ne relisez vous jamais ce que vous tapez ?
Mais pourquoi modifiez vous toujours ce que l'on vous propose ?
Mais pourquoi ne tenez vous aucun compte de ce que tout le monde vous dit,
comme d'indenter votre code ?
Cela devient lassant ...

Avatar
HeLioZz
pour en revenir au "pb" de prenom de l autre jour c' est que j regardais le
forum en meme tps que je tapais et je ne sais pas pkoi j ai taper jacques....
mais je parlais bien de vous !
encore mille excuses !
a bientot , bon week end !

julien

"Georges MAUREL" wrote:

Bonjour Jacques,
Désolé, je ne savais pas qu'il sévissait aussi sur un autre forum...
Je ralais car je lui ai fait le reste du code et qu'il vous remerciait...

Cordialement
Georges


"Jacques93" a écrit dans le message de news:
%
Bonjour Georges MAUREL,
[...]

En plus vous attribuez mon travail à un autre (jacques) !!!!


[...]
rep = MsgBox ("Etes vous sur de vouloir configurer le serveur pour les
sauvegardes ?", vbQuestion Or vbOkCancel, "lancement de la configuration
du
serveur")

Je peux me tromper, mais cela ressemble comme deux gouttes d'eau à une
réponse que j'ai donnée à une question d'HeLioZz sur le forum windowsxp le
27/09/2005 (fil initié a 10:59). Dans ce même fil, Jean-Claude BELLAMY lui
a 'conseillé' de venir voir ici. D'ailleurs il semble que HeLioZz soit sur
le forum scripting (sous ce pseudo) depuis le 28/09/2005... ;-)

--
Cordialement,

Jacques.