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
Kommentar vom Moderator Biber am 13.08.2009 um 20:34:26 Uhr
Verschoben von "Windows" nach "Batch & Shell".
GELÖST

Frage zu VB-Scripting

Frage Entwicklung Batch & Shell

Mitglied: awiterra

awiterra (Level 1) - Jetzt verbinden

13.08.2009, aktualisiert 20.08.2009, 5257 Aufrufe, 5 Kommentare

Hallo VBs mächtiges Volk ,

spiele hinundwieder mit vbs anmeldescripts rum. Habe folgendes Script zur änderung der Sprach- und Regionseinstellungen erstellt:

Set WshShell = WScript.CreateObject("WScript.Shell")

WSHShell.regwrite "HKCU\Control Panel\International\iCountry", "49", "REG_SZ"
WSHShell.regwrite "HKCU\Control Panel\International\iCurrDigits", "2", "REG_SZ"
WSHShell.regwrite "HKCU\Control Panel\International\iCurrency", "3", "REG_SZ"
WSHShell.regwrite "HKCU\Control Panel\International\iDate", "1", "REG_SZ"
WSHShell.regwrite "HKCU\Control Panel\International\iDigits", "2", "REG_SZ"..................

Das Script funktioniert, sieht allerdings nicht schön aus, da sehr viele Registryeinträge gesetzt werden müssen. Kann ich das Script schöner aussehen lassen, oder kann ich ein komplettes Registry-Hive mit dem Script ändern? Bin für alle Vorschläge dankbar.

Gruß
Mitglied: bastla
13.08.2009 um 18:39 Uhr
Hallo awiterra!

Bis auf ein "Herausheben" des gleichbleibenden Teiles, also etwa
01.
RegPath = "HKCU\Control Panel\International\" 
02.
 
03.
WSHShell.RegWrite RegPath & "iCountry", "49", "REG_SZ" 
04.
WSHShell.RegWrite RegPath & "iCurrDigits", "2", "REG_SZ" 
05.
WSHShell.RegWrite RegPath & "iCurrency", "3", "REG_SZ" 
06.
WSHShell.RegWrite RegPath & "iDate", "1", "REG_SZ" 
07.
WSHShell.RegWrite RegPath & "iDigits", "2", "REG_SZ"
lässt sich nicht allzuviel machen - das Auslagern der zuzuweisenden Werte in ein Array und Abarbeiten des Ganzen per Schleife wäre zwar möglich, sähe dann aber etwa so aus:
01.
RegPath = "HKCU\Control Panel\International\" 
02.
 
03.
Values = Array( _ 
04.
"""iCountry"", ""49"", ""REG_SZ""", _ 
05.
"""iCurrDigits"", ""2"", ""REG_SZ"", _ 
06.
... 
07.
"""iDigits"", ""2"", ""REG_SZ""") 
08.
 
09.
For Each V In Values 
10.
    WSHShell.RegWrite RegPath & V 
11.
Next
- keine echte Verbesserung, würde ich meinen ...

Als Alternative (um tatsächlich ein komplettes Registry-Hive zu ändern) könntest Du den entsprechenden Zweig mit allen gewünschten Werten exportieren und dann per
01.
RegFile = "\\Server\Share\Region.reg" 
02.
WSHShell.Run "regedit /s " & RegFile, 0, True
auf dem Zielrechner importieren.

Anmerkung: Alles ungetestet ...

Grüße
bastla
Bitte warten ..
Mitglied: awiterra
13.08.2009 um 19:47 Uhr
Hallo bastla, na das ist doch schonmal was
besten Dank für die schnelle Hilfe...

Gruß
Bitte warten ..
Mitglied: awiterra
20.08.2009 um 11:05 Uhr
Hab doch noch ein Anliegen: Beim ausführen der dritten Alternative bekomme ich einen Laufzeitfehler in Zeile 2, Zeichen 1. Als Fehler steht Objekt erforderlich "WSHShell".

Woran liegt das?

Gruß
Bitte warten ..
Mitglied: bastla
20.08.2009 um 14:36 Uhr
Hallo awiterra!

So wie auch bei den anderen Beispielen habe ich vorausgesetzt, dass es bereits weiter oben im Script eine Zeile
Set WshShell = WScript.CreateObject("WScript.Shell")
gibt - falls diese also fehlen sollte, wäre die Fehlermeldung damit zu erklären.

Grüße
bastla
Bitte warten ..
Mitglied: awiterra
20.08.2009 um 19:32 Uhr
Jetzt, wo du es sagst

Danke nochmal...
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Bash scripting
gelöst Frage von HighShooterBatch & Shell3 Kommentare

Hallo, für meinem Server auf Debian 8 soll ich einen Script schreiben; der sollte folgendes beinhalten: eine Datei von ...

Perl
Perl Scripting routen
gelöst Frage von fredo788Perl13 Kommentare

Hallo, ich habe Probleme mit einem Perl Script. Anmerken muss ich, dass ich sehr unerfahren mit Perl bin. Auf ...

Windows Netzwerk
Scripting in Windows Netzwerk
Frage von VancouveronaWindows Netzwerk2 Kommentare

Salut, manche Dinge löse ich immer noch gerne - trotz GPO - per Script. Heute habe ich ein Phänomen ...

Webbrowser
IE11 Active Scripting Probleme
Frage von RicoPausBWebbrowser3 Kommentare

moinmoin aufgrund dieser ganzen Drive-By Stolperfallen würde ich gerne ActiveScripting im IE11 deaktivieren und nur erlaubte Seiten in die ...

Neue Wissensbeiträge
Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 2 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 3 TagenWebbrowser7 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 3 TagenSicherheit6 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Digitiales Fernsehen

Apple TV: Amazon Prime App ist verfügbar

Information von Frank vor 4 TagenDigitiales Fernsehen4 Kommentare

Die Amazon Prime Video App kann ab sofort auf einem Apple TV ab der 3 Generation installiert werden. Einfach ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...