Solved

Need help modifying VB Script, need to remove WSH notify box prior to file move.

Posted on 2009-03-29
3
251 Views
Last Modified: 2012-05-06
I posted earlier for help on my script, but now im getting the WSH box prior to the file being moved, I would like for the script to run without any on-screen notification or someone having to click a button for it to proceed. Any help would be much appreciated. Thanks.
Force "wscript"

 

StartPath = "C:\DELL\"

DestPath = "\\Workstation-1\FTP FROM SERVER\"

 

Set objFSO = CreateObject("Scripting.FileSystemObject") 

Set objFolder = objFSO.GetFolder(StartPath)             

Set colfiles = objFolder.Files                           

 

LogFile = "c:\MovedScanFilesLog.txt"

 

Const ForReading = 1, ForWriting = 2, ForAppending = 8, CreateIfNotExist = -1

 

Set LogObjFSO = CreateObject("Scripting.FileSystemObject")

 

If LogObjFSO.FileExists(LogFile) Then

        Set LogObjFile = LogObjFSO.OpenTextFile(LogFile, ForAppending)

Else Set LogObjFile = LogObjFSO.CreateTextFile(LogFile)

        LogObjFile.Close

        Set LogObjFile = LogObjFSO.OpenTextFile(LogFile, ForWriting)

End If  

 

 

If colfiles.Count >0 Then 

        

        LogObjFile.WriteBlankLines(1)

        LogObjFile.WriteLine "The following files were moved on: " & Now

                

        For Each objFile In colfiles

                wscript.echo objFile.Name

                LogObjFile.WriteLine objFile.Name

                objFSO.MoveFile objFile,DestPath

        Next

Else 

 LogObjFile.WriteLine "There were no files to be moved on: " & Now 

End If

 

LogObjFile.Close

 

 

 

Sub Force(sScriptEng)

 If Lcase(Right(Wscript.FullName, 12)) = "\wscript.exe" Then

  If Instr(1, Wscript.FullName, sScriptEng, 1) = 0 Then

   'Need to switch to CSCRIPT

   CreateObject("Wscript.Shell").Run "cscript.exe " & Chr(34) & Wscript.ScriptFullName & Chr(34)

   Wscript.Quit

  End If

 Else

  If Instr(1, Wscript.FullName, sScriptEng, 1) = 0 Then

   'Need to switch to WSCRIPT

   CreateObject("Wscript.Shell").Run "wscript.exe " & Wscript.ScriptFullName

   Wscript.Quit

  End If

 End If

End Sub

Open in new window

WSH-Notify-Box.JPG
0
Comment
Question by:WiredPC
3 Comments
 
LVL 10

Accepted Solution

by:
Marcjev earned 500 total points
ID: 24014689
You do it yourselves in this line.
Remove it.

--> wscript.echo objFile.Name
0
 
LVL 76

Expert Comment

by:David Lee
ID: 24014700
Hi, WiredPC.

Delete line 30.
0
 

Author Closing Comment

by:WiredPC
ID: 31564107
PERFECT!!! I knew that (actually, Not!). Thanks for your help.
0

Featured Post

Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

Join & Write a Comment

Recently I finished a vbscript that I thought I'd share.  It uses a text file with a list of server names to loop through and get various status reports, then writes them all into an Excel file.  Originally it was put together for our Altiris server…
Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now