mise en forme d'un fichier.cmd

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

Code:

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:

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:

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