Distributing Sub-Folders when Copying ConsoleOne
Novell Cool Solutions: Trench
By Marcus Westlund
|
Digg This -
Slashdot This
Posted: 12 Mar 2003 |
Recently we published this Q&A:
Question: Jody G. wrote: I am trying to create an application object that will copy \\servername\sys\public\mgmt\consoleone\*.* (including subfolders & files) to c:\novell\consoleone (including subfolders and files) if the server version is newer. Once this is done I want it to run ConsoleOne from the PC.
The problem I have is that Distribution Options for Application Files doesn't seem to copy/create the full folder structure using wild cards.
Is there a way I can do this?
Answer: Yes - use a distribution script in ZfD4.
Other Suggestion
Marcus Westlund of the Swedish Police had a better idea. Here's what he said:
I have a tip regarding Jody G's problem. I am using a VB-script and the file copy utility robocopy.exe to copy the ConsoleOne file structure from Z: (a Sys:public root mapping) to C:\Novell\ConsoleOne.
Use a application object to copy C1copy.cmd, ConsoleOne.vbs and robocopy.exe to C:\Novell\ConsoleOne, then execute the script from same application object.
---------------
ConsoleOne.vbs
---------------
' * Filename: ConsoleOne.vbs
' * Marcus Westlund, The Swedish Police, 2003-01-24
' *
' * This script will copy ConsoleOne files and directories
from Z: to C: and then it
' * will start ConsoleOne from the local drive.
' *
' * This file may be distributed with an application
object to C:\Novell\ConsoleOne.
' * Let the application object then execute the script.
If you have problem to start .vbs files from NAL
' * you can enter following in the application object:
' * Path to file: %*WinSysDir%\cmd.exe
' * Parameters: /C C:\Novell\ConsoleOne\ConsoleOne.vbs
' * Working Dir: C:\Program\ConsoleOne
' *
' *
' * The copy process requires the file C1copy.cmd.
' *
Option Explicit
On Error Resume Next
Dim objFile
Dim objShell
Dim sKopiera
Dim oExec
Dim objArgs
Dim oExe
Dim oExecTwo
'* create objects.
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFile = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
'* Ask if the files should be synchronized (with
C1copy.cmd)
sKopiera = objShell.Popup("Do you want to copy/synchronize
ConsoleOne to your local disk?",10,"Synchronize files...",4+32)
Select Case sKopiera
'If Case 6 (Yes): The files will be copied and then
ConsoleOne starts
Case 6
Set oExec = objShell.Run("C:\Novell\
ConsoleOne\C1copy.cmd", 1, True)
Set oExecTwo = objShell.Run("C:\Novell\
ConsoleOne\Bin\ConsoleOne.exe", 1, True)
' If Case 7 (No): ConsoleOne starts whitout
any file copying
Case 7 Set oExec = objShell.Run("C:\Novell\
ConsoleOne\Bin\ConsoleOne.exe", 1, True)
' If Case -1 (no answer): ConsoleOne starts
without any file copying
Case -1 Set oExec = objShell.Run("C:\Novell\
ConsoleOne\Bin\ConsoleOne.exe", 1, True)
End Select
Wscript.Quit
-------- EOF --------------
---------------------
C1copy.cmd
----------------------
@ECHO OFF
REM Filename: c1copy.cmd
REM Requires the copy utility robocopy.exe
REM Copies ConsoleOne files from Z:, which should be a
root search mapping to sys:public
:START
TITLE Copying files to C:\Novell\ConsoleOne...
ROBOCOPY Z:\mgmt\ConsoleOne\1.2
C:\Novell\ConsoleOne *.* /E /R:3 /W:30
EXIT
:END
-------- EOF ------------
If you have any questions you may contact Marcus at marcus.westlund@teknik.police.se
Novell Cool Solutions (corporate web communities) are produced by WebWise Solutions. www.webwiseone.com