>> My vbs launch an application:
>> Wscript.Echo "Application is running."
>> allwaySinc = "syncappw.exe -s  -m -lf ""c:\sinc_logs"" -e"
>> objShell.Run allwaySinc, 2, True

>> I would like write something while the app is running because it can take
>> several minutes. something like woulg be great!
>> ..........................................................................
>> ..........................................................................
>> .....................................................

>> Thanks in advance!
>> I301199

> Assuming the string of periods are to be displayed in a console window
> (at the command prompt), then something like this should do what you
> want when executed under the cscript.exe host ...

> Const HIDDEN_WINDOW = 0

> allwaySinc = "syncappw.exe -s  -m -lf ""c:\sinc_logs"" -e"

> Set oWMISrvc = GetObject("winmgmts:" _
>    & "{impersonationLevel=impersonate}!\\.\root\cimv2")
> Set oConfig = oWMISrvc.Get("Win32_ProcessStartup").SpawnInstance_
> oConfig.ShowWindow = HIDDEN_WINDOW
> Set oProcess = GetObject("winmgmts:{impersonationLevel=impersonate}!"
> _
>    & "\\.\root\cimv2:Win32_Process")
> errReturn = oProcess.Create(allwaySinc, null, oConfig, iProcessID)

> n = 0
> if errReturn = 0 then
>  do While IsRunning(iProcessID, oWMISrvc)
>    wsh.sleep 100
>    n = n + 1
>    if (n Mod 10) = 0 then wsh.StdOut.write "."
>    if n = 72 then n = 0 : wsh.echo
>    loop
> end if

> Function IsRunning(ProcessID, oWMISrvc) ' boolean
> Dim sQry
>  sQry = "SELECT * FROM Win32_Process WHERE ProcessID = '" _
>       & ProcessID & "'"
>  IsRunning = (oWMISrvc.ExecQuery(sqry).count > 0)
> end function

> (Watch for line wrapping in posting.)
> _____________________
> Tom Lavedas