Top-Themen

Aktuelle Themen (A bis Z)

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

VBS Registry-Einträge ändern

Frage Entwicklung VB for Applications

Mitglied: Dynamic94

Dynamic94 (Level 1) - Jetzt verbinden

15.06.2012, aktualisiert 14:11 Uhr, 4552 Aufrufe, 2 Kommentare

Hallo zusammmen

Ich würde gerne in VBS erstellen, welches mich zuerst fragt, ob ich denn Bildschirmschoner aktivieren will (JA, NEIN, ABBRECHEN).

--> Beim Klick auf JA soll unter "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop" der REG_SZ-Wert "ScreenSaveActive" erstellt und auf 0 gesetzt werden.

--> Beim Klick auf NEIN soll unter "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop" der REG_SZ-Wert "ScreenSaveActive" erstellt und auf 1 gesetzt werden.

--> Beim Klick auf ABBRECHEN soll nichts passieren.


Könnt Ihr mir da weiterhelfen?

Folgendes hab ich schon erstellt, vielleicht hilft Euch das weiter.

01.
strFrage = "Präsentationsmodus einschalten (Bildschirmschoner wird deaktiviert)?" 
02.
strTitel = "Präsentationsmodus" 
03.
strReadOnly = MsgBox(strFrage, vbYesNoCancel+vbQuestion, strTitel) 
04.
 
05.
Select Case strReadOnly 
06.
Case vbYes 
07.
	WshShell.RegAdd "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop" /v ScreenSaveActive /t REG_SZ /d 0 /f 
08.
Case vbNo 
09.
	WshShell.RegAdd "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop" /v ScreenSaveActive /t REG_SZ /d 1 /f 
10.
End Select
[Edit Biber] Codeformatierung [/Edit]
Mitglied: Berrnd
15.06.2012 um 15:31 Uhr
Hi,

Freitagnachmittagsmüdigkeit?

Mit zwei drei Wörtern googlen findet man mehrere quasi fertige Scripts.
http://testautomation-theotherside.blogspot.de/2012/02/disable-enable-s ...

Gruß, Bernd
Bitte warten ..
Mitglied: AndreasHoster
15.06.2012 um 16:16 Uhr
Ähm, ich vermisse die Fragestellung.
Ich möchte ...
Ich habe schon gemacht ...
Und was ist letztendlich das Problem?

OK, ich sehe das Problem auch so, ich mache ja genügend Benutzersupport wo mir auch niemand genau sagt was das Problem ist, aber eigentlich würde ich erwarten, daß Du schreibst ob das Skript schlichtweg nicht tut was Du willst oder welche Fehlermeldung kommt etc.


1. Das Objekt WSHSHELL ist nicht definiert
2. Die Methode bei WSHSHELL heißt RegWrite
3. Die Parameter müssen natürlich anders angegeben werden.

01.
strFrage = "Präsentationsmodus einschalten (Bildschirmschoner wird deaktiviert)?" 
02.
strTitel = "Präsentationsmodus" 
03.
strReadOnly = MsgBox(strFrage, vbYesNoCancel + vbQuestion, strTitel) 
04.
Set wshshell=CreateObject("WScript.Shell") 
05.
 
06.
Select Case strReadOnly 
07.
Case vbYes 
08.
	wshshell.regwrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop\ScreenSaveActive", 0, "REG_SZ" 
09.
Case vbNo 
10.
	wshshell.regwrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop\ScreenSaveActive", 1, "REG_SZ" 
11.
End Select
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung
Registry Eintrag per GPO ändern
gelöst Frage von ArberBerWindows Userverwaltung10 Kommentare

Hallo, Um im Thema GPOs fit zu werden, hab ich angefangen mich ein wenig damit zu befassen. Ich würde ...

Windows 7
Registry Eintrag per CMD ändern - Änderung wird nicht übernommen
gelöst Frage von BlubberbadWindows 73 Kommentare

Hey Leute :) ich möchte per CMD die Systemschriftgröße von Windows 7 ändern. Ich hab schon herausgefunden, dass ich ...

Windows 7
Frage zu Registry Einträge (Netzlaufwerke)
gelöst Frage von Axel90Windows 73 Kommentare

Guten Morgen, Unter dem Schlüssel HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2 sind ja alle verbundenen Netzlaufwerke gespeichert. Kann mir jemand sagen, was es mit ...

Windows 10
Gänderte Registry einträge auslesen
gelöst Frage von winterj86Windows 103 Kommentare

Hallo, im Zuge eines Troulbeshootings wurden vor einigen Tagen auf einem Client, Registry Werte verändert bzw. hinzugefügt. Leider hat ...

Neue Wissensbeiträge
Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 51 MinutenMac OS X

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser ereichbar sind. Leider fehlt ...

Datenschutz

Weitere Inforamtionen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 7 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 9 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 12 StundenMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1017 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...