👨🏻‍🎤 🤟🏼 🧝🏾 एक दिन खोने के लिए बेहतर है, और फिर आप जहां चाहें और जितना चाहें टेलीपोर्ट करें ☁️ 🛥️ 👵🏾

क्या आप अपने काम में SecureCRT का उपयोग करते हैं? दिन में कई बार आपको आईपी पते के एक या कई स्थानों पर विभिन्न उपकरणों पर जाना पड़ता है जो केवल एक या दो अंतिम ओकटेट्स में भिन्न होते हैं और उन पर विशिष्ट कार्य करते हैं? क्या आपके नेटवर्क पर एक या दो संयोजनों तक पहुंचने वाले उपकरणों के लिए लॉगिन पासवर्ड है? आपने बहुत सोचा कि यह कैसे सुनिश्चित किया जाए कि यह सब अपने दम पर किया गया था, लेकिन पूछने से डरते थे? या बस संक्षेप में पता लगाना चाहते हैं कि सिक्योरसीआरटी पर सिद्धांत रूप में क्या बनाया जा सकता है? और इसलिए, SecureCRT + VBScript या "एक दिनचर्या में रचनात्मकता।" बिल्ली के लिए आपका स्वागत है।

मैं कौन हूं और क्या कर रहा हूं

मैं एक प्रदाता कंपनी में एक कनिष्ठ हूं, मेरी जिम्मेदारियों में दूसरी पंक्ति के हेल्पडेस्क और कई नियमित कार्य शामिल हैं जैसे पूरे नेटवर्क के माध्यम से पोर्ट से पोर्ट के लिए वेलन को अग्रेषित करना, या ग्राहक के अंतिम बंदरगाह के लिए अन्य सेवाएं प्रदान करने के लिए, नेटवर्क के लिए एकत्रीकरण और वितरण ग्रंथियों के विभिन्न टुकड़े सेट करना। लेकिन जो भी नए चैनल आयोजित करने या ग्रंथियों को कॉन्फ़िगर करने के नियमित कार्य हैं, वे सबसे असुविधाजनक और विचलित करने वाली दिनचर्या हैं, ये हेल्पडेस्क के संपर्क हैं, जो हमेशा पोर्ट की स्थिति, उस पर खसखस की उपस्थिति और आवश्यक वलान की संख्या, त्रुटियों की संख्या और यूपी के इतिहास को देखकर उबलते हैं। / दुर्लभ मामलों में उपकरण लॉग से नीचे।

यह सब कैसे शुरू हुआ

मेरे रोजगार के क्षण से जितना अधिक समय बीत चुका है, उतनी ही तेजी से नियमित कार्य मेरे द्वारा हल किए गए और जितना उन्होंने मुझे परेशान किया। और एक निश्चित बिंदु पर, मैंने अपने जीवन को आसान बनाने और एल्गोरिदम की दिनचर्या को फेंकने की कोशिश करने का फैसला किया। नतीजतन, लगभग आधे साल के अशिक्षित काम के दौरान, मुझे कई स्क्रिप्ट मिलीं जिन्हें मैं आपके साथ साझा करना चाहूंगा। इसके अलावा, मैंने हैबर और स्टैक ओवरफ्लो की खोज की और इस निष्कर्ष पर पहुंचा कि एक समान विषय अभी तक कहीं भी नहीं उठाया गया है। यह देखते हुए कि मेरा परिचालन समय मुझे कितना लाभ देता है, मुझे प्रतिदिन (हेल्पडेस्क से प्रति मिनट एक से 15 मिनट तक की बचत होती है), यह मुझे बहुत अजीब लगता था।

जो मैं बांटना चाहता हूं

यह पोस्ट मेरे नवीनतम निर्माण के बारे में होगी यह जितना संभव हो उतना सक्षम रूप से लिखा गया है और एक आंख से आसान डोपिलिवानिया के साथ, अपनी आवश्यकताओं को पूरा करने के लिए समझना और बदलना आसान है। तथ्य यह है कि, एक प्रोग्रामर नहीं होने के नाते, मैंने पूरी तरह से "अगर यह काम किया है" के सिद्धांत पर ही सब कुछ लिखा है और केवल समय के साथ जैसा मैंने लिखा है, क्या मैंने कम से कम थोड़ा सा सही ढंग से प्रोग्राम लिखने के लिए सीखा (या "सीखना" शुरू करना)।

नौकरी का विवरण:

इस स्क्रिप्ट में आपको उपकरण के आईपी पते का हिस्सा दर्ज करने की आवश्यकता होती है (उदाहरण के लिए, मेरे नेटवर्क पर, सभी उपकरणों का पता 10.150.XX.XXX या 172.100.100.XXX) और एक पोर्ट है।

अगर आप आईपी पते के सामने "-" में सिक्योर आर्ट में एक नया टैब खोलते हैं या करंट का उपयोग करते हैं। यदि आप "+" डालते हैं, तो आपको केवल आईपी पते के अंतिम ऑक्टेट में प्रवेश करना होगा, एक नया टैब खुल जाएगा, जो मैन्युअल रूप से प्राधिकरण की प्रतीक्षा करेगा।

स्क्रिप्ट में दो प्राधिकरण संयोजन Login1 Pass1 और Login2 Pass2 हैं। उनका उपयोग करना, वह सिद्धांत के अनुसार उपकरण पर अधिकृत है यदि पहला काम नहीं करता है - मैं दूसरे की कोशिश करूंगा।

प्राधिकरण के बाद, वह डिवाइस का नाम पढ़ता है, उपयोगकर्ता द्वारा शुरू की गई आईपी पते को इसकी शुरुआत में जोड़ता है, और टैब का शीर्षक परिणामी विवरण में बदल देता है।

इस प्रकार, यह याद रखने की आवश्यकता नहीं है कि एक दर्जन से अधिक खुले टैब के पीछे क्या है, क्योंकि अब न केवल एक आईपी पता है, बल्कि एक उपकरण का नाम भी है।

यदि उपयोगकर्ता एक पोर्ट नंबर दर्ज करता है, तो स्क्रिप्ट यह पता लगाएगी कि यह किस डिवाइस पर स्थित है

इसके पास क्या समय है (यह बहुत अच्छा है कि सभी निर्माताओं के पास यह कमांड है। प्रदर्शन संस्करण)

और फिर, विक्रेता से शुरू करके, वांछित पोर्ट के कॉन्फ़िगरेशन को दिखाने के लिए इसे ज्ञात आदेशों को लागू करता है

उसकी हालत

खसखस के पते

यदि विवरण मौजूद है - टैब के नाम को इसमें बदल देता है।

अंत में, वह अपने द्वारा सीखी गई हर चीज के साथ एक संदेश प्रदर्शित करता है।

लिपि और उपकरण के प्रकार जिन पर स्क्रिप्ट काम करती है: | जेडटीई | एचपी | क्यूटेक | एच 3 सी | क्विडवे-ईए | क्विडवे-ईआई |

अपडेट के बारे में

चूंकि मेरे सहकर्मी भी मेरी रचना का उपयोग करते हैं, और मैं अक्सर इसे जोड़ता या सुधारता हूं, मैंने एक छोटा अपडेट मॉड्यूल भी लिखा, जो इस स्क्रिप्ट के नए संस्करण के बगल में एक सुलभ नेटवर्क स्थान पर होना चाहिए। अपडेट मॉड्यूल में स्क्रिप्ट के हेडर में अपडेट मॉड्यूल का पथ लिखा गया है। वही पथ नए संस्करण का पथ है।
यदि आप IP पता फ़ील्ड में अद्यतन कमांड दर्ज करते हैं तो अद्यतन हो रहा है। यदि आप अपलोड करते हैं, तो नया संस्करण स्थानीय कंप्यूटर से सर्वर पर भेज दिया जाएगा।

लगभग अंत

लेखन की प्रक्रिया में, मुझे कई असहनीय कठिनाइयों का सामना करना पड़ा, इसलिए यदि आपके कोई प्रश्न हैं, तो पूछें।
इसके अलावा, दोनों लिपियों का वास्तविक कोड। कृपया उपयोग करें, अपनी आवश्यकताओं को संशोधित करें। शायद किसी के लिए मेरा अनुभव अपनी दिनचर्या को स्वचालित करने के लिए एक प्रारंभिक आवेग के रूप में काम करेगा। कोई व्यक्ति सीबीसीआरटी में वीबीएसस्क्रिप्ट का उपयोग करने के उदाहरणों को देखेगा, कोई एफएक्यू बढ़ाएगा, कोड में नमी को ध्यान में रखेगा। किसी भी मामले में, मुझे यकीन है कि विषय कई लोगों के लिए उपयोगी होगा।
मैं आपको नोटपैड ++ में स्क्रिप्ट को संपादित करने की सलाह देता हूं यह ऐसे स्वरूपण का उपयोग करता है जो नोटपैड ++ को व्यक्तिगत मॉड्यूल (छिपी हुई रेखाओं) को ढंकने की अनुमति देता है ताकि कोड के माध्यम से नेविगेशन को सुविधाजनक बनाया जा सके। इस समय अनावश्यक मॉड्यूल दो लाइनों तक ढह सकते हैं - शुरुआत और अंत।
मैं वर्ष का प्रोग्रामर होने का दिखावा नहीं करता, इसलिए नम और मंदी की चाल (सुंदर फैसले) के लिए, कृपया किक न करें, लेकिन मुझे भविष्य के लिए संकेत करने में खुशी होगी।
कोड SecureCRT ver 7.0.1 के लिए प्रासंगिक है

पहली स्क्रिप्ट की लगभग 300 लाइनें:

लिपि

#$language = "VBScript" #$interface = "1.0" crt.Screen.Synchronous = True crt.screen.IgnoreEscape = True scr_ver = "0,55" Developer = False UpdateEngine = "\\SERVER\Script\Script_Update.vbs" ' Change Log: ' v0.1 The very beggining. Here where it starts. ' v0.2 16.01.14   Login2  ZTE ' v0.3 16.01.14       ' v0.4 20.01.14       Description '---v0.5 22.01.14   ,  IP  Caption . ' v0.51 24.01.14  +IP -    . ' v0.53 24.01.14     . ' v0.54 24.01.14        "-" ' v0.55 24.01.14     Dim ip 'IP   'ip = "10.150.127.245" 'H3C S3100-8TP-EI  Description        'ip = "10.150.226.246" 'H3C S3100-26TP-EI 1/0/1 'ip = "10.150.210.26" 'Quidway S2016TP-EA 'ip = "10.150.119.69" '[Quidway S2309TP-EI] 0/0/1 ---------------------------------------------- 'ip = "10.150.218.16" '[Quidway S2309TP-EI] 0/0/1 'ip = "10.150.226.33" 'ZTE ZXR10 2928E 'ip = "10.150.211.224" 'Qtech Dim Login Dim Passw Dim SW_Name Dim Port 'Port = "1" Dim Port_State Port_State = "UP" Dim Port_Description Dim Mac Dim exit_ '   "1"     Dim Equipment_ID '   | ZTE | QTECH | H3C | Quidway-EA | Quidway-EI | Dim Uptime Dim Oblast Oblast = False Dim var, var2, test Dim objCurrentTab, Tab Sub Update(file) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(file, 1) str = f.ReadAll f.Close ExecuteGlobal(str) End Sub Sub User() '   - Login1 Login2 'if objCurrentTab.Dialog.MessageBox (var,"Login1", 32 Or 4 Or 0 ) = 6 then ' 6  Login1, 7  Login2 Login = "Login1" Passw = "Pass1" 'else ' Login = "Login2" ' Passw = "Pass2" 'end if End sub Sub Connect() ' ,     ,    ,   IP = crt.Dialog.Prompt(" IP  10.150.", "sublime habr_script ver_" & scr_ver, "", False) '  IP  if ip = "Update" then call Update (UpdateEngine) msgbox "    ." , 0 , "sublime habr_script ver_" & scr_ver exit sub elseif ip = "Upload" then Developer = True call Update (UpdateEngine) msgbox "  ,  ", 0 , "sublime habr_script ver_" & scr_ver exit sub elseif ip = "" then msgbox "IP   " , 0 , "sublime habr_script ver_" & scr_ver exit_ = 1 exit sub end if Port = crt.Dialog.Prompt("  ", "sublime habr_script ver_" & scr_ver, "", False) '    If Left(IP, 1) = "-" and Left(IP, 1) <> "" then ' .     IP = Mid(IP, 2, Len(IP)) if crt.Session.Connected then crt.Session.Disconnect '    -  crt.session.Connect "/telnet " & chr(34) & "10.150." & ip & chr(34) & " 23" , , true '  Set objCurrentTab = crt.GetScriptTab if not objCurrentTab.Session.Connected then msgbox "  " exit_ = 1 exit sub else 'msgbox " " end if elseif Left(IP, 1) = "+" and Left(IP, 1) <> "" then ' +    Oblast = true IP = Mid(IP, 2, Len(IP)) set Tab = crt.session.ConnectInTab ("/telnet " & chr(34) & "172.100.100." & ip & chr(34) & " 23" , , true ) '  tab.Screen.Synchronous = True ' , ! tab.screen.IgnoreEscape = True ' , ! 'msgbox "before Set objCurrentTab = crt.GetTab(tab.Index)" Set objCurrentTab = crt.GetTab(tab.Index) if not objCurrentTab.Session.Connected then msgbox "  " exit_ = 1 exit sub else 'msgbox " " & exit_ end if else '     . 'msgbox "before set Tab = crt.session.ConnectInTab" set Tab = crt.session.ConnectInTab ("/telnet " & chr(34) & "10.150." & ip & chr(34) & " 23" , , true ) '  tab.Screen.Synchronous = True ' , ! tab.screen.IgnoreEscape = True ' , ! 'msgbox "before Set objCurrentTab = crt.GetTab(tab.Index)" Set objCurrentTab = crt.GetTab(tab.Index) if not objCurrentTab.Session.Connected then msgbox "  " exit_ = 1 exit sub else 'msgbox " " & exit_ end if end if objCurrentTab.Screen.Synchronous = True objCurrentTab.screen.IgnoreEscape = True End Sub Sub LogOn() '  objCurrentTab.Screen.WaitForStrings "Username:", "login", 10 if Oblast = False then objCurrentTab.Screen.Send "Login1" + chr(13) end if objCurrentTab.Screen.WaitForString "assword:", 10 if Oblast = False then objCurrentTab.Screen.Send "Pass1" + chr(13) end if var = CStr(objCurrentTab.screen.WaitForStrings(">", "#", "Username:", "login", 10)) 'msgbox var if var = 0 then msgbox " " exit_ = 1 exit sub elseif ((var = 3) or (var = 4)) and (Oblast = false) then if objCurrentTab.Screen.WaitForString ("authentication success", 1) = false then '   zte 'msgbox "ZTE" objCurrentTab.Screen.Send "Login2" + chr(13) objCurrentTab.Screen.WaitForString "assword:" objCurrentTab.Screen.Send "Pass2" + chr(13) end if elseif (var = 3 or var = 4) and Oblast = true then objCurrentTab.Screen.WaitForString "assword:", 10 end if objCurrentTab.Screen.Send chr(13) if CStr(objCurrentTab.screen.WaitForStrings(">", "#", 2)) = 0 then msgbox " " exit_ = 1 exit sub end if End sub Sub Equipment() ' ,    objCurrentTab.Screen.Send " " & chr(13) objCurrentTab.screen.WaitForString chr(10) SW_Name = objCurrentTab.Screen.ReadString (">", "#", 1) if SW_Name <> "" then '     SW_Name if left(SW_Name,1) = "<" then SW_Name = Mid(SW_Name, 2, Len(SW_Name)) end if objCurrentTab.Caption = IP & "_" & SW_Name end if if Oblast = true then '        172.100.100. exit_ = 1 exit sub end if if port <> "" then objCurrentTab.Screen.Send "display version" & chr(13) ' 1 2 3 4 5 6 0 var = CStr(objCurrentTab.screen.WaitForStrings("Quidway", "H3C", "HP", "QTECH", "Invalid", "ommand", 2)) if var = 0 then msgbox "   . ." exit_ = 1 exit sub elseif (var = 5 or var = 6) then objCurrentTab.Screen.Send "show version" & chr(13) ' 1 2 3 4 0 var = CStr(objCurrentTab.screen.WaitForStrings("ZTE", "QTECH", "Invalid", "ommand", 1)) if (var = 0) or (var = 3) or (var = 4) then msgbox "   . ." exit_ = 1 exit sub elseif var = 1 then Equipment_ID = "ZTE" elseif var = 2 then Equipment_ID = "QTECH" Port = "1/" & Port end if elseif (var = 2) or (var = 3) then Equipment_ID = "H3C" Port = "1/0/" & Port elseif var = 1 then objCurrentTab.screen.WaitForString " " var = CStr(objCurrentTab.screen.WaitForStrings("-EA", "-EI", 2)) if var = 0 then msgbox "   . ." exit_ = 1 exit sub elseif (var = 1) then Equipment_ID = "Quidway-EA" Port = "1/0/" & Port elseif (var = 2) then Equipment_ID = "Quidway-EI" Port = "0/0/" & Port end if end if objCurrentTab.screen.WaitForString "ptime" Uptime = objCurrentTab.Screen.ReadString(chr(13) , 1) objCurrentTab.screen.WaitForStrings ">", "#", 1 end if End sub Sub Port_Information() '    - State, Description if Equipment_ID = "ZTE" then ' ZTE objCurrentTab.Screen.Send chr(13) objCurrentTab.screen.WaitForString ">" objCurrentTab.Screen.Send "show port " & Port & " brief" & chr(13) var = CStr(objCurrentTab.screen.WaitForStrings("up", "down", 2)) if var = 0 then msgbox "   . ." exit_ = 1 exit sub elseif (var = 1) then Port_State = "UP" elseif (var = 2) then Port_State = "DOWN" end if Port_Description = Trim(objCurrentTab.Screen.ReadString(chr(13) , 2)) end if '/ZTE '-------------------------------------------------------------------- if Equipment_ID = "H3C" or Equipment_ID = "Quidway-EA" or Equipment_ID = "Quidway-EI" then ' H3C or Quidway-EA or Quidway-EI objCurrentTab.Screen.Send chr(13) objCurrentTab.screen.WaitForString ">" objCurrentTab.Screen.Send "display interface Ethernet " & Port & chr(13) var = CStr(objCurrentTab.screen.WaitForStrings("UP", "DOWN", 2)) if var = 0 then msgbox "   . ." exit_ = 1 exit sub elseif (var = 1) then Port_State = "UP" elseif (var = 2) then Port_State = "DOWN" end if objCurrentTab.Screen.Send " " & chr(13) objCurrentTab.screen.WaitForString ">", 1 objCurrentTab.Screen.Send " " & chr(13) objCurrentTab.screen.WaitForString ">", 1 objCurrentTab.Screen.Send "display current-configuration interface Ethernet " & Port & chr(13) objCurrentTab.screen.WaitForString "description", 1 Port_Description = Trim(objCurrentTab.Screen.ReadString(chr(13) , 2)) end if '/H3C or Quidway-EA or Quidway-EI '-------------------------------------------------------------------- if Equipment_ID = "QTECH" then ' QTECH objCurrentTab.Screen.Send chr(13) objCurrentTab.screen.WaitForString "#" objCurrentTab.Screen.Send "show interface ethernet " & Port & chr(13) var = CStr(objCurrentTab.screen.WaitForStrings("up", "down", 2)) if var = 0 then msgbox "   . ." exit_ = 1 exit sub elseif (var = 1) then Port_State = "UP" elseif (var = 2) then Port_State = "DOWN" end if objCurrentTab.Screen.Send " " & chr(13) objCurrentTab.screen.WaitForString "#" objCurrentTab.Screen.Send "show running-config interface ethernet " &Port & chr(13) objCurrentTab.screen.WaitForString "description", 1 Port_Description = Trim(objCurrentTab.Screen.ReadString(chr(13) , 2)) end if '/QTECH if Port_Description <> "" then '     Port_Description objCurrentTab.Caption = IP & "_" & Port_Description end if End sub Sub MacInformation() '   if Equipment_ID = "ZTE" then ' ZTE objCurrentTab.Screen.Send chr(13) objCurrentTab.screen.WaitForString ">" objCurrentTab.Screen.Send "show mac dynamic port " & Port & chr(13) objCurrentTab.screen.WaitForString "---" & chr(13) , 3 '     While var2 <> "stop" var = CStr(objCurrentTab.screen.WaitForStrings ("No MAC", chr(10), "Press", ">", 1)) 'msgbox var if var = 1 then Mac = "No Mac" elseif var = 2 then Mac = Mac & chr(13) & objCurrentTab.Screen.ReadString(" ", 1) Elseif var = 3 then objCurrentTab.Screen.Send " " for i = 1 to 98 objCurrentTab.screen.WaitForString chr(8), 1 next Mac = Mac & chr(13) & objCurrentTab.Screen.ReadString(" ", 1) Elseif var = 4 then var2 = "stop" Elseif var = 0 then var2 = "stop" end if objCurrentTab.screen.WaitForStrings chr(13), " ", 1 'var2 = objCurrentTab.Screen.ReadString(".", 1) ' var = "" ' for i = 1 to len(var2) ' test = Mid(var2, i, 1) ' 'msgbox test ' var = var & "|" & Asc(test) ' next ' msgbox "_..." & var & "..._" & "i= " & i & chr(13) & var2 wend end if '/ZTE if Equipment_ID = "H3C" or Equipment_ID = "Quidway-EA" then ' H3C or Quidway-EA objCurrentTab.Screen.Send chr(13) objCurrentTab.screen.WaitForString ">" objCurrentTab.Screen.Send "displ mac-address interface Ethernet " & port & chr(13) objCurrentTab.screen.WaitForString "TIME(s)", 1 While var2 <> "stop" var = CStr(objCurrentTab.screen.WaitForStrings ("No MAC", chr(10), "found", 1)) if var = 1 then Mac = "No Mac" elseif var = 2 then Mac = Mac & chr(13) & objCurrentTab.Screen.ReadString(" ", 1) elseif var = 3 then var2 = "stop" Elseif var = 0 then Mac = Mac & chr(13) & "more..." var2 = "stop" end if wend end if '/H3C or Quidway-EA if Equipment_ID = "Quidway-EI" then ' Quidway-EI objCurrentTab.Screen.Send chr(13) objCurrentTab.screen.WaitForString ">" objCurrentTab.Screen.Send "display mac-address dynamic Ethernet " & port & chr(13) objCurrentTab.screen.WaitForStrings "Lsp", "MAC-Tunnel", 5 objCurrentTab.screen.WaitForString "------------------------------------------------------" & chr(13), 3 While var2 <> "stop" var = CStr(objCurrentTab.screen.WaitForStrings ("displayed = 0", chr(10), "Total", 1)) if var = 1 then Mac = "No Mac" var2 = "stop" elseif var = 2 then var = objCurrentTab.Screen.ReadString(" ", 1) 'msgbox "_" & var & "_" if (var = chr(13) & chr(10) & "Total") or (var = chr(13) & chr(10) & "-------------------------------------------------------------------------------" & chr(13) & chr(10) & "Total") then var2 = "stop" else Mac = Mac & var & chr(13) end if objCurrentTab.screen.WaitForString chr(13), 1 elseif var = 3 then var2 = "stop" Elseif var = 0 then Mac = Mac & chr(13) & "more..." var2 = "stop" end if wend end if '/Quidway-EI if Equipment_ID = "QTECH" then ' QTECH objCurrentTab.Screen.Send chr(13) objCurrentTab.Screen.Send "show mac-address-table interface ethernet " & port & chr(13) objCurrentTab.screen.WaitForString "Read mac address table...." var = CStr(objCurrentTab.screen.WaitForStrings ("No mac", "---" & chr(13), 1)) if var = 1 then var2 = "stop" Mac = "No Mac" end if While var2 <> "stop" var = CStr(objCurrentTab.screen.WaitForStrings ( " ", SW_name, 1)) if var = 1 then Mac = Mac & chr(13) & Trim(objCurrentTab.Screen.ReadString(" ", 1)) objCurrentTab.screen.WaitForString chr(13) elseif var = 2 then var2 = "stop" Elseif var = 0 then Mac = Mac & chr(13) & "more..." var2 = "stop" end if wend end if End sub if exit_ <> 1 then Call User if exit_ <> 1 then Call Connect if exit_ <> 1 then Call LogOn if exit_ <> 1 then Call Equipment if exit_ <> 1 and Port <> "" then Call Port_Information if exit_ <> 1 and Port <> "" and Port_State = "UP" then Call MacInformation 'and Port_State = "UP" var = "  " & Equipment_ID & chr(13) & "Uptime " & Uptime & chr(13) var = var & " " & " = " & SW_Name & chr(13) var = var & "  " & Port & " = " & Port_State & chr(13) var = var & "  " & Port & " = " & Port_Description & chr(13) var = var & " : " & chr(13) & Mac & chr(13) var = var & "  " if Port <> "" then msgbox var end if

और अद्यतन स्क्रिप्ट

UpdateEngine

 '#$language = "VBScript" '#$interface = "1.0" crt.Screen.Synchronous = True crt.screen.IgnoreEscape = True scr_vers = "0,1" ' Change Log: ' v0.1 21.01.14 The very beggining. Here where it starts. Dim cur_scr_path, cur_scr_Name, cur_scr_ver, cur_scr_file Dim ser_scr_path, ser_scr_Name, ser_scr_ver, ser_scr_file Sub CurrentScript() '   ,     cur_scr_path = crt.ScriptFullName For i = 1 to 10 if InStr(cur_scr_path,"\") = 0 then Exit for end if cur_scr_path = Right(cur_scr_path, Len(cur_scr_path) - InStr(cur_scr_path,"\")) next cur_scr_Name = cur_scr_path 'msgbox cur_scr_Name cur_scr_path = crt.ScriptFullName Set cur_scr_file = CreateObject("Scripting.FileSystemObject").OpenTextFile(cur_scr_path,1) ' 1 - for reading do while not cur_scr_file.AtEndOfStream cur_scr_ver = cur_scr_file.ReadLine cur_scr_ver = trim(cur_scr_ver) if left(cur_scr_ver, 10) = "scr_ver = " then cur_scr_ver = Mid (cur_scr_ver, 12, Len(cur_scr_ver) - 12)'Mid(cur_scr_ver, 11,InStr(cur_scr_ver," ")) 'msgbox cur_scr_ver = " & cur_scr_ver Exit do end if loop cur_scr_file.Close end sub Sub ServerScript() '   ,  ser_scr_path = "\\SERVER\Script" & "\" &cur_scr_Name 'msgbox ser_scr_path Set ser_scr_file = CreateObject("Scripting.FileSystemObject").OpenTextFile(ser_scr_path,1) ' 1 - for reading do while not ser_scr_file.AtEndOfStream ser_scr_ver = ser_scr_file.ReadLine ser_scr_ver = trim(ser_scr_ver) 'msgbox ser_scr_ver if left(ser_scr_ver, 10) = "scr_ver = " then ser_scr_ver = Mid (ser_scr_ver, 12, Len(ser_scr_ver) - 12) 'msgbox "ser_scr_ver = " & ser_scr_ver Exit do end if loop ser_scr_file.Close End sub Sub Comparisson() '  ,     . Const OverwriteExisting = True 'msgbox "_" & cur_scr_ver & "_" & ser_scr_ver& "_" 'MsgBox (TypeName(cur_scr_ver)) & "_" & (TypeName(ser_scr_ver)) If Developer = true then If CDbl(cur_scr_ver) < CDbl(ser_scr_ver) then '      msgbox "   . WTF?!",0 , "God mode ON." elseif CDbl(cur_scr_ver) = CDbl(ser_scr_ver) then '      msgbox "Version equals, nothing to do" ,0 , "God mode ON." elseif CDbl(cur_scr_ver) > CDbl(ser_scr_ver) then '        .   msgbox "Version difference, Uploading new version to the server. Press ok to begin" ,0 , "God mode ON." Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile cur_scr_path , ser_scr_path, OverwriteExisting end if elseif Developer = false then If CDbl(cur_scr_ver) < CDbl(ser_scr_ver) then '     .  . msgbox "  .  ." , 0 , "UpdateEngine" Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile ser_scr_path, cur_scr_path, OverwriteExisting elseif CDbl(cur_scr_ver) = CDbl(ser_scr_ver) then '      msgbox " .", 0 , "UpdateEngine" elseif CDbl(cur_scr_ver) > CDbl(ser_scr_ver) then '        . msgbox "   .", 0 , "UpdateEngine" end if end if Developer = false exit_ = 1 End sub Call CurrentScript() Call ServerScript() Call Comparisson()

अंत में

मेरे पास GPON MA5680T हार्डवेयर के लिए एक और बहुत उपयोगी स्क्रिप्ट है। जो कोई भी जानता है कि सेवाओं को जोड़ना या टर्मिनल टर्मिनल के वर्तमान कॉन्फ़िगरेशन को समझना कितना मुश्किल है, तथाकथित है "Ponca"। मैंने एक स्क्रिप्ट लिखी है जो आपको सेवाओं को जोड़ने, अल्सर की सूची प्रदर्शित करने या GPONa कॉन्फ़िगरेशन से एक पोंका इकट्ठा करने की अनुमति देती है। स्क्रिप्ट द्वारा बनाई गई अंतिम प्लेट इस तरह दिखती है

GPON

 : (6-0/1/1-2) ONT_name : UP : 92 C: 32303131B881F241 (2011-B881F241) __________________________ Service Port summury: ========================================================= |S*P | |Vlan| |Gem | |UV | |RTx | || Vlan desc --------------------------------------------------------- |5 | | 600| |130 | |2 | |5 | || Chanel1_name |38 | |1203| |136 | |3 | |7 | || |180 | |3563| |213 | |6 | |2 | || Chanel2_name |143 | |3786| |304 | |4 | |2 | || Chanel3_name |573 | | 598| |390 | |7 | |7 | || =========================================================  (O = UP; X = Down): ---------------------- [O] - Port 1 : 1,[2], [O] - Port 2 : 1,[3], [O] - Port 3 : 1,[4], [O] - Port 4 : 1,[6], [X] - Port 5 : 1,[7], ---------------------- ---------------------- Tcont_id 0.......1 Tcont_id 1.......12 Tcont_id 2.......5 Tcont_id 3.......57 Tcont : 4 ----------------------

एक दिन खोने के लिए बेहतर है, और फिर आप जहां चाहें और जितना चाहें टेलीपोर्ट करें