在Xshell可以像这样一个文件批量导入主机:
https://blog.netsarang.com/91/importing-csv-formatted-host-information-to-xshell/
在CRT上也可以,格式和Xshell的一样,但前提是需要运行一个自定义脚本:
脚本:https://forums.vandyke.com/showthread.php?p=37089#post37089
操作:https://www.vandyke.com/support/tips/importsessions.html
视频操作:https://youtu.be/f7nMFYhGoiI
简单操作步骤:
脚本文件内容:
ImportArbitraryDataFromFileToSecureCRTSessions.vbs
![](https://i-blog.csdnimg.cn/blog_migrate/8f900a89c6347c561fdf2122f13be562.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/961ddebeb323a10fe0623af514929fc1.gif)
# $language = "VBScript" # $interface = "1.0" ' ImportArbitraryDataFromFileToSecureCRTSessions.txt ' (Designed for use with SecureCRT 7.2 and later) ' ' Last Modified: 23 Feb, 2018 ' - Warn user if the configuration folder appears to be read-only. ' - Fall back to secondary locations in which to attempt to write ' the results log file in case the user's Documents, Desktop, or ' configuration folder are all read-only or otherwise un-write-able ' for the user. ' ' Last Modified: 21 Dec, 2017 ' - Allow multiple 'description' fields on the same line. All will be ' compounded together with each one ending up on a separate line in ' the Session's Description session option. ' - Allow 'username' field to be defaulted in the header line ' - Allow 'folder' field to be defaulted in the header line ' - Duplicate sessions are now imported with unique time-stamped ' names (for each additional duplicate). Earlier versions of this ' script would overwrite the first duplicate with any subsequent ' duplicates that were found in the data file. ' - When displaying the browse dialog, filter now includes both ' CSV and TXT file types, to make it easier to find the data file ' (less clicking). ' - Allow for protocol field to be defaulted, if not present in the ' header line. ' - Fix error messages relating to invalid header lines so they no ' longer indicate Protocol is a required field. If it's not present ' the Default Session's protocol value will be used. ' - Allow header fields to be case-insensitive so that "Description" ' and "UserName" work just the same as "description" and "username" ' ' Last Modified: 09 Aug, 2017 ' - Changed from using CInt to CLng in order to support port ' specifications larger than 32768 (max integer supported in VBScript) ' ' Last Modified: 20 Feb, 2017 ' - Added progress info to status bar ' - When a line from the source file has bogus/incomplete data on it, ' the script no longer halts operation, but instead, continues the ' import process for all remaining legitimate lines, skipping any ' lines that don't have sufficient/accurate format. ' - Changed format of summary message shown at end to include header ' line so entries that were skipped can be easily copied into a new ' document to be imported. ' - Toggle the Session Manager automatically so that imported sessions ' are more immediately visible in the Session Manager. ' ' Last Modified: 20 Jan, 2015 ' - Combined TAPI protocol handling (which is no longer ' supported for mass import) with Serial protocol ' import errors. ' - Enhanced example .csv file data to show subfolder specification. ' ' Last Modified: 21 Mar, 2012 ' - Initial version for public forums ' ' DESCRIPTION ' This sample script is designed to create sessions from a text file (.csv ' format by default, but this can be edited to fit the format you have). ' ' To launch this script, map a button on the button bar to run this script: ' http://www.vandyke.com/support/tips/buttonbar.html ' ' The first line of your data file should contain a comma-separated (or whatever ' you define as the g_strDelimiter below) list of supported "fields" designated ' by the following keywords: ' ----------------------------------------------------------------------------- ' session_name: The name that should be used for the session. If this field ' does not exist, the hostname field is used as the session_name. ' folder: Relative path for session as displayed in the Connect dialog. ' hostname: The hostname or IP for the remote server. ' protocol: The protocol (SSH2, SSH1, telnet, rlogin) ' port: The port on which remote server is listening ' username: The username for the account on the remote server ' emulation: The emulation (vt100, xterm, etc.) ' description: The comment/description. Multiple lines are separated with '\r' ' ============================================================================= ' ' ' As mentioned above, the first line of the data file instructs this script as ' to the format of the fields in your data file and their meaning. It is not a ' requirement that all the options be used. For example, notice the first line ' of the following file only uses the "hostname", "username", and "protocol" ' fields. Note also that the "protocol" field can be defaulted so that if a ' protocol field is empty it will use the default value. ' ----------------------------------------------------------------------------- ' hostname,username,folder,protocol=SSH2 ' 192.168.0.1,root,_imported,SSH1 ' 192.168.0.2,admin,_imported,SSH2 ' 192.168.0.3,root,_imported\folderA, ' 192.168.0.4,root,, ' 192.168.0.5,admin,_imported\folderB,telnet ' ... and so on ' ============================================================================= ' ' ' The g_strDefaultProtocol variable will only be defined within the ' ValidateFieldDesignations function if the protocol field has a default value ' (e.g., protocol=SSH2), as read in from the first line of the data file. Dim g_strDefaultProtocol ' The g_strDefaultFolder variable will only be defined within the ' ValidateFieldDesignations function if the folder field has a default value ' (e.g., folder=Site34), as read in from the first line of the data file. Dim g_strDefaultFolder ' The g_strDefaultUsername variable will only be defined within the ' ValidateFieldDesignations function if the username field has a default value ' (e.g., username=bensolo), as read in from the first line of the data file. Dim g_strDefaultUsername ' If your data file uses spaces or a character other than comma as the ' delimiter, you would also need to edit the g_strDelimiter value a few lines ' below to indicate that fields are separated by spaces, rather than by commas. ' For example: ' g_strDelimiter = " " ' Using a ";" might be a good alternative for a file that includes the comma ' character as part of any legitimate session name or folder name, etc. Dim g_strDelimiter g_strDelimiter = "," ' comma ' g_strDelimiter = " " ' space ' g_strDelimiter = ";" ' semi-colon ' g_strDelimiter = chr(9) ' tab ' g_strDelimiter = "|||" ' a more unique example of a delimiter. ' The g_strSupportedFields indicates which of all the possible fields, are ' supported in this example script. If a field designation is found in a data ' file that is not listed in this variable, it will not be imported into the ' session configuration. Dim g_strSupportedFields g_strSupportedFields = _ "description,emulation,folder,hostname,port,protocol,session_name,username" ' If you wish to overwrite existing sessions, set the ' g_bOverwriteExistingSessions to True; for this example script, we're playing ' it safe and leaving any existing sessions in place :). Dim g_bOverwriteExistingSessions g_bOverwriteExistingSessions = False Dim g_fso, g_shell Set g_fso = CreateObject("Scripting.FileSystemObject") Set g_shell = CreateObject("WScript.Shell") Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 Dim g_strHostsFile, g_strExampleHostsFile, g_strMyDocs, g_strMyDesktop g_strMyDocs = g_shell.SpecialFolders("MyDocuments") g_strMyDesktop = g_shell.SpecialFolders("Desktop") g_strHostsFile = g_strMyDocs & "\MyDataFile.csv" g_strExampleHostsFile = _ vbtab & "hostname,protocol,username,folder,emulation" & vbcrlf & _ vbtab & "192.168.0.1,SSH2,root,Linux Machines,XTerm" & vbcrlf & _ vbtab & "192.168.0.2,SSH2,root,Linux Machines,XTerm" & vbcrlf & _ vbtab & "..." & vbcrlf & _ vbtab & "10.0.100.1,SSH1,admin,CISCO Routers,VT100" & vbcrlf & _ vbtab & "10.0.101.1,SSH1,admin,CISCO Routers,VT100" & vbcrlf & _ vbtab & "..." & vbcrlf & _ vbtab & "myhost.domain.com,SSH2,administrator,Windows Servers,VShell" & _ vbtab & "..." & vbcrlf g_strExampleHostsFile = Replace(g_strExampleHostsFile, ",", g_strDelimiter) Dim g_strConfigFolder, strFieldDesignations, vFieldsArray, vSessionInfo g_strConfigFolder = GetConfigPath() Dim strSessionName, strHostName, strPort Dim strUserName, strProtocol, strEmulation Dim strPathForSessions, strLine, nFieldIndex Dim strSessionFileName, strFolder, nDescriptionLineCount, strDescription Dim g_strLastError, g_strErrors, g_strSessionsCreated Dim g_nSessionsCreated, g_nDataLines g_strDateTimeTag = GetDateTimeTag() g_strBogusLinesNotImported = "" Import '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Sub Import() g_strHostsFile = crt.Dialog.FileOpenDialog( _ "Please select the host data file to be imported.", _ "Open", _ g_strHostsFile, _ "CSV/Text Files (*.txt;*.csv)|*.txt;*.csv|All files (*.*)|*.*") If g_strHostsFile = "" Then Exit Sub End If ' Open our data file for reading Dim objDataFile Set objDataFile = g_fso.OpenTextFile(g_strHostsFile, ForReading, False) ' Now read the first line of the data file to determine the field ' designations On Error Resume Next strFieldDesignations = objDataFile.ReadLine() nError = Err.Number strErr = Err.Description On Error Goto 0 If nError <> 0 Then If nError = 62 Then crt.Dialog.MessageBox("Your data file is empty." & vbcrlf & _ "Fill it with import data and try again." & vbcrlf & vbcrlf & _ "ReadLine() Error code: " & nError & vbcrlf & _ "ReadLine() Error text: " & strErr) Else crt.Dialog.MessageBox("Unable to read the first line from your data file!" & _ vbcrlf & vbcrlf & _ "ReadLine() Error code: " & nError & vbcrlf & vbcrlf & _ "ReadLine() Error text: " & strErr) End If Exit Sub End If ' Validate the data file If Not ValidateFieldDesignations(strFieldDesignations) Then objDataFile.Close Exit Sub End If ' Get a timer reading so that we can calculate how long it takes to import. nStartTime = Timer ' Here we create an array of the items that will be used to create the new ' session, based on the fields separated by the delimiter specified in ' g_strDelimiter vFieldsArray = Split(strFieldDesignations, g_strDelimiter) ' Loop through reading each line in the data file and creating a session ' based on the information contained on each line. Do While Not objDataFile.AtEndOfStream strLine = "" strLine = objDataFile.ReadLine crt.Session.SetStatusText "Processing line #: " & _ NN(objDataFile.Line - 1, 4) ' This sets v_File Data array elements to each section of strLine, ' separated by the delimiter vSessionInfo = Split(strLine, g_strDelimiter) If UBound(vSessionInfo) < UBound(vFieldsArray) Then If Trim(strLine) <> "" Then g_strErrors = g_strErrors & vbcrlf & _ "Insufficient data on line #" & _ NN(objDataFile.Line - 1, 4) & ": " & strLine Else g_strErrors = g_strErrors & vbcrlf & _ "Insufficient data on line #" & _ NN(objDataFile.Line - 1, 4) & ": [Empty Line]" End If ElseIf UBound(vSessionInfo) > UBound(vFieldsArray) Then g_strErrors = g_strErrors & vbcrlf & _ "==> Number of data fields on line #" & _ NN(objDataFile.Line - 1, 4) & _ "(" & UBound(vSessionInfo) & ") " & _ "does not match the number of fields in the header " & _ "(" & UBound(vFieldsArray) & ")." & vbcrlf & _ " This line will not be imported (Does the session name have a character that " & _ "matches the delimiter you're using? Also check for characters that Windows does not " & _ "allow to be used in filenames: /\:*?""<>|): " & vbcrlf & vbtab & strLine g_strBogusLinesNotImported = g_strBogusLinesNotImported & _ vbcrlf & strLine Else ' Variable used to determine if a session file should actually be ' created, or if there was an unrecoverable error (and the session ' should be skipped). Dim bSaveSession bSaveSession = True ' Now we will match the items from the new file array to the correct ' variable for the session's ini file For nFieldIndex = 0 To UBound(vSessionInfo) Select Case LCase(vFieldsArray(nFieldIndex)) Case "session_name" strSessionName = vSessionInfo(nFieldIndex) ' Check folder name for any invalid characters Dim re Set re = New RegExp re.Pattern = "[\\\|\/\:\*\?\""\<\>]" If re.Test(strSessionName) Then bSaveSession = False If g_strErrors <> "" Then g_strErrors = _ vbcrlf & g_strErrors g_strErrors = _ "Error: " & _ "Invalid characters found in SessionName """ & _ strSessionName & """ specified on line #" & _ NN(objDataFile.Line - 1, 4) & _ ": " & strLine & g_strErrors g_strBogusLinesNotImported = g_strBogusLinesNotImported & _ vbcrlf & strLine End If Case "port" strPort = Trim(vSessionInfo(nFieldIndex)) If Not IsNumeric(strPort) Then bSaveSession = False If g_strErrors <> "" Then g_strErrors = _ vbcrlf & g_strErrors g_strErrors = _ "Error: Invalid port """ & strPort & _ """ specified on line #" & _ NN(objDataFile.Line - 1, 4) & _ ": " & strLine & g_strErrors g_strBogusLinesNotImported = g_strBogusLinesNotImported & _ vbcrlf & strLine End If Case "protocol" strProtocol = Trim(lcase(vSessionInfo(nFieldIndex))) Select Case strProtocol Case "ssh2" strProtocol = "SSH2" Case "ssh1" strProtocol = "SSH1" Case "telnet" strProtocol = "Telnet" Case "serial", "tapi" bSaveSession = False g_strErrors = g_strErrors & vbcrlf & _ "Error: Unsupported protocol """ & _ vSessionInfo(nFieldIndex) & _ """ specified on line #" & _ NN(objDataFile.Line - 1, 4) & _ ": " & strLine Case "rlogin" strProtocol = "RLogin" Case Else If g_strDefaultProtocol <> "" Then strProtocol = g_strDefaultProtocol Else bSaveSession = False If g_strErrors <> "" Then g_strErrors = _ vbcrlf & g_strErrors g_strErrors = _ "Error: Invalid protocol """ & _ vSessionInfo(nFieldIndex) & _ """ specified on line #" & _ NN(objDataFile.Line - 1, 4) & _ ": " & strLine & g_strErrors g_strBogusLinesNotImported = g_strBogusLinesNotImported & _ vbcrlf & strLine End If End Select ' for protocols Case "hostname" strHostName = Trim(vSessionInfo(nFieldIndex)) If strHostName = "" Then bSaveSession = False g_strErrors = g_strErrors & vbcrlf & _ "Warning: 'hostname' field on line #" & _ NN(objDataFile.Line - 1, 4) & _ " is empty: " & strLine g_strBogusLinesNotImported = g_strBogusLinesNotImported & _ vbcrlf & strLine End If Case "username" strUserName = Trim(vSessionInfo(nFieldIndex)) Case "emulation" strEmulation = LCase(Trim(vSessionInfo(nFieldIndex))) Select Case strEmulation Case "xterm" strEmulation = "Xterm" Case "vt100" strEmulation = "VT100" Case "vt102" strEmulation = "VT102" Case "vt220" strEmulation = "VT220" Case "ansi" strEmulation = "ANSI" Case "linux" strEmulation = "Linux" Case "scoansi" strEmulation = "SCOANSI" Case "vshell" strEmulation = "VShell" Case "wyse50" strEmulation = "WYSE50" Case "wyse60" strEmulation = "WYSE60" Case Else bSaveSession = False g_strErrors = g_strErrors & vbcrlf & _ "Warning: Invalid emulation """ & _ strEmulation & """ specified on line #" & _ NN(objDataFile.Line - 1, 4) & _ ": " & strLine g_strBogusLinesNotImported = g_strBogusLinesNotImported & _ vbcrlf & strLine End Select Case "folder" strFolder = Trim(vSessionInfo(nFieldIndex)) ' Check folder name for any invalid characters ' Note that a folder can have subfolder designations, ' so '/' is a valid character for the folder (path). Set re = New RegExp re.Pattern = "[\|\:\*\?\""\<\>]" If re.Test(strFolder) Then bSaveSession = False If g_strErrors <> "" Then g_strErrors = _ vbcrlf & g_strErrors g_strErrors = _ "Error: Invalid characters in folder """ & _ strFolder & """ specified on line #" & _ NN(objDataFile.Line - 1, 4) & _ ": " & strLine & g_strErrors g_strBogusLinesNotImported = g_strBogusLinesNotImported & _ vbcrlf & strLine End If Case "description" strCurDescription = Trim(vSessionInfo(nFieldIndex)) If strDescription = "" Then strDescription = strCurDescription Else strDescription = strDescription & "\r" & strCurDescription End If Case Else ' If there is an entry that the script is not set to use ' in strFieldDesignations, stop the script and display a ' message Dim strMsg1 strMsg1 = "Error: Unknown field designation: " & _ vFieldsArray(nFieldIndex) & vbcrlf & vbcrlf & _ " Supported fields are as follows: " & _ vbcrlf & vbcrlf & vbtab & g_strSupportedFields & _ vbcrlf & _ vbcrlf & " For a description of " & _ "supported fields, please see the comments in " & _ "the sample script file." If Trim(g_strErrors) <> "" Then strMsg1 = strMsg1 & vbcrlf & vbcrlf & _ "Other errors found so far include: " & _ g_strErrors End If MsgBox strMsg1, _ vbOkOnly, _ "Import Data To SecureCRT Sessions: Data File Error" Exit Sub End Select Next If bSaveSession Then ' Use hostname if a session_name field wasn't present If strSessionName = "" Then strSessionName = strHostName End If If strFolder = "" Then strFolder = g_strDefaultFolder End If ' Canonicalize the path to the session, as needed strSessionPath = strSessionName If strFolder <> "" Then strSessionPath = strFolder & "/" & strSessionName End If ' Strip any leading '/' characters from the session path If Left(strSessionPath, 1) = "/" Then strSessionPath = Mid(strSessionPath, 2) End If If SessionExists(strSessionPath) Then If Not g_bOverwriteExistingSessions Then ' Append a unique tag to the session name, if it already exists strSessionPath = strSessionPath & _ "(import_" & GetDateTimeTag & ")" End If End If ' Now: Create the session. ' Copy the default session settings into new session name and set the ' protocol. Setting protocol protocol is essential since some variables ' within a config are only available with certain protocols. For example, ' a telnet configuration will not be allowed to set any port forwarding ' settings since port forwarding settings are specific to SSH. Set objConfig = crt.OpenSessionConfiguration("Default") If strProtocol = "" Then strProtocol = g_strDefaultProtocol End If objConfig.SetOption "Protocol Name", strProtocol ' We opened a default session & changed the protocol, now we ' save the config to the new session path: objConfig.Save strSessionPath ' Now, let's open the new session configuration we've ' saved, and set up the various parameters that were specified ' in the file. If Not SessionExists(strSessionPath) Then crt.Dialog.MessageBox("Failed to create a new session '" & _ strSessionPath & "'." & vbcrlf & _ vbcrlf & _ "Does your configuration folder have " & _ "sufficient permissions to allow writing/creating " & _ "files?" & vbcrlf & vbcrlf & _ vbtab & _ "Options > Global Options > Configuration Paths" & _ vbcrlf & vbcrlf & _ "Fix permissions on your configuration folder and " & _ "then try running this script again.") Exit Sub End If Set objConfig = crt.OpenSessionConfiguration(strSessionPath) objConfig.SetOption "Emulation", strEmulation If LCase(strProtocol) <> "serial" Then If strHostName <> "" Then objConfig.SetOption "Hostname", strHostName End If If strUsername = "" Then strUsername = g_strDefaultUsername End If If strUserName <> "" Then objConfig.SetOption "Username", strUserName End If End If If strDescription <> "" Then objConfig.SetOption "Description", Split(strDescription, "\r") End If If UCase(strProtocol) = "SSH2" Then If strPort = "" Then strPort = 22 objConfig.SetOption "[SSH2] Port", CLng(strPort) End If If UCase(strProtocol) = "SSH1" Then If strPort = "" Then strPort = 22 objConfig.SetOption "[SSH1] Port", CLng(strPort) End If If UCase(strProtocol) = "TELNET" Then If strPort = "" Then strPort = 23 objConfig.SetOption "Port", CLng(strPort) End If ' If you would like ANSI Color enabled for all imported sessions (regardless ' of value in Default session, remove comment from following line) ' objConfig.SetOption "ANSI Color", True ' Add other "SetOption" calls desired here... ' objConfig.SetOption "Auto Reconnect", True ' objConfig.SetOption "Color Scheme", "Traditional" ' objConfig.SetOption "Color Scheme Overrides Ansi Color", True ' objConfig.SetOption "Copy to clipboard as RTF and plain text", True ' objConfig.SetOption "Description", Array("This session was imported from a script on " & Now) ' objConfig.SetOption "Firewall Name", "YOUR CUSTOM FIREWALL NAME HERE" ' objConfig.SetOption "Line Send Delay", 15 ' objConfig.SetOption "Log Filename V2", "${VDS_USER_DATA_PATH}\_ScrtLog(%S)_%Y%M%D_%h%m%s.%t.txt" ' objConfig.SetOption "Rows", 60 ' objConfig.SetOption "Cols", 140 ' objConfig.SetOption "Start Tftp Server", True ' objConfig.SetOption "Use Word Delimiter Chars", True ' objConfig.SetOption "Word Delimiter Chars", " <>()+=$%!#*" ' objConfig.SetOption "X Position", 100 ' objConfig.SetOption "Y Position", 50 objConfig.Save If g_strSessionsCreated <> "" Then g_strSessionsCreated = g_strSessionsCreated & vbcrlf End If g_strSessionsCreated = g_strSessionsCreated & " " & strSessionPath g_nSessionsCreated = g_nSessionsCreated + 1 End If ' Reset all variables in preparation for reading in the next line of ' the hosts info file. strEmulation = "" strPort = "" strHostName = "" strFolder = "" strUserName = "" strSessionName = "" strDescription = "" nDescriptionLineCount = 0 End If Loop g_nDataLines = objDataFile.Line objDataFile.Close crt.Session.SetStatusText "" Dim strResults strResults = "Import operation completed in " & _ GetMinutesAndSeconds(Timer - nStartTime) If g_nSessionsCreated > 0 Then strResults = strResults & _ vbcrlf & _ String(70, "-") & vbcrlf & _ "Number of Sessions created: " & g_nSessionsCreated & vbcrlf & _ vbcrlf & _ g_strSessionsCreated Else strResults = strResults & vbcrlf & _ String(70, "-") & vbcrlf & _ "No sessions were created from " & g_nDataLines & " lines of data." End If If g_strErrors = "" Then strResults = "No errors/warnings encountered from the import operation." & vbcrlf & vbcrlf & strResults Else strResults = "Errors/warnings from this operation include: " & g_strErrors & vbcrlf & _ String(70, "-") & vbcrlf & _ strResults End If If g_strBogusLinesNotImported <> "" Then strResults = _ "The following lines from the data file were *not* imported for " & _ "various reasons detailed below:" & vbcrlf & _ String(70, "=") & vbcrlf & _ strFieldDesignations & _ g_strBogusLinesNotImported & vbcrlf & _ String(70, "-") & vbcrlf & _ "Fix the above lines to resolve the issue and save the fixed lines " & _ "to a new file. You can then run this script again to import these " & _ "skipped sessions." & vbcrlf & vbcrlf & strResults End If Set cFilenames = CreateObject("Scripting.Dictionary") cFilenames.Add Replace(g_strMyDocs & "/__SecureCRT-Session-ImportLog-" & g_strDateTimeTag & ".txt", "\", "/"), "" cFilenames.Add Replace(g_strMyDesktop & "/__SecureCRT-Session-ImportLog-" & g_strDateTimeTag & ".txt", "\", "/"), "" cFilenames.Add Replace(g_strConfigFolder & "/__SecureCRT-Session-ImportLog-" & g_strDateTimeTag & ".txt", "\", "/"), "" bSuccess = False strResults = strResults & vbcrlf & vbcrlf & _ String(80, "-") & vbcrlf For Each strFilename In cFilenames.Keys(): On Error Resume Next Set objFile = g_fso.OpenTextFile(strFilename, ForWriting, True) strErr = Err.Description nError = Err.Number On Error Goto 0 If nError = 0 Then bSuccess = True Exit For Else crt.Session.SetStatusText("Unable to open results file.") strResults = strResults & vbcrlf & _ "Failed to write summary results to: " & strFilename End If If Not g_fso.FileExists(strFilename) Then bSuccess = False Else Exit For End If Next If Not bSuccess Then crt.Clipboard.Text = strResults crt.Dialog.MessageBox( _ "Attempted to write summary results to the file locations below, " & _ "but access was denied." & vbcrlf & vbtab & vbcrlf & vbtab & _ Join(cFilenames.Keys(), vbcrlf & vbtab) & vbcrlf & vbcrlf & _ "Results are in the clipboard. " & _ "Paste this data into your favorite app now to see what occurred.") Exit Sub End If objFile.WriteLine strResults objFile.Close ' Display the log file as an indication that the information has been ' imported. g_shell.Run chr(34) & strFilename & chr(34), 5, False End Sub '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' Helper Methods and Functions '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function ValidateFieldDesignations(ByRef strFields) If Instr(strFieldDesignations, g_strDelimiter) = 0 Then Dim strErrorMsg, strDelimiterDisplay strErrorMsg = "Invalid header line in data file. " & _ "Delimiter character not found: " If Len(g_strDelimiter) > 1 Then strDelimiterDisplay = g_strDelimiter Else If Asc(g_strDelimiter) < 33 or Asc(g_strDelimiter) > 126 Then strDelimiterDisplay = "ASCII[" & Asc(g_strDelimiter) & "]" Else strDelimiterDisplay = g_strDelimiter End If End If strErrorMsg = strErrorMsg & strDelimiterDisplay & vbcrlf & vbcrlf & _ "The first line of the data file is a header line " & _ "that must include" & vbcrlf & _ "a '" & strDelimiterDisplay & _ "' separated list of field keywords." & vbcrlf & _ vbcrlf & "'hostname' is a required key word." & _ vbcrlf & vbcrlf & _ "The remainder of the lines in the file should follow the " & _ vbcrlf & _ "pattern established by the header line " & _ "(first line in the file)." & vbcrlf & "For example:" & vbcrlf & _ g_strExampleHostsFile MsgBox strErrorMsg, _ vbOkOnly, _ "Import Data To SecureCRT Sessions" Exit Function End If If Instr(LCase(strFieldDesignations), "hostname") = 0 Then strErrorMsg = "Invalid header line in data file. " & _ "'hostname' field is required." If Len(g_strDelimiter) > 1 Then strDelimiterDisplay = g_strDelimiter Else If Asc(g_strDelimiter) < 33 Or Asc(g_strDelimiter) > 126 Then strDelimiterDisplay = "ASCII[" & Asc(g_strDelimiter) & "]" Else strDelimiterDisplay = g_strDelimiter End If End If MsgBox strErrorMsg & vbcrlf & _ "The first line of the data file is a header line " & _ "that must include" & vbcrlf & _ "a '" & strDelimiterDisplay & _ "' separated list of field keywords." & vbcrlf & _ vbcrlf & "'hostname' is a required keyword." & _ vbcrlf & vbcrlf & _ "The remainder of the lines in the file should follow the " & _ vbcrlf & _ "pattern established by the header line " & _ "(first line in the file)." & vbcrlf & "For example:" & vbcrlf & _ g_strExampleHostsFile, _ vbOkOnly, _ "Import Data To SecureCRT Sessions" Exit Function End If If Instr(LCase(strFieldDesignations), "protocol") = 0 Then Set objConfig = crt.OpenSessionConfiguration("Default") g_strDefaultProtocol = objConfig.GetOption("Protocol Name") Else ' We found "protocol", now look for a default protocol designation vFields = Split(strFields,g_strDelimiter) For each strField In vFields If (InStr(LCase(strField), "protocol") > 0) And _ (Instr(LCase(strField), "=") >0) Then g_strDefaultProtocol = UCase(Split(strField, "=")(1)) ' Fix the protocol field since we know the default protocol ' value strFields = Replace(strFields, strField, "protocol") End If Next End If vFields = Split(strFields, g_strDelimiter) For Each strField In vFields If (Instr(LCase(strField), "folder") > 0) And _ (Instr(LCase(strField), "=") > 0) Then g_strDefaultFolder = Split(strField, "=")(1) ' Fix the folder field since we know the default folder strFields = Replace(strFields, strField, "folder") End If If (Instr(LCase(strField), "username") > 0) And _ (Instr(LCase(strField), "=") > 0) Then g_strDefaultUsername = Split(strField, "=")(1) ' Fix the username field since we know the default username strFields = Replace(strFields, strField, "username") End If Next ValidateFieldDesignations = True End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function ReadRegKey(strKeyPath) On Error Resume Next Err.Clear ReadRegKey = g_shell.RegRead(strKeyPath) If Err.Number <> 0 Then ' Registry key must not have existed. ' ReadRegKey will already be empty, but for the sake of clarity, we'll ' set it to an empty string explicitly. ReadRegKey = "" End If On Error Goto 0 End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function CreateFolderPath(strPath) ' Recursive function If g_fso.FolderExists(strPath) Then CreateFolderPath = True Exit Function End If ' Check to see if we've reached the drive root If Right(strPath, 2) = ":\" Then CreateFolderPath = True Exit Function End If ' None of the other two cases were successful, so attempt to create the ' folder On Error Resume Next g_fso.CreateFolder strPath nError = Err.Number strErr = Err.Description On Error Goto 0 If nError <> 0 Then ' Error 76 = Path not found, meaning that the full path doesn't exist. ' Call ourselves recursively until all the parent folders have been ' created: If nError = 76 Then _ CreateFolderPath(g_fso.GetParentFolderName(strPath)) On Error Resume Next g_fso.CreateFolder strPath nError = Err.Number strErr = Err.Description On Error Goto 0 ' If the Error is not = 76, then we have to bail since we no longer have ' any hope of successfully creating each folder in the tree If nError <> 0 Then g_strLastError = strErr Exit Function End If End If CreateFolderPath = True End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function NN(nNumber, nDesiredDigits) ' Normalizes a number to have a number of zeros in front of it so that the ' total length of the number (displayed as a string) is nDesiredDigits. Dim nIndex, nOffbyDigits, strResult nOffbyDigits = nDesiredDigits - Len(nNumber) NN = nNumber If nOffByDigits = 0 Then Exit Function If nOffByDigits > 0 Then ' The number provided doesn't have enough digits strResult = String(nOffbyDigits, "0") & nNumber Else ' The number provided has too many digits. nOffByDigits = Abs(nOffByDigits) ' Only remove leading digits if they're all insignificant (0). If Left(nNumber, nOffByDigits) = String(nOffByDigits, "0") Then strResult = Mid(nNumber, nOffByDigits + 1) Else ' If leading digits beyond desired number length aren't 0, we'll ' return the number as originally passed in. strResult = nNumber End If End If NN = strResult End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function GetMinutesAndSeconds(nTotalSecondsElapsed) Dim nMinutesElapsed, nSecondsValue, nSecondsElapsed If nTotalSecondsElapsed = 0 Then GetMinutesAndSeconds = "less than a second." Exit Function End If ' Convert seconds into a fractional minutes value. nMinutesElapsed = nTotalSecondsElapsed / 60 ' Convert the decimal portion into the number of remaining seconds. nSecondsValue = nMinutesElapsed - Fix(nMinutesElapsed) nSecondsElapsed = Fix(nSecondsValue * 60) ' Remove the fraction portion of minutes value, keeping only the digits to ' the left of the decimal point. nMinutesElapsed = Fix(nMinutesElapsed) ' Calculate the number of milliseconds using the four most significant ' digits of only the decimal fraction portion of the number of seconds ' elapsed. nMSeconds = Fix(1000 * (nTotalSecondsElapsed - Fix(nTotalSecondsElapsed))) ' Form the final string to be returned and set it as the value of our ' function. GetMinutesAndSeconds = nMinutesElapsed & " minutes, " & _ nSecondsElapsed & " seconds, and " & _ nMSeconds & " ms" End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function SessionExists(strSessionPath) ' Returns True if a session specified as value for strSessionPath already ' exists within the SecureCRT configuration. ' Returns False otherwise. On Error Resume Next Set objTosserConfig = crt.OpenSessionConfiguration(strSessionPath) nError = Err.Number strErr = Err.Description On Error Goto 0 ' We only used this to detect an error indicating non-existance of session. ' Let's get rid of the reference now since we won't be using it: Set objTosserConfig = Nothing ' If there wasn't any error opening the session, then it's a 100% indication ' that the session named in strSessionPath already exists If nError = 0 Then SessionExists = True Else SessionExists = False End If End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function GetDateTimeTag() ' Use WMI to get at the current time values. This info will be used ' to avoid overwriting existing sessions by naming new sessions with ' the current (unique) timestamp. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each objItem In colItems strLocalDateTime = objItem.LocalDateTime Exit For Next ' strLocalDateTime has the following pattern: ' 20111013093717.418000-360 [ That is, YYYYMMDDHHMMSS.MILLIS(zone) ] GetDateTimeTag = Left(strLocalDateTime, 18) End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function GetConfigPath(): Set objConfig = crt.OpenSessionConfiguration("Default") ' Try and get at where the configuration folder is located. To achieve ' this goal, we'll use one of SecureCRT's cross-platform path ' directives that means "THE path this instance of SecureCRT ' is using to load/save its configuration": ${VDS_CONFIG_PATH}. ' First, let's use a session setting that we know will do the ' translation between the cross-platform moniker ${VDS_CONFIG_PATH} ' and the actual value... say, "Upload Directory V2" strOptionName = "Upload Directory V2" ' Stash the original value, so we can restore it later... strOrigValue = objConfig.GetOption(strOptionName) ' Now set the value to our moniker... objConfig.SetOption strOptionName, "${VDS_CONFIG_PATH}" ' Make the change, so that the above templated name will get written ' to the config... objConfig.Save ' Now, load a fresh copy of the config, and pull the option... so ' that SecureCRT will convert from the template path value to the ' actual path value: Set objConfig = crt.OpenSessionConfiguration("Default") strConfigPath = objConfig.GetOption(strOptionName) ' Now, let's restore the setting to its original value objConfig.SetOption strOptionName, strOrigValue objConfig.Save ' Now return the config path GetConfigPath = strConfigPath End Function