Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Registryeinträge sofort übernehmen

Frage Entwicklung Batch & Shell

Mitglied: Deboe1986

Deboe1986 (Level 1) - Jetzt verbinden

18.08.2009, aktualisiert 09:43 Uhr, 7947 Aufrufe, 5 Kommentare

Ist es möglich verschiedene Registryeinträge sofort zu übernehmen?

Hallo zusammen,

habe eine Frage bzgl. eines kleinen Projektes.

Nach der Anmeldung sollen die Desktopelemente ausgeblended und ein bestimmtes Hintergrundbild eingeblendet werden (ca. 10 Sekunden).
Danach soll das Bild wieder verschwinden und die Desktopelemente erneut erscheinen.

Bisher bin ich soweit:

01.
Const HKEY_CURRENT_USER = &H80000001 
02.
 
03.
strComputer = "." 
04.
Set wshShell = WScript.CreateObject("WScript.Shell") 
05.
 
06.
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
07.
 
08.
' Wallpaper setzen  
09.
        strValue = "C:\WINDOWS\screensaver\Wallpaper1.bmp" 
10.
 		strKeyPath = "Control Panel\Desktop" 
11.
		ValueName = "Wallpaper" 
12.
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue 
13.
		 
14.
' Wallpaper zentrieren 
15.
		ValueName = "WallpaperStyle" 
16.
		strValue = "0" 
17.
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue 
18.
 
19.
' Desktopsymbole ausblenden 
20.
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop", 1, "REG_DWORD" 
21.
 
22.
' Änderungen setzen 
23.
wshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True 
24.
 
25.
' 10 Sekunden warten 
26.
WScript.sleep 10000 
27.
 
28.
' Wallpaper wieder zurücksetzten 
29.
strValue = "" 
30.
ValueName = "Wallpaper" 
31.
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue 
32.
 
33.
'Desktopsymbole anzeigen 
34.
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop", 0, "REG_DWORD" 
35.
 
36.
' Änderungen setzen 
37.
wshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Der Code Desktopsymbole einblenden bzw. ausblenden wird jedoch erst nach der Neuanmeldung übernommen, gibt es da eine Möglichkeit, diese Änderung sofort wirksam zu machen?
Es gibt da auch ein Tool mit den Namen "Desktopsymbole ausblenden", bei dieser Datei funktioniert die Änderung sofort. Habe versucht, per Regmon herauszufinden, welche Registryeinträge geändert werden - jedoch ohne Erfolg.. Hat da jemand evtl. Erfahrung?

Vielen Dank schon einmal!

Viele Grüße,
D.B.
Mitglied: DerWoWusste
18.08.2009 um 11:44 Uhr
Moin!
Hive: HKEY_CURRENT_USER
Key: Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
Name: HideIcons
Type: REG_DWORD
Value: 1
Du könntest Dir mal dies Tool ansehen: wallpaper.exe http://home.arcor.de/st.gaumitz/progs/win_console/hintergrund/index.htm ...

Evtl. ist es in der Lage, die Registryabfrage gleich mit zu starten, so dass beides sofort geht.
Bitte warten ..
Mitglied: 81825
18.08.2009 um 12:54 Uhr
"würgdrumrum":

reg usw. hideicons=1
tskill explorer

Es dauert einen Moment, dann startet der Explorer wieder automatisch ohne Icons

reg usw. hideicons=0
tskill explorer
kleine Pause: Schwupps, sind sie alle wieder da.
Bitte warten ..
Mitglied: Deboe1986
18.08.2009 um 14:18 Uhr
Das mit dem Explorerkill ist nicht so das Wahre.. ich versuch das Ganze mal über den iexplore.exe im Kioskmodus.. und schieße dann nach 10 Sekunden die Task ab - das ist vllt. besser!! Trotzdem vielen Dank für eure Ideen und Hilfen!

Grüße
Bitte warten ..
Mitglied: dog
18.08.2009 um 15:30 Uhr
Was du wilst:

WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Grüße

Max
Bitte warten ..
Mitglied: 81825
18.08.2009 um 15:34 Uhr
Zitat von dog:
Was du wilst:


Hat er schon in Zeile 37. Nur funktioniert das leider nicht.
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Outlook & Mail
gelöst Outlook 2016 - nach Start sofort in den Kalender? (2)

Frage von Stefan007 zum Thema Outlook & Mail ...

Batch & Shell
gelöst Dateien (PDF) umbenennen via batch, teilw. Dateinamen übernehmen, neues Präfix (6)

Frage von brause1701 zum Thema Batch & Shell ...

Microsoft Office
gelöst Zellinhalt in Excel-Kopfzeile übernehmen (2)

Frage von Kyrinja zum Thema Microsoft Office ...

Windows 8
Windows 8 fährt sofort wieder herunter (6)

Frage von BAMA1971 zum Thema Windows 8 ...

Heiß diskutierte Inhalte
Switche und Hubs
LAG zwischen Cisco SG300 und Dlink DGS1100 herstellen - wie? (18)

Frage von White-Rabbit2 zum Thema Switche und Hubs ...

Grafikkarten & Monitore
Neue Graifkkarte - kein Bild (10)

Frage von bestelitt zum Thema Grafikkarten & Monitore ...

Exchange Server
gelöst Exchange 2013 - Kontakte aus CSV importieren (9)

Frage von hesper zum Thema Exchange Server ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...