Get source code in Server in my office

Hi

I need to see (only) the source code in server in office , I get to Service Desk, but very slow to provide


Are there some other way to get it ?


tia

Hi, Try this :

PHP Code:

---

URL = InputBox("Entrez l'URL pour y extraire son Code Source HTML "&vbCr&vbcr&_
"Exemple ""http://www.google.fr""","Extraction du Code Source"," http://www.monip.org")
If URL = "" Then WScript.Quit 
Titre = "Extraction du Code Source de " & URL
Set ie = CreateObject("InternetExplorer.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject") 
ie.Navigate(URL) 
ie.Visible=false
DO WHILE ie.busy
LOOP
DataHTML = ie.document.documentElement.innerHTML
DataText = ie.document.documentElement.innerText
strFileHTML = "CodeSourceHTML.txt"
Set objHTMLFile = objFSO.OpenTextFile(strFileHTML,2,True)
objHTMLFile.WriteLine(String(120,"*") &vbcr& Titre&" au format Texte "&vbcr&String(120,"*"))
objHTMLFile.WriteLine(DataText &vbcr& String(120,"*"))
objHTMLFile.WriteLine(Titre&" au format HTML "&vbcr&String(120,"*"))
objHTMLFile.WriteLine(DataHTML)
objHTMLFile.Close
ie.Quit 
Set ie=Nothing
 Ouvrir(strFileHTML)
wscript.Quit

Function Ouvrir(File)
    Set ws=CreateObject("wscript.shell")
    ws.run "Notepad.exe "& File,1,False
end Function 


---

Thank you , but How can I to use It? :blush::blush::blush::blush:

Tia

Quote:

---

Originally Posted by mutley

but How can I to use It?

---

Just copy and paste the code above in your notepad and save it as SourceCode.vbs and execute it by double clic on it