API tools faq
paste
Advertisement
Guest User

Fail script

a guest
Apr 27th, 2017
96
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 7.45 KB | None | 0 0
raw download clone embed print report
  1. Sub main
  2.    
  3.     if xsh.Session.connected then
  4.        
  5.         ocorrencia = xsh.Dialog.Prompt ("Numero da Ocorrência:", "JM ou TT?", "JM12345 ou NA34567890 (até 10 DÍGITOS)", False)
  6.         ocorrencia = UCase(ocorrencia)
  7.         ocorrencia = Left(ocorrencia,10)
  8.         if ocorrencia = "" then
  9.             cancel = xsh.Dialog.MessageBox ("Operação Cancelada!", "Operação Cancelada",0)
  10.             exit sub
  11.         end if
  12.        
  13.         userid = xsh.Dialog.Prompt ("Nome do Usuário:", "USERID", "exatamente 6 DIGITOS", False)
  14.         userid = UCase(userid)
  15.         userid = Left(userid,6)
  16.         if userid = "" then
  17.             cancel = xsh.Dialog.MessageBox ("Operação Cancelada!", "Operação Cancelada",0)
  18.             exit sub
  19.         end if    
  20.        
  21.        
  22.         pwd = xsh.Dialog.Prompt ("Defina um Password:", "PASSWORD", "de 6 a 16 DÍGITOS", False)
  23.         pwd = UCase(pwd)
  24.         pwd = Left(pwd,16)
  25.        
  26.         if pwd = "" then
  27.             cancel = xsh.Dialog.MessageBox("Operação Cancelada!", "Operação Cancelada",0)
  28.             exit sub
  29.         end if
  30.        
  31.        
  32. 'inicio da funcao data
  33.         mes = Month(now)
  34.         if mes < 10 Then
  35.             mes = "0"&mes
  36.         end if
  37.        
  38.         dia = Day(now)
  39.         dia = dia + 2
  40.         if dia < 10 Then
  41.             dia = "0"&dia
  42.         end if
  43.        
  44.         dataatualmaisdois = Year(now) & "-" & mes & "-" & dia
  45. 'fim da funcao data
  46.        
  47.         datacalend = xsh.Dialog.Prompt ("Defina a data de exclusão:", "Command Calendar", dataatualmaisdois, False)
  48.         if datacalend = "" then
  49.             cancel = xsh.Dialog.MessageBox ("Operação Cancelada!", "Operação Cancelada",0)
  50.             exit sub
  51.         end if    
  52.        
  53.         HORAcalend = xsh.Dialog.Prompt ("Defina a HORA de exclusão:", "Command Calendar", "12-00", False)
  54.         if horacalend = "" then
  55.             cancel = xsh.Dialog.MessageBox ("Operação Cancelada!", "Operação Cancelada",0)
  56.             exit sub
  57.         end if                    
  58.        
  59.        
  60.         confirma = xsh.Dialog.MessageBox ("Confirma os Dados?" & VbCr & "Profile: " & ocorrencia & VbCr & "Usuário: " & userid & VbCr & "Senha: " & pwd & VbCr & "Data de Exclusão: " & datacalend & " - " & horacalend, "Confirma Dados", 4 )
  61.         if confirma = 7 Then
  62.             cancel = xsh.Dialog.MessageBox ("Operação Cancelada!", "Operação Cancelada", 0)
  63.             Exit Sub
  64.         Else
  65.            
  66.            
  67.             xsh.screen.send VbCr
  68.             xsh.Screen.WaitForString "<"
  69.            
  70. 'criando profile...
  71.            
  72.             xsh.Screen.send("ZIAA:" & ocorrencia & ":ALL=251:PARAPW=NO,ACCESS=COM,VTIME=60,::FTP=W:;" & VbCr)
  73.             resultprofile = xsh.Screen.WaitForStrings (Array("COMMAND EXECUTED", "ERROR", "CONFIRM COMMAND EXECUTION:"),5000)
  74.            
  75.             if resultprofile = 1 then
  76.                 xsh.Screen.send("ZIAA:" & ocorrencia & ":I=248;" & VbCr)
  77.                 xsh.Screen.send("Y" & VbCr)
  78.                 xsh.Screen.WaitForString "<"
  79.             end if
  80.            
  81.             if resultprofile = 2 then
  82.                 xsh.screen.Send VbCr
  83.                 xsh.Screen.send("ZIAR:" & ocorrencia & ";" & VbCr)
  84.                 xsh.Screen.send("Y" & VbCr)
  85.                 profdialog = xsh.Dialog.MessageBox  ("Defeito! Reveja o nome do PROFILE.", "Defeito!!",0)
  86.                 xsh.Screen.send("ZIAI:PROFILE=ALL:LIM;" & VbCr)
  87.                 exit sub
  88.             end if
  89.            
  90.             if resultprofile = 3 then
  91.                
  92.                 profexist = xsh.Dialog.MessageBox ("Defeito! PROFILE já existe!" & VbCr & "Deseja criar outro usuário neste mesmo profile?", "Criar usuário em profile já existente?", 4 )
  93.                 if profexist = 7 Then
  94.                     xsh.Screen.send("N" & VbCr)
  95.                     xsh.Screen.send("ZIAI:PROFILE=ALL:LIM;" & VbCr)
  96.                     exit sub
  97.                 else
  98.                     xsh.Screen.send("N" & VbCr)
  99.                 end if
  100.             end if
  101.            
  102.            
  103. 'criando usuario (varios ou somente um)
  104.             multiplousr = 1
  105.  
  106.             Do While multiplousr > 0
  107.            
  108.                 xsh.Screen.send("ZIAH:" & userid & ":" & ocorrencia & ":;" & VbCr)
  109.                 resultuserid = xsh.Screen.WaitForStrings(Array("NEW PASSWORD:","ERROR","USER ID ALREADY EXISTS"),500)
  110.                
  111.                 if resultuserid = 1 then
  112.                     xsh.Screen.send pwd & VbCr
  113.                     xsh.Screen.send pwd & VbCr                     
  114.                     xsh.Screen.WaitForString "<"
  115.                
  116.                 elseif resultuserid = 2 then
  117.                     xsh.screen.Send VbCr
  118.                     xsh.Screen.send("ZIAR:" & ocorrencia & ";" & VbCr)
  119.                     xsh.Screen.send("Y" & VbCr)
  120.                     defeitouser = xsh.Dialog.MessageBox  ("Defeito! Reveja caracteres no nome do USUÁRIO.", "Defeito!!!", 0)
  121.                     xsh.Screen.send("ZIAI:PROFILE=ALL:LIM;" & VbCr)
  122.                     exit sub
  123.                
  124.                 elseif resultuserid = 3 then
  125.                     defeitouser2 = xsh.Dialog.MessageBox  ("Defeito! USUÁRIO já existe! Tente de novo...", "Defeito!!!", 0)
  126.                     xsh.Screen.send("ZIAR:" & ocorrencia & ";" & VbCr)
  127.                     xsh.Screen.send("Y" & VbCr)
  128.                     xsh.Screen.send("ZIAI:PROFILE=ALL:LIM;" & VbCr)
  129.                     exit sub                   
  130.                 else
  131.                     xsh.Dialog.MsgBox("Defeito. resultuserid <> 1, 2, 3 ")                 
  132.                 end if
  133.                
  134.                
  135.                
  136.                
  137. 'criando command calendar para deletar o usuario
  138.                 xsh.Screen.send("ZICI:IAD,::DATE=" & datacalend & ",TIME=" & horacalend & ",:;" & VbCr)
  139.                 xsh.Screen.send(userid & ":;" & VbCr)
  140.                 commandcalendar = 1
  141.                 dataerrada = xsh.Screen.WaitForStrings (Array("EXECUTION TIME HAS EXPIRED", "COMMAND ADDED TO CALENDAR", "NOT ENOUGH TIME LEFT TO DESIRED EXECUTION TIME"),5000)
  142.                
  143.                 if dataerrada <> 2 Then
  144.                     defeitocalend = xsh.Dialog.MessageBox  ("DATA ERRADA!! Command Calendar não criado. Crie manualmente...", "Defeito!!!",0)
  145.                     commandcalendar = 0
  146.                 end if
  147.                
  148. 'perguntando se quer criar outro usuario
  149.                 informavendor = xsh.Dialog.MessageBox  ("Não esqueça de informar ao vendor:" & VbCr & VbCr & "USERID:                               " & userid & VbCr & "PASSWORD:             " & pwd & VbCr, "INFORME AO VENDOR...",0)
  150.                 outrousr = xsh.Dialog.MessageBox ("PROFILE e USUÁRIO criados com sucesso!!!" & VbCr & "DESEJA CRIAR OUTRO??", "Criar outro usuário?", 4)
  151. 'se nao...
  152.                 if outrousr = 7 then
  153.                     multiplousr = 0
  154.                    
  155. 'se sim...
  156.                 else
  157.                     userid = xsh.Dialog.Prompt ("Nome do Usuário:", "USERID", "exatamente 6 DIGITOS", False)
  158.                     userid = UCase(userid)
  159.                     userid = Left(userid,6)
  160.                     if userid = "" then
  161.                         cancel = xsh.Dialog.MessageBox ("Operação Cancelada!", "Operação Cancelada", 0 )
  162.                         multiplousr = 0
  163.                     end if
  164.                    
  165.                     pwd = xsh.Dialog.Prompt ("Defina um Password:", "PASSWORD", "de 6 a 16 DÍGITOS", False)
  166.                     pwd = UCase(pwd)
  167.                     pwd = Left(pwd,16)
  168.                     if pwd = "" then
  169.                         cancel = xsh.Dialog.MessageBox ("Operação Cancelada!", "Operação Cancelada", 0)
  170.                         multiplousr = 0
  171.                     end if
  172.                    
  173.                     confirma = xsh.Dialog.MessageBox ("Confirma os Dados?" & VbCr & "Profile: " & ocorrencia & VbCr & "Usuário: " & userid & VbCr & "Senha: " & pwd, "Confirma Dados", 4)
  174.                     if confirma = 7 Then
  175.                         cancel = xsh.Dialog.MessageBox ("Operação Cancelada!", "Operação Cancelada", 0)
  176.                         multiplousr = 0
  177.                     end if
  178.                    
  179.                 end if
  180.             Loop
  181.            
  182.            
  183. 'ajustando hora de delecao do perfil para 5 minutos apos a delecao do usuario, pra nao dar zica
  184. 'e em seguida, criar command calendar para deletar o perfil
  185.            
  186.             if commandcalendar = 1 Then
  187.                 mmcalend = Right(horacalend,2)
  188.                 hhcalend = Left(horacalend,2)
  189.                 mmdelprof = mmcalend + 05
  190.                 if mmdelprof >= 59 then
  191.                     mmdelprof = "5"
  192.                     hhcalend = hhcalend + 1
  193.                 end if
  194.                 if mmdelprof < 10 then
  195.                     mmdelprof = "0" & mmdelprof
  196.                 end if
  197.                 timedelprof = hhcalend & "-" & mmdelprof
  198.                 xsh.Screen.send("ZICI:IAR,::DATE=" & datacalend & ",TIME=" & timedelprof & ",:;" & VbCr)
  199.                 xsh.Screen.send(ocorrencia & ":;" & VbCr)
  200.                 xsh.Screen.WaitForString "COMMAND ADDED TO CALENDAR"
  201.             end if
  202.            
  203. 'prints finais
  204.             xsh.Screen.send("ZIAI:PROFILE=" & ocorrencia & ";" & VbCr)
  205.             xsh.Screen.send("ZICL:DATE=" & datacalend & ":;" & VbCr)
  206.            
  207.         end if
  208.     else
  209.         naoconectado = xsh.Dialog.MessageBox ("Conecte a um elemento antes de rodar o script", "Defeito!!!", 0)
  210.        
  211.     end if
  212. end sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!