création de fichiers sur un systéme samba

Version imprimable

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 :

Citation:

Voici le script :

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
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

Je suppose un problème de droit pour la création du répertoire :

Code:

Set objFolder = objFSO.CreateFolder(strDirectory)

Dans :
Code:

1 2 3 4 5 6 7 ' 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
Met ton WScript.Echo juste au dessus pour être sur que tu passes dans le else, et qu'il tente bien de te créer le répertoire.

09/06/2008, 14h18
loulag07

Oui le pb est à la création ET à l'accession au répertoire s'il existe déjà effectivement

J'ai retrouvé un poste de mai 2007 http://www.developpez.net/forums/sho...d.php?t=329931 sur le même pb et en fait je crois que c'est impossible...

tant pis je vais prendre une autre techno

non ce n'est pas impossible.
Il faut passer par le WMI et te connecter avec SWbemLocator sur ton poste, et puis à l'aide d'un des objets WMI accéder aux disques réseau.
Connection par SWbemLocator :

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
' Full Computer Name
' can be found by right-clicking My Computer,
' then click Properties, then click the Computer Name tab)
' or use the computer's IP address
strComputer = "FullComputerName" 
strDomain = "DOMAIN" 
Wscript.StdOut.Write "Please enter your user name:"
strUser = Wscript.StdIn.ReadLine 
Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "Please enter your password:"
strPassword = objPassword.GetPassword()
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, _
    "root\cimv2", _
     strUser, _
     strPassword, _
     "MS_409", _
     "ntlmdomain:" + strDomain)
Set colSwbemObjectSet = _
    objSWbemServices.ExecQuery("Select * From Win32_Process")
For Each objProcess in colSWbemObjectSet
    Wscript.Echo "Process Name: " & objProcess.Name 
Next

Je ne suis plus sur de l'objet, mais on en a parlé sur ce forum avec une recherche peut être que tu le trouveras.
Regarde ici aussi, notemment cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colDisks = objWMIService. _
    ExecQuery("Select * from Win32_MappedLogicalDisk")
For Each objDisk in colDisks
    Wscript.Echo "Device ID: " & objDisk.DeviceID
    Wscript.Echo "Name: " & objDisk.Name
    Wscript.Echo "Free Space: " & objDisk.FreeSpace
    Wscript.Echo "Size: " & objDisk.Size
Next

Note : Oups j'ai pas vu que c'était un disque physique non réseau :

Citation:

...determine how much free space is available on a drive?
Use the Win32_LogicalDisk class and the FreeSpace property.

Code:

1
2
3
4
5
6
7
8
9
10
11
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk")
For Each objDisk in colDisks
    Wscript.Echo "DeviceID: " & objDisk.DeviceID       
    Wscript.Echo "Free Disk Space: " _
        & objDisk.FreeSpace
Next

12/06/2008, 13h24
loulag07

Finalement n'étant pas expert en vbscript (voir n'y connaissant rien), la solution proposée ne me semble pas à ma portée.

Je procède donc en 2 étapes :
1- je crée les fichiers voulus en local (vbs)
2- je crée un .bat qui va aller copier ces fichiers sur mon autre serveur.

Merci pour toi aide ced600
12/06/2008, 15h17
ced600

ok c toi qui vois.