SmallIcon Desktop avec AutoUnattented

Invité · 17/03/2014, 12h02

Bonjour à tous!

j'ai un soucis pour configurer automatiquement la mise en place de petits icons du bureau via une installation automatique sans réponse

j'ai test deux solutions sans succés! Alors que manuellement, cela fonction très bien!

J'ai remarqué, la fin de l'installation configure le bureau!
que je mettes l'éxécution via la clef reg RUN ou RUNONCE ou avec setupcomplete.cmd, ceci s'éxécute avant configure le bureau!
Donc ça ne fonctionne pas!

Comment pourais je mettre cela en place!

voici mes deux solutions:

--> solution 1 :

Fichier : RunVBS.VBS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Set WshShell = CreateObject("Wscript.Shell")


Set ofs = CreateObject("Scripting.FileSystemObject")
strScriptDir = ofs.GetParentFolderName(Wscript.ScriptFullName)
strFile = strScriptDir & "\SmallIcon.vbs"
WshShell.Run "C:\Windows\System32\cscript.exe " & Chr(34) & strFile & Chr(34)

wscript.sleep 2000

strFilea = strScriptDir & "\ReStartExploreWin.vbs"
WshShell.Run "C:\Windows\System32\cscript.exe " & Chr(34) & strFilea & Chr(34)

Fichier : SmallIcon.VBS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

'Petite taille : valeur décimal : 32 - valeur Héxadécimal : 20
'Moyenne taille : valeur décimal : 48 - valeur Héxadécimal : 30
'Grande taille : valeur décimal : 96 - valeur Héxadécimal : 60
'-- Il faut kill explorer puis le relancer!

Option Explicit
Dim objShell, strRoot, strRoot1, strModify, strDelete

strRoot = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Bags\1\Desktop\IconSize"

strRoot1 = "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\Shell Icon Size"


' Create the Shell object
Set objShell = CreateObject("WScript.Shell")

strModify = objShell.RegWrite(strRoot,"00000032", "REG_DWORD")
'WScript.Echo "Error No: " & err.number & " check " & strRoot
strModify = null


strModify = objShell.RegWrite(strRoot1,"32", "REG_SZ")
'WScript.Echo "Error No: " & err.number & " check " & strRoot1
strModify = null



WScript.Quit
' End of .RegWrite example script.

Fichier : ReStartExploreWin.vbs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
On Error Resume Next

' Kill Explorer.exe

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'explorer.exe'")

For Each objProcess in colProcessList
    objProcess.Terminate(1)
Next

' Launch Explorer.exe

Set objShell = CreateObject("Wscript.Shell") 

objShell.Run "explorer.exe" 

Set objShell = Nothing

Wscript.exit

--> solution 2 :

Fichier : REG_Run.VBS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
wscript.exe "c:\vbs\smallicondesktop\invisible.vbs" "c:\vbs\smallicondesktop\iconbur.bat"

Fichier : Invisible.VBS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CreateObject("Wscript.Shell").Run """" & WScript.Arguments(0) & """", 0, False

Fichier : IconBur.bat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
@echo off 
taskkill /im explorer.exe /f 
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Bags\1\Desktop" /v IconSize /t REG_DWORD /d 00000032 /f 
"%windir%\explorer.exe"

espère trouver une solution de votre part!
merci d'avance pour votre temps

**JML19** · 17/03/2014, 12h51

Bonjour

Tu ne peux pas le mettre dans le menu de démarrage ?

Invité · 17/03/2014, 13h23

le mettre dans Programme\Démarrer puis le supprimer?

Invité · 17/03/2014, 13h29

j'ai testé sur le clef

[HKEY_CURRENT_User\Software\Microsoft\Windows\CurrentVersion\RUN]

ainsi que

[HKEY_CURRENT_User\Software\Microsoft\Windows\CurrentVersion\RUNOnce]

ne fonctionne pas

**JML19** · 17/03/2014, 13h37

Oui dans programme/Démarrer puis lors de la fin de son exécution le supprimer du menu Démarrer.

De toute façon cela te permettrais de faire un test de fonctionnement.

Invité · 17/03/2014, 14h20

le menu démarrer est la clef de registre suivant :

[HKEY_CURRENT_User\Software\Microsoft\Windows\CurrentVersion\RUN]

**hackoofr** · 17/03/2014, 14h37

Je veux faire un test avec vous, mais manuellement comment on le fait ?

**hackoofr** · 17/03/2014, 15h07

Bon, j'ai testé mon script VBS sur mon Windows 7 (32 bits) et ça marche 5/5 et j’espère pour vous aussi

Surtout n'oubliez pas les +1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Explicit
Dim StrCmd
StrCmd = "reg add ""HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Bags\1\Desktop"" /v IconSize /t REG_DWORD /d 00000032 /f"
Call Executer(StrCmd,0)
StrCmd = "taskkill /im explorer.exe /f"
Call Executer(StrCmd,0)
StrCmd = "Start explorer.exe"
Call Executer(StrCmd,0)
'**************************************************************************************************
Function Executer(StrCmd,Console)
    Dim ws,MyCmd,Resultat
    Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
    If Console = 0 Then
        MyCmd = "CMD /C " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,True)
        If Resultat = 0 Then
'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
'La valeur 1 pour montrer la console MS-DOS
    If Console = 1 Then
        MyCmd = "CMD /K " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,False)
        If Resultat = 0 Then
'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
    Executer = Resultat
End Function
'**************************************************************************************************

**hackoofr** · 17/03/2014, 16h31

Voici un autre code avec un petit menu pour choisir la taille des icônes du bureau

Petite taille : valeur décimal : 00000032 - valeur Hexadécimal : 20
Moyenne taille : valeur décimal : 00000048 - valeur Hexadécimal : 30
Grande taille : valeur décimal : 00000096 - valeur Hexadécimal : 60

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Explicit
Dim StrCmd,intAnswer,Taille,Message
Message = "1 ==>  icones du bureau de petites tailles"& VbcrLF & VbcrLF &_
"2 ==>  icones du bureau de moyennes tailles"& VbcrLF & VbcrLF &_
"3 ==>  icones du bureau de grandes tailles"
intAnswer = InputBox(Message, "Entrer 1 ou bien 2 ou bien 3 puis valider par OK © Hackoo","1")
If intAnswer = "" Or Not IsNumeric(intAnswer) Then
    MsgBox "La valeur de la saisie est incorrect !" & VbcrLF & VbcrLF & Message,16,"Erreur de saisie"
    Wscript.Quit
End if
'************************************************************************************************
If intAnswer = 1 Then 
'Petite taille : valeur décimal : 00000032 - valeur Héxadécimal : 20
    Taille = "00000032"
    StrCmd = "reg add ""HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Bags\1\Desktop"" /v IconSize /t REG_DWORD /d "& Taille &" /f"
    Call Executer(StrCmd,0)
    StrCmd = "taskkill /im explorer.exe /f"
    Call Executer(StrCmd,0)
    StrCmd = "Start explorer.exe"
    Call Executer(StrCmd,0)
End if
'************************************************************************************************
If intAnswer = 2 then
'Moyenne taille : valeur décimal : 00000048 - valeur Héxadécimal : 30
    Taille = "00000048"
    StrCmd = "reg add ""HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Bags\1\Desktop"" /v IconSize /t REG_DWORD /d "& Taille &" /f"
    Call Executer(StrCmd,0)
    StrCmd = "taskkill /im explorer.exe /f"
    Call Executer(StrCmd,0)
    StrCmd = "Start explorer.exe"
    Call Executer(StrCmd,0)
end if
'************************************************************************************************
If intAnswer = 3 then
'Grande taille : valeur décimal : 00000096 - valeur Héxadécimal : 60
    Taille = "00000096"
    StrCmd = "reg add ""HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\Bags\1\Desktop"" /v IconSize /t REG_DWORD /d "& Taille &" /f"
    Call Executer(StrCmd,0)
    StrCmd = "taskkill /im explorer.exe /f"
    Call Executer(StrCmd,0)
    StrCmd = "Start explorer.exe"
    Call Executer(StrCmd,0)
end if
'**************************************************************************************************
Function Executer(StrCmd,Console)
    Dim ws,MyCmd,Resultat
    Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
    If Console = 0 Then
        MyCmd = "CMD /C " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,True)
        If Resultat = 0 Then
'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
'La valeur 1 pour montrer la console MS-DOS
    If Console = 1 Then
        MyCmd = "CMD /K " & StrCmd & " "
        Resultat = ws.run(MyCmd,Console,False)
        If Resultat = 0 Then
'MsgBox "Success"
        Else
            MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
        End If
    End If
    Executer = Resultat
End Function
'**************************************************************************************************

Invité · 17/03/2014, 16h34

Bonjour hackoofr

vous avez fait votre test via une installtion automatique tel que AutoUnattend?

car mes script fonctionne parfaitement sur un poste Hôte! La n'est pas le prob!

le prob est que le script se lance avant la finalisation du 1er login; ceci avec les clef reg RUN et RUNONCE ou le fichier SetupComplete.CMD!

Donc, ma question est : Ou doit-on loger le lancement du script sur une installation AutoUnattend.XML?

merci d'avance de la peine pour votre script!

Mounir

**hackoofr** · 17/03/2014, 16h40

Envoyé par taratatasoleil

vous avez fait votre test via une installtion automatique tel que AutoUnattend ?

Qu'entendez-vous par installtion automatique tel que AutoUnattend ?

Invité · 17/03/2014, 17h06

est ce que l'écriture du lancement du fichier VBS est juste dans AutoUnattend.XML?

<settings pass="oobeSystem">
...
<SynchronousCommand wcm:action="add">
<Description>IconSize Desktop</Description>
<CommandLine>cmd /k start "" /wait cscript %SystemDrive%\VBS\SmallIconDeskTop\script1.vbs</CommandLine>
<Order>2</Order>
</SynchronousCommand>
...
</settings>

merci d'avance de votre réponse

**hackoofr** · 17/03/2014, 17h26

Ok,
Si vous m'expliquer petit à petit

vous créez ce fichier AutoUnattented.xml avec quoi exactement ?

car je ne connais pas ce genre d’installation et dans quelle but ?
et qui se charge pour exécuter ce dernier ?

Invité · 17/03/2014, 17h47

le but est de créer une image soit DVD USB or Server type sysrep!

Je me focalise sur la solution DVD!
Le but d'obtenir une installation automatique sans assistance via WAIK [AutoUnattend]
Tous les paramètres de services/réseau/système/explorateur windows sont fait via un fichier central REG! (installation ok!)

le but est d'obtenir de petit icones pour le bureau!
Mes deux solutions (fichier batch ou vbs) fonctionne sur un OS test!

Lors du déployement, il y a echec¨!

J'espère avoir porté plus d'information pour votre compréhension

**hackoofr** · 17/03/2014, 18h13

et vous testez avec une VM ou autre chose ?

Invité · 17/03/2014, 18h25

bien sur que je test avec la virtualisation! VirtualBox de Oracle

Merci pour votre temps

Invité · 17/03/2014, 18h33

pour palier au problème (c'est dommage)

la première solution consiste à écrire dans la clef RUN ou RUNONCE de la base de registre la ligne de commande pour l’exécution de RUNVBS.VBS, une fois l'installation finie puis exécuter un shutdown de la machine automatiquement. Lors du redémarrage, normalement la commande mise en place préalablement devrait s'éxécuter!

la deuxième est d'attaquer via le planificateur de tâche via vbs! c'est un mistère et boule de gomme pour cette seconde solution

**hackoofr** · 17/03/2014, 18h43

Essayez ceci
<CommandLine>cmd /k start Cscript.exe %SystemDrive%\VBS\SmallIconDeskTop\script1.vbs</CommandLine>

Invité · 30/03/2014, 13h30

voici la procédure final!

!OK 4 - AutoUnattend.XML [WAIK] UAC_DesktopIconSmall.pdf

Invité · 30/03/2014, 13h35

Il faut passer par le "Planificateur de Tâches" car le paramétrage de "Petites Icônes Bureau" peut uniquement s'effectuer après la "Préparation du bureau" du process final d'installation de Windows.

SmallIcon Desktop avec AutoUnattented

Windows 7

Discussions similaires

Partager

Partager