Erreur dans vbscript : caractère incorrect
Bonsoir,
J'ai un soucis avec un script vbs que j'ai modifié un peu. Il permet de renommer une interface réseau. A l'origine, le nom de l'interface a renommer était écrite en dur dans le script mais moi j'y ai rajouté une variable. Lorsque mon script est écrit au clavier il marche. le script qui marche :
__________________________________________
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Const NETWORK_CONNECTIONS = &H31&
Dim nomConnexion
nomConnexion="Connexion au réseau local 4"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(NETWORK_CONNECTIONS)
Set colItems = objFolder.Items
For Each objItem in colItems
If objItem.Name = nomConnexion Then
objItem.Name = "LAN"
End If
Next |
_________________________________________
En outre, j'attribue le contenu de la variable nomConnexion par code C#.net dans une appli windowsforms. Je lis le fichier originel à l'aide d'un streamreader et je copie a l'aide de streamwriter mais pour la ligne "nomConnexion=" c'est une variable dans mon appli qui complète la ligne.
Le fichier s'écrit bien mais quand je l'exécute j'ai une erreur vbscript "caractère incorrect à la ligne 1 colonne 1"
Je ne sais pas pourquoi?
Merci de votre aide, je vous met les autres codes.
mekongboy
Script dans lequel je lis à l'aide de streamreader :
_____________________________________
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Const NETWORK_CONNECTIONS = &H31&
Dim nomConnexion
nomConnexion=
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(NETWORK_CONNECTIONS)
Set colItems = objFolder.Items
For Each objItem in colItems
If objItem.Name = nomConnexion Then
objItem.Name = "LAN"
End If
Next
_________________________________________ |
Mon code C# qui lit et écrit dans le fichier :
__________________________________
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| StreamWriter sw = null;
StreamReader sr = null;
String ligne = null;
sr = new StreamReader("renommer.vbs");
sw = new StreamWriter(nomFichier);
ligne = sr.ReadLine();
// je parcours tout le fichier
while (ligne != null)
{
// si la ligne commence par nomConnexion
if (ligne.StartsWith("nomConnexion="))
{
// j'ajoute à ligne le nom de ma connexion réseau que
j'ai saisi dans une textbox
ligne = ligne + "\"" + nomReseau + "\"";
}
// j'ajoute la ligne au fichier
sw.WriteLine(ligne);
ligne = sr.ReadLine();
} |
