Pergunta : VBS - Ajuda necessário para modificar o código

Olá!, ajuda do somone do

Could a modifiy o seguinte código de modo que:

1.) se a entrada de registro se realiza sobre 10 minutos (que está já no certificado) então que o certificado esperará 20 a verificação do minutes
then para a mesma entrada e se se realiza ainda sobre 10 minutos então provoca o seguinte código abaixo. Se a entrada de registro está abaixo 10 minutos então não fazem o objShell de anything.

Set = o
de CreateObject (“WScript.Shell”) varFile = Chr (34) & “C:\scripts\command.bat” & do
objShell.run “C:\Windows\System32\cmd.e” de Chr (34) o xe /c & objShell do varFile
= condição ajustados de Nothing

The segundo são “se a lima de registro não é encontrada” nós precisamos o certificado de esperar outra vez 20 minutos a seguir verificação pelo registro e se não encontramo-lo que então para executar o seguinte código (abaixo) se o registro existe então não fazer nada. objShell do

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


 class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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:
o id= " codeSnippet853714 " class= " do 
 ' * FORMATAR A DATA DE HOJE ESSA PARTE DO NOME DE ARQUIVO do REGISTRO 
strYear = ano (TodayDT) 
strMonth = mês (TodayDT) 
strDay = dia (TodayDT) 
 
se CInt (strMonth) < 10 então 
    strMonth = “0” & strMonth 
terminar se 
se CInt (strDay) < 10 então 
    strDay = “0” & strDay 
terminar se 
 
strToday = strYear & strMonth & strDay 
'wscript.echo strToday 
 
Ajustar o objFSo = o CreateObject (“Scripting.FileSystemObject”) 
pathname = “\ \ usuário \ parte \ REGISTRO para o restarts_” & strToday & o “.doc” 
se objFSo.FileExists (pathname) então 
objFile ajustado = objFSO.GetFile (pathname) 
strTime = objFile.DateLastModified 
 
        se isdate (strTime) então 
            Descolamento = cdate (strTime) 
            DTN = agora 
                   se datediff (“n”, descolamento, DTN) > 10 então 
                    wscript.echo “última entrada de registro sobre 10 minutos” 
                   mais  
                   wscript.echo “o sistema está ainda vivo” 
                  terminar se 
 
      terminar se       
 
mais 
         '* se a lima de registro não foi encontrada. 
          'wscript.echo de “lima registro não encontrada”
          'Emitir o acommmand ao sistema
		 Ajustar o objShell = o CreateObject (“WScript.Shell”)
		 varFile = Chr (34) & “C:\scripts\command.bat” & Chr (34)
		objShell.run “C:\Windows\System32\cmd.exe /c” & varFile
		Ajustar o objShell = nada
(...)
class= do

Resposta : VBS - Ajuda necessário para modificar o código

Estalar emitem sobre recebem - > emitir recebem grupos - > definem emitem recebem grupos (na parte inferior e pode ser que jrathi significado). Emitir recebem grupos a caixa de diálogo que abre. Emitir recebem o intervalo está dentro lá. … Thinkpads_User
Outras soluções  
 
programming4us programming4us