www.benquet.com

VBS

Page en Construction

Lancer un VBS avec les Droits administrateur

Pour les postes de travail à partir de la version Windows Vista

Depuis Vista des sécurités ont été ajoutées qui empêche notamment le lancement d’un script avec les droits administrateurs. C'est gênant pour automatiser certaines tâches administrative à l’aide de scripts VBS. Un contournement simple est de lancer le script nécessitant les droits administrateur à partir d’un autre script avec cette syntaxe :

set objShell = createObject("Shell.Application")
Set objFolder = objShell.Namespace("chemin du fichier VBS")
set objFolderItem = objFolder.ParseName("nom du fichier VBS.vbs")
objFolderItem.InvokeVerb "runas".

Créez un fichier VBS vide et coller ces lignes
remplacez "chemin du fichier VBS" par l'emplacement du VBS que vous voulez lancer avec les droits administrateur
remplacez "nom du fichier VBS" par le nom du fichier VBS que vous voulez lancer.

Mettre un proxy dans Internet explorer

Pour tous Windows et toutes versions de Internet explorer

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ws = WScript.CreateObject("WScript.Shell")

WS.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", "00000001", "REG_DWORD"
WS.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", "adresse ip du proxy:80", "REG_SZ"
WS.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", "<local>", "REG_SZ"

Créez un fichier VBS vide et coller ces lignes
remplacez "adresse ip du proxy" par l'IP de votre proxy

Suprimer la veille écran de Windows

Pour les postes de travail à partir de la version Windows Vista

strKeyPath = "Control Panel\Desktop\"
strDWORDValueName = "SCRNSAVE.EXE"
objReg.DeleteValue HKEY_CURRENT_USER,strKeyPath,strDWORDValueName

Créez un fichier VBS vide et coller ces lignes

Faire redémarrer un PC

Pour toutes version Windows

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.Reboot()
next

Créez un fichier VBS vide et coller ces lignes


Sites intéressants