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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123
| MsgBox "Script d'aide à la configuration des PC"
'########################################
MsgBox "Cliques sur OK pour lancer Mon appli"
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://Mon appli.html"
Dim Shell, DesktopPath, URL
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Mon appli.URL")
URL.TargetPath = "http://Mon appli.html"
URL.Save
'########################################
Wscript.Sleep 2000 ' durée en ms .. 2000 => 2 s
'########################################
MsgBox "Cliques sur OK pour Mon appli1"
IE.Visible = True
IE.navigate "http://Mon appli1.htm"
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\http://Mon appli1.URL")
URL.TargetPath = "http://Mon appli1.htm"
URL.Save
'########################################
Wscript.Sleep 2000 ' durée en ms .. 2000 => 2 s
'########################################
MsgBox "Cliques sur OK pour lancer Mon appli2"
IE.Visible = True
IE.navigate "http://Mon appli2.html"
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\Mon appli2.URL")
URL.TargetPath = "Mon appli2.html"
URL.Save
'########################################
Wscript.Sleep 2000 ' durée en ms .. 2000 => 2 s
'########################################
MsgBox "Cliques sur OK pour créer la connexion au lecteur réseau"
Dim oNet
Set oNet = CreateObject("Wscript.Network")
oNet.MapNetworkDrive "Y:", "\\xxxxx\yyyyy\zzzzz"
'Ici je souhaite créer un raccourci bureau
'########################################
Wscript.Sleep 2000 ' durée en ms .. 2000 => 2 s
'########################################
'Script de génération du profil exchange xxxxx
MsgBox "Cliques sur OK pour créer la BAL xxxxx"
const ExchangeServer = "xxxxx"
dim user
'recuperation de l'utilisateur connecté
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("PROCESS")
chemin = WshSysEnv("USERPROFILE")
'user = inputbox("saisir le nom d'utilisateur","utilisateur xxxxx")
user = "xxxxx"
'ouverture du fichier à modifier
set objFso = WScript.CreateObject("Scripting.FileSystemObject")
'verifie la presence du fichiers
If (objFSO.FileExists(".\Acc.reg")) then
'Creation du fichier
utiliser
if objFSO.FileExists(chemin & "\acc" & user & ".reg") then
objFSO.deleteFile(chemin & "\acc" & user & ".reg")
end if
set RegFile = objFSO.CreateTextFile (chemin & "\acc" & user & ".reg",True,-1)
'modification du texte
Set fic = objFSO.OpenTextFile(".\Acc.reg",1,True, -1)
ContenuFic = fic.readall
ContenuFic=split(ContenuFic,vbcrlf)
Fic.close
set fic = nothing
replstr1 = "USERBAL"
replstr2 = "EXCHSERVER"
for each ligne in ContenuFic
if instr(ucase(ligne),replstr1)>0 then
ligne = replace (ligne,replstr1,user,1,-1,1)
end If
if instr(ucase(ligne),replstr2)>0 then
ligne = replace (ligne,replstr2,ExchangeServer,1,-1,1)
end if
RegFile.writeline ligne
next
else
msgbox "Attention ! le fichier ACC.reg n'est pas present"
wscript.quit
end if
RegFile.close
'inscription des informations au registre
CmdLine = "reg import """ & chemin & "\acc" & user & ".reg"""
objexec = WshShell.Run("cmd /C" & CmdLine, 1, TRUE)
'suppression du fichier
objFSO.deleteFile(chemin & "\acc" & user & ".reg")
set objFSO = nothing
set WshShell = nothing
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("outlook.exe" , 1, true)
'Ici je souhaite renseigner (voir shoot écran en PJ) automatiquement
'########################################
Wscript.Sleep 2000 ' durée en ms .. 2000 => 2 s
'########################################
MsgBox "Configuration terminée !" |
Partager