Problemes avec favoris réseau
Bonjour a tous,
Voila le probleme :
j'ai une page ASP avec laquelle je veut connecter un lecteur réseau sur le poste client. J'arrive à creer ce favoris réseau mais quand je dClic dessus il s'ouvre avec mon navigateur et pas avec l'explorateur Windows:calim2:.
Voila le code correspondant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| protected void buttonAddNetPlace_Click(object sender, EventArgs e)
{
string urlServer = textBoxUrlServeur.Text;
string sScript =
@"<script language='vbscript' type = 'text/vbscript'>
Set oShApp=CreateObject(""Shell.Application"")
Set oFolder=oShApp.NameSpace(&H13)
strVPath=oFolder.Self.Path & ""\Librairie_Globale""
Set oFs=CreateObject(""Scripting.FileSystemObject"")
If(oFs.FolderExists(strVPath)) Then
Else
oFs.CreateFolder(strVPath)
Set oFile=oFs.CreateTextFile(strVPath & ""\Desktop.ini"", True)
oFile.WriteLine ""[.ShellClassInfo]""
oFile.WriteLine ""CLSID2={0AFACED1-E828-11D1-9187-B532F1E9575D}""
oFile.WriteLine ""Flags=2""
Set oSh=CreateObject(""WScript.Shell"")
Set oLnk=oSh.CreateShortcut(strVPath & ""\target.lnk"")
oLnk.TargetPath=" + "\"" + urlServer + "\"" + @"
oLnk.Save
Set oFile=oFs.GetFile(strVPath & ""\Desktop.ini"")
oFile.Attributes = 4 + 2
Set oFile=oFs.GetFolder(strVPath)
oFile.Attributes = 16 + 1
end If
</script>";
Page.Response.Write(sScript);
Page.Response.Flush();
Page.Response.Clear();
} |
J'ai pensé à un probleme d'attributs peut être...
Si quelqu'un à une idée ca serait cool
merci d'avance
