Merhabalar Alltaki scripte ElseIF then kısmında hata mı var ? yardımcı olabilirmisiniz,
iyi akşamlar.



#$language = "VBScript"
#$interface = "1.0"
Option Explicit

Sub Main()

Dim telno, lokas, perm

'crt.Screen.Synchronous = True

telno = crt.Dialog.Prompt(" Tel No: (Başında 0 olmadan 10 haneli) ", "Tel No:")
lokas = crt.Dialog.Prompt(" lokas: ", "", "x/xxxx")
perm = crt.Dialog.Prompt(" perm: ", "", "x")

' If telno = "" Or lokas ="" Then
' crt.Dialog.MessageBox ("Tel No veya lokasyon no girmediniz!!!, Script durduruldu.")
Exit Sub
' End If

If Left(Trim(telno),3) ="322" Then

crt.Screen.Send VbCr
crt.Screen.Send "new $ " & Trim(telno) &" ibn subs 0 " & Trim(perm) &" SSL0VMG1 BVMG/001/" & Trim(lokas) & " +" & VbCr
crt.sleep 500
crt.Screen.Send "SIP_DATA SIP_PACKAGE silver SIP_URI adn" & Right(Trim(telno), 7) & "@adana.ttgcentrex.com +" & VbCr
crt.sleep 500
crt.Screen.Send "SIP_CLIENT_TYPE pcclient SIP_LOCATION vpn_client +" & VbCr
crt.sleep 500
crt.Screen.Send "SIP_PASSWD " & Right(Trim(telno), 4) & " $ dpl Y 10 DGT cept mog mdi1 ddn $" & VbCr
crt.Screen.Send VbCr

ElseIf Left(Trim(telno),3)="324" Then

crt.Screen.Send VbCr
crt.Screen.Send "new $ " & Trim(telno) &" ibn subs 0 " & Trim(perm) &" SSL0VMG1 BVMG/001/" & Trim(lokas) & " +" & VbCr
crt.sleep 500
crt.Screen.Send "SIP_DATA SIP_PACKAGE silver SIP_URI mer" & Right(Trim(telno), 7) & "@mersin.ttgcentrex.com +" & VbCr
crt.sleep 500
crt.Screen.Send "SIP_CLIENT_TYPE pcclient SIP_LOCATION vpn_client +" & VbCr
crt.sleep 500
crt.Screen.Send "SIP_PASSWD " & Right(Trim(telno), 4) & " $ dpl Y 10 DGT cept mog mdi1 ddn $" & VbCr
crt.Screen.Send VbCr

End If





' new $ 3222902337 ibn subs 0 0 SSL0VMG1 BVMG/001/8/0821 +
' SIP_DATA SIP_PACKAGE silver SIP_URI [email protected] +
' SIP_CLIENT_TYPE pcclient SIP_LOCATION vpn_client +
' SIP_PASSWD 2337 $ dpl Y 10 DGT cept mog mdi1 ddn $


End Sub
________________________________________
__________________