Cannot find file specified!!!

Question

To anyone that can help.
Server 2012 R2
Trying to run a .wsf file and the system tells me that it cannot find the file specified.
Opened command prompt as admin and running cscript.exe shoreware_backup.wsf
I am losing my mind
Jared

Answer 1

' Backup Script for ShoreWare Server
<job id="ShorewareBackup">
 <script language="VBScript" src="common.vbs" />
 <script language="VBScript">
writeToLog "********** Starting Shoreware Backup Process **********"
'----- load ini file, this should always be the first thing to do -----
loadINI
Dim backupDrive : backupDrive = BACKUP_DRIVE
Dim backupRootDir : backupRootDir = BACKUP_ROOT_DIR
Dim scriptsRootDir : scriptsRootDir = SCRIPTS_ROOT_DIR
Dim scriptsDVMRootDir : scriptsDVMRootDir = SCRIPTS_DVM_ROOT_DIR
Dim backupVMBRootDir : backupVMBRootDir = BACKUP_VMB_ROOT_DIR
Dim backupUCBRootDir : backupUCBRootDir = BACKUP_UCB_ROOT_DIR
Dim backupDVSRootDir : backupDVSRootDir = BACKUP_DVS_ROOT_DIR
Dim ShoretelRootDir : ShoretelRootDir = SERVER_DIR
Dim ShoretelDVMRootDir : ShoretelDVMRootDir = DVM_SERVER_DIR
writeToLog "Backup Directory: " & backupDrive & backupRootDir
If(serverType = SERVER_TYPE_HQ) Then
 writeToLog "Scripts Directory: " & scriptsRootDir
ElseIf(serverType = SERVER_TYPE_DVM) Then
 writeToLog "Scripts Directory: " & scriptsDVMRootDir
End If 
Dim objShell, serverType, action, cmd_error
Set objShell = WScript.createObject("wscript.shell")
cmd_error = 0
Dim  inIBMLF
inIBMLF = False
On Error Resume Next
Dim lfMode : lfMode = objShell.RegRead(REG_LF_MODE)
Select Case Err
Case 0:
  writeToLog "Registry key RunningOnLFMode exist"
  if(lfMode) Then
   writeToLog "RunningOnLFMode is not 0, we are in LF mode"
   inIBMLF = True
  End If
Case Else
  writeToLog "Registry key RunningOnLFMode does not exist"
End Select
On Error Goto 0
'----- Check for errors in the command line -----
If (WScript.Arguments.Length > 0) Then
 serverType = LCase(WScript.Arguments.Item(0))
 if(serverType = SERVER_TYPE_HQ or serverType = SERVER_TYPE_DVM or serverType = SERVER_TYPE_VMB or serverType = SERVER_TYPE_UCB or serverType = SERVER_TYPE_DVS) Then
  writeToLog "Server Type: " & serverType
 Else
  writeToLog "ERROR! Invalid server type: " & serverType
  cmd_error = 1 
 End If
Else
 writeToLog "ERROR! Syntax error, check the command line."
 cmd_error = 1
End If
If (cmd_error = 1) Then
 WScript.Echo "Usage Error: shoreware_backup.wsf [" &_
       SERVER_TYPE_HQ & "," &_
       SERVER_TYPE_DVM & "," &_
       SERVER_TYPE_VMB & "," &_
       SERVER_TYPE_UCB & "," &_
       SERVER_TYPE_DVS & "] [" &_
       OPTION_ALL & " | " &_
       OPTION_DB & " | " &_
       OPTION_VM & " | " &_
       OPTION_LOG & "]"
 WScript.Quit -1
End If
'----- Verify this server is the server the user is expecting -----
If ((serverType = SERVER_TYPE_HQ) and isRemoteServer) Then
 WScript.Echo TEXT_ERROR_NOT_HQ
 WScript.Quit -1
ElseIf ((serverType = SERVER_TYPE_DVM) and Not isRemoteServer) Then
 WScript.Echo TEXT_ERROR_NOT_DVM'
 WScript.Quit -1
Else
End If
'----- Parse the command line -----
Dim index, doConfig, doVM, doCDR, doLogs
index = 0
doConfig = False
doVM = False
doCDR = False
doLogs = False
For Each action in WScript.Arguments
 If (index = 0) Then
  'Do nothing, this is the server type
 Else
  select case LCase(action)
   case OPTION_ALL
    doConfig = True
    doVM = True
    doCDR = True
    doLogs = True
   case OPTION_CONFIG
    doConfig = True
   case OPTION_VM
    doVM = True
   case OPTION_CDR
    doCDR = True
   case OPTION_LOG
    doLogs = True
   case OPTION_DB
    doConfig = True
    doCDR = True
   case ARG_SWITCH_VERBOSE
    VERBOSE_MODE = True
   case Else
    writeToLog "ERROR! Invalid option: " & action
    WScript.Echo "Warning: Unrecognized type " & action
  end select
 End If
 index = index + 1
Next
Dim dataRootDir : dataRootDir = objShell.RegRead(REG_SWDATA_DIR)
writeToLog "SW Data Directory: " & dataRootDir
'----- Stop services and perform backup -----
If(serverType = SERVER_TYPE_HQ) Then
 writeToLog "---> cleaning current backup folder"
 rotateBackupFolder backupDrive, backupRootDir
 writeToLog "---> stopping hq services"
 stopHQ scriptsRootDir
 writeToLog "---> backing up hq data"
 backUpHQ dataRootDir, backupDrive, backupRootDir, doConfig, doVM, doCDR, doLogs
ElseIf(serverType = SERVER_TYPE_DVM) Then
 writeToLog "---> cleaning current backup folder"
 rotateBackupFolder backupDrive, backupRootDir
 writeToLog "---> stopping dvm services"
 stopDVM scriptsDVMRootDir
 writeToLog "---> backing up dvm data"
 backUpDVM dataRootDir, backupDrive, backupRootDir, doConfig, doVM, doCDR, doLogs
ElseIf(serverType = SERVER_TYPE_VMB) Then
 Dim vmbIp
 writeToLog "---> cleaning current backup folder"
 rotateBackupFolder backupDrive, backupVMBRootDir
 For Each vmbIp In VMB_LIST
  writeToLog "---> stopping vmb (" & vmbIp & ") services"
  stopVMB vmbIp
  writeToLog "---> backing up vmb data"
  backupVMB backupDrive, backupVMBRootDir, vmbIp
 Next
ElseIf(serverType = SERVER_TYPE_UCB) Then
 Dim ucbIp
 writeToLog "---> cleaning current backup folder"
 rotateBackupFolder backupDrive, backupUCBRootDir
 For Each ucbIp In UCB_LIST
  writeToLog "---> stopping ucb (" & ucbIp & ") services"
  stopUCB ucbIp
  writeToLog "---> backing up ucb data"
  backupUCB backupDrive, backupUCBRootDir, ucbIp
 Next
ElseIf(serverType = SERVER_TYPE_DVS) Then
 Dim dvsIp
 writeToLog "---> cleaning current backup folder"
 rotateBackupFolder backupDrive, backupDVSRootDir
 For Each dvsIp In DVS_LIST
'  writeToLog "---> stopping dvs (" & dvsIp & ") services"
'  stopDVS dvsIp
  writeToLog "---> backing up dvs data"
  backupDVS backupDrive, backupDVSRootDir, dvsIp
 Next
End If
'----- Save off current version of shoreware -----
setDataVersion backupDrive, backupRootDir, serverType
'----- Backup complete, so re-start services -----
If(serverType = SERVER_TYPE_HQ) Then
 writeToLog "---> starting hq services"
 startHQ scriptsRootDir
ElseIf(serverType = SERVER_TYPE_DVM) Then
 writeToLog "---> starting dvm services"
 startDVM scriptsDVMRootDir
ElseIf(serverType = SERVER_TYPE_VMB) Then
 For Each vmbIp In VMB_LIST
  writeToLog "---> starting vmb (" & vmbIp & ") services"
  startVMB vmbIp
 Next
ElseIf(serverType = SERVER_TYPE_UCB) Then
 For Each ucbIp In UCB_LIST
  writeToLog "---> starting ucb (" & ucbIp & ") services"
  startUCB ucbIp
 Next
'ElseIf(serverType = SERVER_TYPE_DVS) Then
' For Each dvsIp In DVS_LIST
'  writeToLog "---> starting dvs (" & dvsIp & ") services"
'  startDVS dvsIp
' Next
End If
writeToLog "********** Completed Shoreware Backup Process **********"
If(Not inIBMLF) Then
 WScript.Echo TEXT_BACKUP_COMPLETE
End If
'----- Script Done -----
' SubProcedure to backup the data on the HQ server
' Backs up the following:
' 1. \Inetpub\mailroot
' 2. \Inetpub\ftproot
' 3. \Windows\my.ini
' 4. \Shoreline Data\MessageFiles
' 5. \Shoreline Data\Prompts
' 6. \Shoreline Data\Scripts
' 7. \Shoreline Data\SoftSwitch
' 8. \Shoreline Data\Templates
' 9. (optional) \Shoreline Data\Database
' 10. (optional) \Shoreline Data\Vms
' 11. (optional) \Shoreline Data\Call Records 2
' 12. (optional) \Shoreline Data\Logs
' Input
'  rootDir - (String) path of root directory containing Shoreline Data
'  backupDrive - (String) disk drive of backup destination
'  backupDir - (String) path of backup destination
'  doConfig - (Boolean) if to backup "\Database"
'  doVM - (Boolean) if to backup "\Vms"
'  doCDR - (Boolean) if to backup "\Call Records 2"
'  doLogs - (Boolean) if to backup "\Logs"
sub backUpHQ (rootDir, backupDrive, backupDir, doConfig, doVM, doCDR, doLogs)
 'WScript.Echo "Backing up HQ..."
 'back-up mailroot
 folderCopy WINDOWS_DRIVE & MAILROOT_ROOT_DIR, backupDrive, backupDir & MAILROOT_ROOT_DIR, True
 ftpRootDirAsInRegistry = objShell.RegRead(REG_FTPROOT_DIR)
 writeToLog "ftp root Directory: " & ftpRootDirAsInRegistry
 'lngPos = Instr(ftpRootDirAsInRegistry, ",")
 'ftpRootDir = Left(ftpRootDirAsInRegistry, lngPos-1)
 ftpRootDir = ftpRootDirAsInRegistry
 lngPos1 = Instr(ftpRootDir, ":")
 ftpdirlength  =Len(ftpRootDir)
 ftpRootDirWithoutDriveName = Right(ftpRootDir, ftpdirlength-lngPos1)
 backupDirWithSlash = backupDir & "\"
 'back-up ftproot
 'folderCopy WINDOWS_DRIVE & FTPROOT_ROOT_DIR, backupDrive, backupDir & FTPROOT_ROOT_DIR, True
 'back-up ftproot directory
 folderCopy ftpRootDir, backupDrive, backupDirWithSlash & ftpRootDirWithoutDriveName, True
 writeToLog "ftproot directory backup done: " & backupDirWithSlash & ftpRootDirWithoutDriveName
 'back-up mysql configuration
 fileCopy SHOREWARE_DRIVE & ShoretelRootDir & "\MySQLCDR\MySQL Server\" & MYSQL_CONFIG_FILE, backupDrive, backupDir & ShoretelRootDir & "\MySQLCDR\MySQL Server\", True
 fileCopy SHOREWARE_DRIVE & ShoretelRootDir & "\MySQLConfig\MySQL Server\" & MYSQL_CONFIG_FILE, backupDrive, backupDir & ShoretelRootDir & "\MySQLConfig\MySQL Server\", True
 'back-up HQ data 
 Dim objFSO : Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
 If objFSO.FolderExists(rootDir) Then
  Dim objFolder, objSubfolders, doCopy
  Set objFolder = objFSO.GetFolder(rootDir)
  Set objSubfolders = objFolder.SubFolders
  For Each objFolder in objSubfolders
   doCopy = False
   select case objFolder.Name
    case FOLDER_NAME_CONFIG
     if(doConfig) Then
      doCopy = True
     End If
    case FOLDER_NAME_VM
     if(doVM) Then
      doCopy = True
     End If
    case FOLDER_NAME_CDR
     if(doCDR) Then
      doCopy = True
     End If
    case FOLDER_NAME_LOGS
     if(doLogs) Then
      doCopy = True
     End If
    case Else
     doCopy = True
   end select
   if(doCopy) Then
    folderCopy objFolder.Path, backupDrive, backupDir & "\" & BACKUP_SW_DIR & objFolder.Name, True
   End If
  Next
 End If
end sub
' SubProcedure to backup the data on the DVM server
' Backs up the following:
' 1. \Inetpub\mailroot
' 2. \Inetpub\ftproot
' 3. \Windows\my.ini
' 4. \Shoreline Data\MessageFiles
' 5. \Shoreline Data\Prompts
' 6. \Shoreline Data\Scripts
' 7. \Shoreline Data\SoftSwitch
' 8. \Shoreline Data\Templates
' 9. (optional) \Shoreline Data\Database
' 10. (optional) \Shoreline Data\Vms
' 11. (optional) \Shoreline Data\Call Records 2
' 12. (optional) \Shoreline Data\Logs
' Input
'  rootDir - (String) path of root directory containing Shoreline Data
'  backupDrive - (String) disk drive of backup destination
'  backupDir - (String) path of backup destination
'  doConfig - (Boolean) if to backup "\Database"
'  doVM - (Boolean) if to backup "\Vms"
'  doCDR - (Boolean) if to backup "\Call Records 2"
'  doLogs - (Boolean) if to backup "\Logs"
sub backUpDVM (rootDir, backupDrive, backupDir, doConfig, doVM, doCDR, doLogs)
 'WScript.Echo "Backing up DVM..."
 'back-up mailroot
 folderCopy WINDOWS_DRIVE & MAILROOT_ROOT_DIR, backupDrive, backupDir & MAILROOT_ROOT_DIR, True
 ftpRootDirAsInRegistry = objShell.RegRead(REG_FTPROOT_DIR)
 writeToLog "ftp root Directory: " & ftpRootDirAsInRegistry
 ftpRootDir = ftpRootDirAsInRegistry
 lngPos1 = Instr(ftpRootDir, ":")
 ftpdirlength  =Len(ftpRootDir)
 ftpRootDirWithoutDriveName = Right(ftpRootDir, ftpdirlength-lngPos1)
 backupDirWithSlash = backupDir & "\"
 'back-up ftproot directory
 folderCopy ftpRootDir, backupDrive, backupDirWithSlash & ftpRootDirWithoutDriveName, True
 writeToLog "ftproot directory backup done: " & backupDirWithSlash & ftpRootDirWithoutDriveName
 'back-up mysql configuration
 fileCopy SHOREWARE_DRIVE & ShoretelDVMRootDir & "\MySQLConfig\MySQL Server\" & MYSQL_CONFIG_FILE, backupDrive, backupDir & ShoretelDVMRootDir & "\MySQLConfig\MySQL Server\", True
 'back-up DVM data 
 Dim objFSO : Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
 If objFSO.FolderExists(rootDir) Then
  Dim objFolder, objSubfolders, doCopy
  Set objFolder = objFSO.GetFolder(rootDir)
  Set objSubfolders = objFolder.SubFolders
  For Each objFolder in objSubfolders
   doCopy = False
   select case objFolder.Name
    case FOLDER_NAME_CONFIG
     if(doConfig) Then
      doCopy = True
     End If
    case FOLDER_NAME_VM
     if(doVM) Then
      doCopy = True
     End If
    case FOLDER_NAME_CDR
     if(doCDR) Then
      doCopy = True
     End If
    case FOLDER_NAME_LOGS
     if(doLogs) Then
      doCopy = True
     End If
    case Else
     doCopy = True
   end select
   if(doCopy) Then
    folderCopy objFolder.Path, backupDrive, backupDir & "\" & BACKUP_SW_DIR & objFolder.Name, True
   End If
  Next
 End If
end sub
' SubProcedure to backup the data on the VMB switch
' Backs up the following:
' 1. \etc\ShoreTel.cfg
' 2. \etc\cfg.dat
' 3. \cf
' Input
'  backupDrive - (String) disk drive of backup destination
'  backupDir - (String) path of backup destination
'  vmbIP - (String) ip address of vmb switch
sub backupVMB(backupDrive, backupDir, vmbIP)
 Dim tarCF, copyCF, copyShorCFG, copyCfgDat, cleanUp
 Dim backUpPath : backUpPath = backupDrive & backupDir & "\" & BACKUP_VMB_DIR & "_" & vmbIP
 'create folder if doesn't exist
 Dim objFSO : Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
 If Not objFSO.FolderExists(backUpPath) Then
  buildPath backUpPath
 End If
 tarCF = """" & PLINK_CMD & """"  & " -pw " & VMB_PASSWD & " " &_
    VMB_USER & "@" & vmbIP &_
    " ""tar -czf " & VMB_CF_TAR_FOLDER & VMB_CF_TAR_FILE & " " & VMB_CF_SHORELINEDATA_DIR & """"
 copyCF = """" & PSCP_CMD & """" & " -pw " & VMB_PASSWD & " " &_
    VMB_USER & "@" & vmbIP & ":" & VMB_CF_TAR_FOLDER & VMB_CF_TAR_FILE &_
    " """ & backUpPath & """"
 copyShorCFG = """" & PSCP_CMD & """"  & " -pw " & VMB_PASSWD & " " &_
    VMB_USER & "@" & vmbIP & ":" & VMB_SHORE_CFG_FOLDER & VMB_SHORE_CFG_FILE &_
    " """ & backUpPath & """"
 copyCfgDat = """" & PSCP_CMD & """" & " -pw " & VMB_PASSWD & " " &_
    VMB_USER & "@" & vmbIP & ":" & VMB_CGF_DAT_FOLDER & VMB_CGF_DAT_FILE &_
    " """ & backUpPath & """"
 cleanUp = """" & PLINK_CMD & """" & " -pw " & VMB_PASSWD & " " &_
    VMB_USER & "@" & vmbIP &_
    " ""rm -f " & VMB_CF_TAR_FOLDER & VMB_CF_TAR_FILE & """"
 runCmd tarCF
 runCmd copyCF
 runCmd copyShorCFG
 runCmd copyCfgDat
 runCmd cleanUp
end sub
' SubProcedure to backup the data on the UCB switch
' Backs up the following:
' 1. \etc\ShoreTel.cfg
' 2. \etc\cfg.dat
' 3. \cf
' Input
'  backupDrive - (String) disk drive of backup destination
'  backupDir - (String) path of backup destination
'  ucbIP - (String) ip address of ucb switch
sub backupUCB(backupDrive, backupDir, ucbIP)
 Dim tarCF, copyCF, copyShorCFG, copyCfgDat, cleanUp
 Dim backUpPath : backUpPath = backupDrive & backupDir & "\" & BACKUP_UCB_DIR & "_" & ucbIP
 'create folder if doesn't exist
 Dim objFSO : Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
 If Not objFSO.FolderExists(backUpPath) Then
  buildPath backUpPath
 End If
 tarCF = """" & PLINK_CMD & """"  & " -pw " & UCB_PASSWD & " " &_
    UCB_USER & "@" & ucbIP &_
    " ""tar -czf " & UCB_CF_TAR_FOLDER & UCB_CF_TAR_FILE & " " & UCB_CF_SHORELINEDATA_DIR & """"
 copyCF = """" & PSCP_CMD & """" & " -pw " & UCB_PASSWD & " " &_
    UCB_USER & "@" & ucbIP & ":" & UCB_CF_TAR_FOLDER & UCB_CF_TAR_FILE &_
    " """ & backUpPath & """"
 copyShorCFG = """" & PSCP_CMD & """"  & " -pw " & UCB_PASSWD & " " &_
    UCB_USER & "@" & ucbIP & ":" & UCB_SHORE_CFG_FOLDER & UCB_SHORE_CFG_FILE &_
    " """ & backUpPath & """"
 copyCfgDat = """" & PSCP_CMD & """" & " -pw " & UCB_PASSWD & " " &_
    UCB_USER & "@" & ucbIP & ":" & UCB_CGF_DAT_FOLDER & UCB_CGF_DAT_FILE &_
    " """ & backUpPath & """"
 cleanUp = """" & PLINK_CMD & """" & " -pw " & UCB_PASSWD & " " &_
    UCB_USER & "@" & ucbIP &_
    " ""rm -f " & UCB_CF_TAR_FOLDER & UCB_CF_TAR_FILE & """"
 runCmd tarCF
 runCmd copyCF
 runCmd copyShorCFG
 runCmd copyCfgDat
 runCmd cleanUp
end sub
' SubProcedure to backup the data on the DVS switch
' Backs up the following:
' 1. \etc\ShoreTel.cfg
' 2. \etc\cfg.dat
' 3. \cf
' Input
'  backupDrive - (String) disk drive of backup destination
'  backupDir - (String) path of backup destination
'  dvsIP - (String) ip address of dvs switch
sub backupDVS(backupDrive, backupDir, dvsIP)
' Dim tarCF, copyCF, copyShorCFG, copyCfgDat, cleanUp
 Dim backUpPath : backUpPath = backupDrive & backupDir & "\" & BACKUP_DVS_DIR & "_" & dvsIP
 Dim backupcascmd
 'create folder if doesn't exist
 Dim objFSO : Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
 If Not objFSO.FolderExists(backUpPath) Then
  buildPath backUpPath
 End If
' tarCF = """" & PLINK_CMD & """"  & " -pw " & DVS_PASSWD & " " &_
'    DVS_USER & "@" & dvsIP &_
'    " ""tar -czf " & DVS_CF_TAR_FOLDER & DVS_CF_TAR_FILE & " " & DVS_CF_SHORELINEDATA_DIR & """"
' copyCF = """" & PSCP_CMD & """" & " -pw " & DVS_PASSWD & " " &_
'    DVS_USER & "@" & dvsIP & ":" & DVS_CF_TAR_FOLDER & DVS_CF_TAR_FILE &_
'    " """ & backUpPath & """"
' copyShorCFG = """" & PSCP_CMD & """"  & " -pw " & DVS_PASSWD & " " &_
'    DVS_USER & "@" & dvsIP & ":" & DVS_SHORE_CFG_FOLDER & DVS_SHORE_CFG_FILE &_
'    " """ & backUpPath & """"
' copyCfgDat = """" & PSCP_CMD & """" & " -pw " & DVS_PASSWD & " " &_
'    DVS_USER & "@" & dvsIP & ":" & DVS_CGF_DAT_FOLDER & DVS_CGF_DAT_FILE &_
'    " """ & backUpPath & """"
' cleanUp = """" & PLINK_CMD & """" & " -pw " & DVS_PASSWD & " " &_
'    DVS_USER & "@" & dvsIP &_
'    " ""rm -f " & DVS_CF_TAR_FOLDER & DVS_CF_TAR_FILE & """"
' backupcascmd = "rdiff-backup.exe -v7  --force --no-eas --remote-schema "plink -pw ShoreTel  %%s rdiff-backup --server" 
[email protected]::/rdiff/back1  c:\mywindowsdata > c:\out.txt 2>&1"
 backupcascmd = "rdiff-backup.exe -v7  --force --no-eas --remote-schema " &_
    """" & PLINK_CMD & " -pw " & DVS_PASSWD & " %%s rdiff-backup --server" & """" &_
    DVS_USER & "@" & dvsIP & "::" & DVS_CF_DIR & " " & """" & backUpPath & """"
 runCmd backupcascmd
' runCmd tarCF
' runCmd copyCF
' runCmd copyShorCFG
' runCmd copyCfgDat
' runCmd cleanUp
end sub
' SubProcedure to rotate the backup folder.  It will archive the
'  current backup folder based on the BACKUP_ARCHIVE_SIZE value.
' Input
'  backupDrive - (String) disk drive of backup destination
'  backupDir - (String) path of backup destination
sub rotateBackupFolder (backupDrive, backupDir)
 Dim objFSO, objFolder, newBackupFolderName
 Dim backupFolder : backupFolder = backupDrive & backupDir
 Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
 For i=BACKUP_ARCHIVE_SIZE to 0 Step -1
  If(i = 0) Then
   newBackupFolderName = backupFolder
  Else
   newBackupFolderName = backupFolder & i
  End If
  If objFSO.FolderExists(newBackupFolderName) Then
   Set objFolder = objFSO.GetFolder(newBackupFolderName)
   If(i = BACKUP_ARCHIVE_SIZE) Then
    objFolder.Delete True
   Else
    newBackupFolderName = backupFolder & i+1
    objFolder.Move newBackupFolderName
   End If
  End If
 Next
end sub
' SubProcedure to perform a folder copy.  Utilizes the Windows xcopy
'  command.  The xcopy switches used:
'    /E Copies directories and subdirectories, including empty ones.
'    /I If destination does not exist and copying more than one file,
'       assumes that destination must be a directory.
'    /K Copies attributes. Normal Xcopy will reset read-only
'       attributes.
'    /C Continues copying even if errors occur.
'    /Y Suppresses prompting to confirm you want to overwrite an
'       existing destination file.
' Input
'  src - (String) path of source folder
'  dstDrive - (String) disk drive of destination
'  dstFolder - (String) path of destination
'  force - (Boolean) if false, will prompt before overwriting
'          existing files
sub folderCopy (src, dstDrive, dstFolder, force)
 Dim objFSO
 Dim dst : dst = dstDrive & dstFolder
 Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
 If objFSO.FolderExists(src) Then
  Dim objFolder, objDrive
  'Check for available disk space first
  Set objFolder = objFSO.GetFolder(src)
  Set objDrive = objFSO.GetDrive(dstDrive)
  If isThereAvailableSpace(objDrive, objFolder.Size) Then
   Dim command : command = "xcopy """ & src & """ """ & dst & """ /E /I /K /C"
   If (force) Then
    command = command & " /Y"
   End If
   runCmd command
  Else
   writeToLog "ERROR! Insufficient Disk Space to copy folder: " & src
   WScript.Echo "Error! Insufficient Disk Space!"
  End If
 Else
  writeToLog "ERROR! Folder not found: " & src
  WScript.Echo "ERROR: Folder doesn't exist (" & src & ")"
 End If
end sub
' SubProcedure to perform a file copy. Utilizes the Windows xcopy
'  command. The xcopy switches used:
'    /I If destination does not exist and copying more than one file,
'       assumes that destination must be a directory.
'    /K Copies attributes.
'    /C Continues copying even if errors occur.
'    /Y Suppresses prompting to confirm you want to overwrite an
'       existing destination file.
' Input
'  src - (String) path of source file
'  dstDrive - (String) disk drive of destination
'  dstFile - (String) path of destination
'  force - (Boolean) if false, will prompt before overwriting
'          existing files
sub fileCopy (src, dstDrive, dstFile, force)
 Dim objFSO
 Dim dst : dst = dstDrive & dstFile
 Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
 If objFSO.FileExists(src) Then
  Dim objFile, objDrive
  'Check for available disk space first
  Set objFile = objFSO.GetFile(src)
  Set objDrive = objFSO.GetDrive(dstDrive)
  If isThereAvailableSpace(objDrive, objFile.Size) Then
   Dim command : command = "xcopy """ & src & """ """ & dst & """ /I /K /C"
   If (force) Then
    command = command & " /Y"
   End If
   runCmd command
  Else
   writeToLog "ERROR! Insufficient Disk Space to copy file: " & src
   WScript.Echo "Error! Insufficient Disk Space!"
  End If
 Else
  writeToLog "ERROR! File not found: " & src
  WScript.Echo "ERROR: File doesn't exist (" & src & ")"
 End If
end sub
' Function to check if there's sufficient disk space for the
' requested size
' Input
'  objDrive - (Object) the disk drive to check for space
'  spaceNeeded - (Integer) number of bytes being requested
' Return
'  (Boolean) if the requested space is available
function isThereAvailableSpace(objDrive, spaceNeeded)
 If (objDrive.AvailableSpace > spaceNeeded) Then
  isThereAvailableSpace = True
 Else
  isThereAvailableSpace = False
 End If
end function
' SubProcedure to write current version of Shoreware to a file
' Input
'  backupDrive - (String) disk drive of backup destination
'  backupDir - (String) path of backup destination
sub setDataVersion (backupDrive, backupDir, serverType)
 Dim version
 Dim fileName : fileName = backupDrive & backupDir & "\" & SW_VERSION_FILE
 If(serverType = SERVER_TYPE_HQ) Then
  version = objShell.RegRead(REG_HQ_VERSION)
 ElseIf(serverType = SERVER_TYPE_DVM) Then
  version = objShell.RegRead(REG_DVM_VERSION)
 ElseIf(serverType = SERVER_TYPE_VMB) Then
  'For now, VMB doesn't do any version checking
  Exit sub
 ElseIf(serverType = SERVER_TYPE_UCB) Then
  'For now, UCB doesn't do any version checking
  Exit sub
 ElseIf(serverType = SERVER_TYPE_DVS) Then
  'For now, DVS doesn't do any version checking
  Exit sub
 End If
 writeToLog "SW Data Version: " & version
 writeToFile fileName, 2, version
end sub
 </script>
</job>
Jared