J'ai un script qui crée un fichier sur un disque.
Si c'est local, cela fonctionne bien. Mais j'aimerais créer un fichier sur une partition samba. J'ai déclaré un lecteur réseau sur la machine qui lance le script mais je reçois l'erreur :
Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. C:\Outils\WSH\test.vbs(21, 1) (null): Le mot de passe réseau spécifié est incorrect.
Voici le script :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
' NewFileEC.vbs
' Sample VBScript to create a file with error-correcting Code
' Author Guy Thomas http://computerperformance.co.uk/
' Version 1.6 - June 2005
' ---------------------------------------------------------------'
 
Option Explicit
Dim objFSO, objFolder, objShell, objTextFile, objFile
Dim strDirectory, strFile, strText
strDirectory = "D:\test"
strFile = "\Summer.txt"
strText = MakePage("2")
 
' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
' Check that the strDirectory folder exists
If objFSO.FolderExists(strDirectory) Then
   Set objFolder = objFSO.GetFolder(strDirectory)
Else
Set objFolder = objFSO.CreateFolder(strDirectory)
WScript.Echo "Just created " & strDirectory
End If
 
If objFSO.FileExists(strDirectory & strFile) Then
Set objFolder = objFSO.GetFolder(strDirectory)
Else
Set objFile = objFSO.CreateTextFile(strDirectory & strFile)
Wscript.Echo "Just created " & strDirectory & strFile
End If
 
set objFile = nothing
 
set objFolder = nothing
 
 
' OpenTextFile Method needs a Const value
' ForAppending = 8 (ecrire à la suite) ForReading = 1 (lire), ForWriting = 2 (ecrire en ecrasant le contenu initial)
Const ForAppending = 2
 
Set objTextFile = objFSO.OpenTextFile _
(strDirectory & strFile, ForAppending, True)
 
' Writes strText every time you run this VBScript
objTextFile.WriteLine(strText)
objTextFile.Close
 
'Corps du fichier
Function MakePage(txtNumDM)  
	Dim txtTemp
 
  txtTemp = txtNumDM & ";1"
 
  MakePage = txtTemp
End Function
 
WScript.Quit
' End of VBScript to create a file with error-correcting Code
J'ai l'impression de ne pas être très loin pourtant.

Est ce que quelqu'un a une idée ? passer des paramètres à ma ligne de commande qui lance le script ?

Merci