1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| //runas
'lancement automatique d'application sans que l'utilisateur soit connecté.
'RUNAS_AUTO (c) N. CLERC 2005
'===== PERSONNALISER ICI LES INFORMATIONS EN FONCTION DE
'===== l'utilisateur et du mot de passe
application="partage.vbs"
motdepasse="xxxx"
utilisateur="Administrateur"
'===== FIN DE LA PERSONNALISATION
dim wshShell
set wshShell = WScript.CreateObject("WScript.Shell")
'wscript.echo "Lancement de " & application & " en tant qu'utilisateur " & utilisateur
wshShell.Run "cmd.exe /c ""title RUNAS_AUTO & runas.exe /user:" & utilisateur & " """ & application & """"""
wscript.Sleep(1000)
wshShell.AppActivate "RUNAS_AUTO"
wshShell.SendKeys motdepasse & "{ENTER}"
//partage.vbs
Dim OFS, MonDossier
'1 je crée la référence du dossier
Set OFS = CreateObject("Scripting.FileSystemObject")
'2 je crée le dossier toto dans le répertoire windows.
Set MonDossier = OFS.CreateFolder("c:\backup")
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
("C:\backup", "Backup$", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "Description") |
Partager