Show user progress of script or what is going on.

[neemi]

I have the below script which I have inherited, but know nothing about vbscripting! all it does is copies a server version of a db to the client machine.

The code is activated via another db so when that application has quit and inbetween copying the server db and opening it, the machine looks like it is not doing anything. I wanted to somehow display some sort of messages of the progress and an hourglass. etc.

Can someone please help on how to edit this code and what to do.

If WScript.Arguments.Count = 4 Then
	sCentralCopy = Wscript.Arguments.Item(0)
	sLocalFolder = Wscript.Arguments.Item(1)
	sAppName = Wscript.Arguments.Item(2)
	sAppVersion = Wscript.Arguments.Item(3)
Else
	MsgBox "Incorrect number of Arguments - Upgrade failed"
	WScript.QUIT(0)
End If

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(sCentralCopy & sAppName & ".mdb") Then
    objFSO.CopyFile sCentralCopy & sAppName & ".mdb", sLocalFolder, True
    Call OpenAccess
Else
    Wscript.Echo "Central copy file does not exist."
    WScript.QUIT(0)
End If


Function OpenAccess()
	Select Case sAppVersion
		Case 9
				Set AcApp = CreateObject("Access.Application.9")
		Case 10
				Set AcApp = CreateObject("Access.Application.10")
		Case 11
				Set AcApp = CreateObject("Access.Application.11") 
		Case 12
				Set AcApp = CreateObject("Access.Application.12") 
	End Select
    AcApp.AutomationSecurity = 1
    AcApp.Visible = True
    AcApp.OpenCurrentDatabase sLocalFolder & "\" & sAppName & ".mdb"
    AcApp.UserControl = True
    Set AcApp = Nothing
End Function

Cheers
neemi

 

[dm4ever]

Here is one place you can look.

http://www.microsoft.com/technet/scriptcenter/scripts/misc/progress/default.mspx

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[mrmovie]

you script should be so fast that progress reports are pointless

 

[markdmac]

http://www.tek-tips.com/viewthread.cfm?qid=1196550&page=1

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.