Use this:
==========================
Set wshshell = CreateObject("Wscript.Shel
Set fso = Wscript.CreateObject("Scri
Set b = fso.OpenTextFile("c:\WinWo
b.writeline "Started: " & now()
WordPath = """" & "C:\Archivos de programa\Microsoft Office\OFFICE11\winword.ex
WshShell.Run WordPath, 1,True
b.writeline "Closed: " & now()
b.close
Set fso = Nothing
set Wshshell = Nothing
==========================
Output will be like this:
--------------------------
Started: 7/1/2005 11:41:25 PM
Started: 7/1/2005 11:42:11 PM
Closed: 7/1/2005 11:42:22 PM
Started: 7/1/2005 11:43:52 PM
Closed: 7/1/2005 11:44:04 PM
Started: 7/1/2005 11:46:54 PM
Closed: 7/1/2005 11:46:56 PM
Main Topics
Browse All Topics





by: sramesh2kPosted on 2005-07-01 at 11:13:15ID: 14350069
Hi,
l") pting.File systemObje ct") rdLog.txt" , 8, True) & """"
Try this VBScript:
=============
Set wshshell = CreateObject("Wscript.Shel
Set fso = Wscript.CreateObject("Scri
Set b = fso.OpenTextFile("c:\WinWo
b.writeline "Started: " & now()
WordPath = """" & "G:\Program Files\Microsoft Office\Office\WINWORD.EXE"
WshShell.Run WordPath, 1,True
b.writeline "Closed: " & now()
Set fso = Nothing
set Wshshell = Nothing
=============
Copy the code to a Notepad and save as "launchword.vbs" and run it.
Note: Edit the Paths accordingly in the Code, using Notepad.