Script permettant le démappage d'un lecteur réseau à l'aide d'une application vbs : '-- déclaration des variables dim objnetwork01 const vblecteur = "z:" '-- création de l'objet objnetwork01 permettant le mappage set objnetwork01 = createobject("wscript.network") '--démappage du lecteur z: objnetwork01.removenetworkdrive vblecteur synthaxe de

Script permettant d'envoyer un mail textuel à l'aide d'une application vbs : '--création de l'objet cdo set objmessage = createobject("cdo.message") '--sujet du message objmessage.subject = "exemple d'envoi" '--expéditeur objmessage.from = "monmail@mail.net" '--destinataire objmessage.to = "sonmail@mail.net" '--corps du message objmessage.textbo

Script permettant de lancer une application windows (ici l'explorateur) : '-- déclaration des variables dim objexplorer '--création de l'objet fso nécessaire au lancement d'applications set objexplorer = createobject("wscript.shell") '--lancement de l'application avec passage de paramètres objexplorer.run("explorer.exe /e,/root,c:\documents and

Script permettant d'écrire dans un fichier texte à l'aide d'une application vbs : '-- déclaration des variables dim objfso const phrase = "scriptingvbs" '--création de l'objet fso nécessaire à l'ouverture des fichiers set objfso = createobject("scripting.filesystemobject") '--accès au fichier toto.txt set objfichiertexte = objfso.opentextfil

Script permettant de transformer un chemin de fichier en url : '-- déclaration des variables dim text, modif, url '--récupération du chemin du fichier dans une variable text = "c:\documents and settings\moi\bureau\toto.ods" '--remplacement des \ par des / modif = replace(text, "\", "/") '--inscription de l'url complète dans une variable url = "

Script permettant le mappage d'un lecteur réseau à l'aide d'une application vbs : '-- déclaration des variables dim objnetwork01 const vblecteur = "z:" const vbpathh = "\\chemin" '-- création de l'objet objnetwork01 permettant le mappage set objnetwork01 = createobject("wscript.network") '--mappage du lecteur z: grâce au chemin réseau \\chemi

Script permettant de lire la dernière ligne d'un fichier texte à l'aide d'une application vbs : '-- déclaration des variables dim objfso, objfichiertext '--création de l'objet fso nécessaire à l'ouverture des fichiers set objfso = createobject("scripting.filesystemobject") '--accès au fichier toto.txt set objfichiertexte = objfso.opentextfil