Discussion :

[poussin_44]

Bonjour,
je cherche à créer un fichier.cmd qui serait de la forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dsadd computer ""CN=" & Label1.Text & "," & OU & ",DC=societe,DC=fr""
reg delete ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /v DefaultPassword /f
reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /v AutoAdminLogon /d 0 /f
reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /v DefaultUserName /d " & CStr(CbBox1.SelectedItem.ToString) & " /f
del /F c:\ModifierRegistre.cmd

Donc pour ce faire, j'ai tenté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
My.Computer.FileSystem.WriteAllText("c:\ModifierRegistre.cmd", _
"dsadd computer ""CN=" & Label1.Text & "," & OU & ",DC=societe,DC=fr""" & /n & "reg delete ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /v DefaultPassword /f" & Chr(13) & "reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /v AutoAdminLogon /d 0 /f" & Chr(13) & "reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /v DefaultUserName /d " & CStr(CbBox1.SelectedItem.ToString) & " /f" & Chr(13) & "del /F c:\ModifierRegistre.cmd", True)

avec en vert, Chr(13) qui est un saut de ligne en VB et /n/r en batch

j'ai également essayé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
My.Computer.FileSystem.WriteAllText("c:\ModifierRegistre.cmd", _
"dsadd computer ""CN=" & Label1.Text & "," & OU & ",DC=societe,DC=fr""", True)
My.Computer.FileSystem.WriteAllText("c:\ModifierRegistre.cmd", _
'"reg delete ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /v DefaultPassword /f", True)
My.Computer.FileSystem.WriteAllText("c:\ModifierRegistre.cmd", _
'"reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /v AutoAdminLogon /d 0 /f", True)
My.Computer.FileSystem.WriteAllText("c:\ModifierRegistre.cmd", _
'"reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"" /v DefaultUserName /d " & CStr(CbBox1.SelectedItem.ToString) & " /f", True)
My.Computer.FileSystem.WriteAllText("c:\ModifierRegistre.cmd", _
'"del /F c:\ModifierRegistre.cmd", True)

mais ca ne fonctionne pas non plus!

Quelqu'un pourrait-il me conseiller pour créer mon fichier.batch pour qu'il soit exécutable.

Merci à vous

[Pol63]

as tu regardé à quoi il ressemblait pour voir ce qui clochait ?

sinon pour aller à la ligne moi j'utilise VbCrLf (espace de nom Microsoft.VisualBasic) qui est égal à chr(10) & chr(13)
je ne sais pas si le /n peut marcher mais chr(13) tout seul ne peut pas fonctionner


si ca ne marche pas mieux, utilise un streamwriter