Moderators: white, Hacker, Stefan2
gogis wrote:Was ich mir wünsche ist ein Button,
welcher mir alle selektierten Dateien/Verzeichnisse
mit vollständigem Netzwerkpfad (mit IP-Adresse vorneweg),
in die Zwischenablage übernimmt.
Code: Select all
'// ===========================================================
'// VBScript for Total Commander, by Stefan
'// cm_CopyNetIPToClip.VBS, v00.1, 2016-02-19
'// Forum: http://ghisler.ch/board/viewtopic.php?t=20044 (IP-Adresse anstatt Rechnername in Netzwerkumgebung)
'// Purpose: Copy selected name to clipboard, change "Drive letter:" to "IP address\share"
'// Example: If "\\10.11.12.13\share_SW" is mapped as drive W:
'// cm_CopyFullNamesToClip: W:\TOOLs\Notepad2\Notepad2.exe
'// cm_CopyNetNamesToClip: \\server.name.tld\share_SW\TOOLs\Notepad2\Notepad2.exe
'// Script result:
'// cm_CopyNetIPToClip: \\10.11.12.13\share_SW\TOOLs\Notepad2\Notepad2.exe
'//
'// TC Button:
'// CMD: "D:\rive\path\to\this\script.vbs"
'// PARAM: "%L"
'// USAGE: Select your files, execute this script... done.
'// ===========================================================
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSO = CreateObject("WScript.Shell")
Set NET = CreateObject("WScript.Network")
'// =========================================================== Read TCs temp list:
sTCtempList = Wscript.arguments.Item(0) ' The TC temp file due the "%L"
If FSO.FileExists(sTCtempList) Then
Set oTextStream = FSO.OpenTextFile(sTCtempList,1) 'FORREADING = 1
sFileContent = oTextStream.ReadAll
oTextStream.Close
aLineArray = split(sFileContent,vbCRLF)
'// =================== Get first line to do basic things one time only:
sFirstLine = aLineArray(0)
If(InStr(sFirstLine,":")) Then sDriveLetter = Left(sFirstLine,2)
sShareName = GetUNCName(sDriveLetter)
sServerName = Split(sShareName, "")(2)
sIPAddress = GetServerIP(sServerName)
sShareWithIP = replace(sShareName, sServerName, sIPAddress)
'// =================== For each line in TCs temp list, Do your work:
For i=0 To UBound(aLineArray) -1
sFullName = aLineArray(i)
'sTemp = sTemp & sFullName & vbCRLF ' test output original string
sOUT = sOUT & replace(sFullName,sDriveLetter,sShareWithIP) & vbCRLF
Next
Else
MsgBox "Input file sTCtempList not found."
End If
'// =========================================================== Output the result:
sOUT = Left(sOUT, Len(sOUT)-2) '//removing trailing line break:
' SetClipboard sTemp & vbCR & sOUT ' test output
SetClipboard sOUT
'// =========================================================== HELPER FUNCTIONs
Function GetUNCName(sDriveLetter)
On Error Resume Next
Set cDriveColl = NET.EnumNetworkDrives()
GetUNCName = sDriveLetter
For iDrive = 0 To cDriveColl.Count - 1 Step 2
If cDriveColl.Item(iDrive) = sDriveLetter Then
GetUNCName = cDriveColl.Item(iDrive+1)
End If
Next
End Function
Function GetServerIP(sServerName)
On Error Resume Next
Set oExec = WSO.Exec("ping -n 1 " & sServerName)
sStdOutRes = oExec.StdOut.ReadLine ' commands' first line is blank
sStdOutRes = oExec.StdOut.ReadLine
If(sStdOutRes<>"") Then
iPosS = InStr(sStdOutRes,"[")
iPosE = InStr(sStdOutRes,"]")
GetServerIP = mid(sStdOutRes,iPosS+1, iPosE-iPosS -1)
If(GetServerIP="") Then GetServerIP = "Error-2"
Else
GetServerIP = "Error-1"
End If
End Function
Function SetClipboard(stringToClipboard)
On Error Resume Next
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate("about:blank")
oIE.document.parentwindow.clipboardData.SetData "text", stringToClipboard
oIE.Quit
End Function
'// =========================================================== Results examples:
'// RESULTs:
'// RESULT of sTemp:
'// W:\TOOLs\Notepad2\Notepad2.exe
'// W:\TOOLs\Notepad2\Notepad2.ini
'// RESULT of sOUT:
'// \\10.11.12.13\share_SW\TOOLs\Notepad2\Notepad2.exe
'// \\10.11.12.13\share_SW\TOOLs\Notepad2\Notepad2.ini
'// =========================================================== END
,Geht doch: \\127.0.0.1\c$\users\Wieso "C:\Users..." ??? Dies ist ein lokaler Pfad, der nicht in eine IP Adresse umgewandelt werden kann, zumindest nicht zuverlässig.
