Cuestión : VBS - Ayuda necesaria para modificar el código

Hola, ayuda del somone del

Could a modifiy el código siguiente de modo que:

1.) si la entrada de registro es durante 10 minutos (que está ya en la escritura) entonces que la escritura esperará 20 la comprobación para del minutes
then la misma entrada y si sigue siendo durante 10 minutos entonces acciona el código siguiente abajo. Si la entrada de registro está abajo 10 minutos entonces no hacen el objShell = el
de anything.

Set de CreateObject (“WScript.Shell”) varFile = Chr (34) y “C:\scripts\command.bat” y el xe /c del
objShell.run “C:\Windows\System32\cmd.e” de Chr (34) y objShell del varFile
= condición determinados de Nothing

The segundo son “si el fichero de diario no se encuentra” necesitamos la escritura esperar 20 minutos después el cheque otra vez el registro y si no encontramos que entonces ejecutar el código siguiente (abajo) si existe el registro entonces no hacer nada. objShell del

Set =
de CreateObject (“WScript.Shell”) varFile = Chr (34) y “C:\scripts\command.bat” y xe /c del
objShell.run “C:\Windows\System32\cmd.e” de Chr (34) y objShell determinado del varFile
= Nothing


 class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
el id= " codeSnippet853714 " class= " del 
 ' * DAR FORMATO A LA FECHA DE HOY ESA PARTE DEL NOMBRE DE FICHERO del REGISTRO 
strYear = año (TodayDT) 
strMonth = mes (TodayDT) 
strDay = día (TodayDT) 
 
si CInt (strMonth) < 10 entonces 
    strMonth = “0” y strMonth 
terminar si 
si CInt (strDay) < 10 entonces 
    strDay = “0” y strDay 
terminar si 
 
strToday = strYear y strMonth y strDay 
'wscript.echo strToday 
 
Fijar el objFSo = CreateObject (“Scripting.FileSystemObject”) 
cadena de caracteres = “\ \ servidor \ parte \ REGISTRO para el restarts_” y strToday y “.doc” 
si objFSo.FileExists (cadena de caracteres) entonces 
objFile determinado = objFSO.GetFile (cadena de caracteres) 
strTime = objFile.DateLastModified 
 
        si isdate (strTime) entonces 
            Despegue = cdate (strTime) 
            DTN = ahora 
                   si datediff (“n”, despegue, DTN) > 10 entonces 
                    wscript.echo “entrada de registro pasada durante 10 minutos” 
                     
                   wscript.echo “el sistema es todavía vivo” 
                  terminar si 
 
      terminar si       
 
 
         '* si el fichero de diario no fue encontrado. 
          'wscript.echo “fichero de diario no encontrado”
          'Enviar el acommmand al sistema
		 Fijar el objShell = CreateObject (“WScript.Shell”)
		 varFile = Chr (34) y “C:\scripts\command.bat” y Chr (34)
		objShell.run “C:\Windows\System32\cmd.exe /c” y varFile
		Fijar el objShell = nada
(...)
class= del

Respuesta : VBS - Ayuda necesaria para modificar el código

Chascar encendido envían reciben - > enviar reciben a grupos - > definen envían reciben a grupos (en la parte inferior y puede ser lo que jrathi significado). Enviar reciben a grupos que la caja de diálogo se abre. Enviar reciben intervalo está adentro allí. … Thinkpads_User
Otras soluciones  
 
programming4us programming4us