Re: Writing file from one server to another

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Set the sSource to a specific share, not the computer itself.


Daniel.Phillips wrote:
have script set as follows:

sFileName = "SDAD3PSOFT1_PC_Info.csv"
sSource = "\\sdad3psoft1\"
sDest = "\\sdad3itsrpt01\pepplusreports$\PeopleSoft\"

Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile sSource & sFileName, sDest & SFileName

Response is - line 6 error - Invalid procedure call or argument

--
Daniel Phillips


"JakeDAHS" wrote:


Daniel.Phillips wrote:
I have the following script that is working great. Added code after
objOutPutFile.Close to copy the output file to another server. I am not
getting any data in the file. Any suggestions????


objOutputFile.writeLine "Total for server " & "," & strComputer
objOutputFile.WriteLine strComputer & "," & "," & "," & strDiskTot &
"," & strFreeTot
End if
strDiskTot = 0
strFreeTot = 0
Next

objOutputFile.Close
'=========================================================
' copy file to PSREPORTS directory for e-mail
'=========================================================
InputFileName="Current Server File Name_PC_Info.csv"
server = "new server names xxxxxxxxxxxx"
ShareName="name of dirctory where file is to go"
Set oFSO=CreateObject("Scripting.FileSystemObject")
Set InputFile=oFSO.OpenTextFile("c:\"& checkedCPU & "\file to be
copied_PC_Info.csv")

'Do Until InputFile.AtEndOfStream
Server=InputFile.ReadLIne
OnServerFileName="\\" & server & "\" & shareName & "\" & server & "_" &
"PC_Info.csv"
Set OnServerFile=oFSO.OpenTextFile(OnServerFileName,2,true)
OnServerFile.WriteLine Server
OnServerFile.Close
'
--
Daniel Phillips

Possibly changing

Set InputFile=oFSO.OpenTextFile("c:\"& checkedCPU & "\file to be
copied_PC_Info.csv", 1) <--- ,1 for reading

just at a glace. It may be easier, to just do a filecopy wth the FSO
rather than a read/write


sFileName = "FileNameToCopy.txt"
sSource = "\\server1\share\"
sDest = "\\server2\share\"

Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile sSource & sFileName, sDest & SFileName



.

Relevant Pages

  • Re: Writing file from one server to another
    ... Set oFSO = CreateObject ... oFSO.CopyFile sSource & sFileName, sDest & SFileName ...
    (microsoft.public.windows.server.scripting)
  • Re: make a job successful
    ... transfers data from a text file to a SQL Server table and updates the table? ... Dim oFSO, sFileName ... Set oFSO = CreateObject ...
    (microsoft.public.sqlserver.dts)
  • Re: Transfer file from VBS via HTTP
    ... oHTTP.open "GET", sSource, False ... set oStream = createobject ... Const adSaveCreateOverWrite = 2 ... oStream.savetofile sDest, adSaveCreateOverWrite ...
    (microsoft.public.scripting.vbscript)
  • make a job successful
    ... How can I make a job successful when it contains a DTS package that ... transfers data from a text file to a SQL Server table and updates the table? ... Dim oFSO, sFileName ... Set oFSO = CreateObject ...
    (microsoft.public.sqlserver.dts)