OpenVPN passtos does not work
no windows passtos num funciona! hahahaha!
no windows passtos num funciona! hahahaha!
Sub MergeDocs()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
Const strFolder = "C:\Book\Chapters\" 'change to suit
Set MainDoc = Documents.Add
strFile = Dir$(strFolder & "*.doc") ' can change to .docx
Do Until strFile = ""
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
Selection.InsertBreak Type:=wdPageBreak ' inserir quebra de página
rng.InsertFile strFolder & strFile
strFile = Dir$()
Loop
End Sub
http://www.rlmueller.net/index.html
dsquery ou > xana.txt
/usr/bin/smbclient -L HOSTNAME -U user
smb://nome_de_utilizador:palavrapasse@NOME_PC/NOME_IMPRESSORA