yo te ayudo, mira
public Stext,SPtext,pre_pos,Cliente,PRE,POS,IPMO,pestatus,nButtons,objTab,ip,ip2,PPFIL,PBW,PID,CPFIL,CBW,CID,PFIL,BW,ID,intfpe,LOG,intcpe,VRF,maccpe,desv
public objExcel, objWorkbook, excelcounter,statusssh,statustelnet,TSER,szSession,SHPEI,SHPEO,SHCPE,CIR,CPEPI,CPEPO,celp,LOGF,intlan,ipnat,macpe,status
Const ForAppending = 8
'Directorio************
dim CurrentDirectory,dir,nstring, n
crt.Screen.Send vbCr
CurrentDirectory = crt.ScriptFullName
dir = Split(CurrentDirectory,"\10.237.60.20\DIndustria\mmiguel\My Documents\cdsegura1.4")
nstring = arrLength(dir)
nstring = nstring - 1
n=0
Do While n < nstring
path = path & “\10.237.60.20\DIndustria\mmiguel\My Documents\cdsegura1.4” + dir(n)
n = n + 1
loop
path = Mid(path, 2, Len(path))
path = path & “\10.237.60.20\DIndustria\mmiguel\My Documents\cdsegura1.4”
'************************************************************************
Sub Main
Dim eval
Dim result
Dim resultado, Inicio
Dim username,nombrear
Dim passw
Dim enablepass
Dim universo, cosmos,mundo
dim enaconfirma,mapa
dim myred,uniram, fram
crt.Screen.Send vbCr
Inicio = crt.screen.WaitForStrings("#","$")
if Inicio = 1 then
msgbox “Debes de estar en el servidor $” +chr(13)+ "para ejecutar este Script ",0,“TOP”
exit sub
Else
’ Set objShell = CreateObject(“Wscript.Shell”) 'para probar si esta abierto excel
’ Set objWord = CreateObject(“Word.Application”)
’ Set colTasks = objWord.Tasks
u = 0
’ For Each objTask in colTasks
’ strName = LCase(objTask.Name)
' If Instr(strName,"eqps") Then
'u = 1
'End If
'Next
'If u = 1 Then
' msgbox "Cierre el archivo eqps.xls",0,"CNOC"
' objWord.Quit
' exit sub
'End If
If u = 0 Then
' objWord.Quit
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(path & "eqps.xls")
excelcounter= 2
crt.Screen.Synchronous = True
'-**-------------------------------------------