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

Problem in VBS Script

Frage Entwicklung

Mitglied: RetroDude

RetroDude (Level 1) - Jetzt verbinden

10.07.2008, aktualisiert 14:27 Uhr, 6146 Aufrufe, 5 Kommentare

Hallo

Ich möchte mit folgendem VBS-Script die Registry unserer Clients nach dem Vorhandensein eines gewissen Werts überprüfen und diese gegebenenfalls mutieren. Die Suchfunktion funktioniert, nur die Befehle für die Schreib bzw. Löschvorgänge scheitern. Kann mir jemand sagen was in dem Teil noch nicht stimmt? Das Script scheitert bei der Variablendeklaration auf der 3. Zeile, welche für die Kommandos in der IF Schleife gilt. Was mache ich falsch?

Const HKEY_LOCAL_MACHINE = &H80000002

Dim WSHShell As Object
Set WSHShell = CreateObject ("WScript.Shell")

strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Network Associates\ePolicy Orchestrator\Agent"
strValueName = "MOD"
objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue


If IsNull(strValue) Then
Wscript.Echo "MCAfee ID ist unmodifiziert.(Key nicht vorhanden)"

WshShell.RegWrite "SOFTWARE\Network Associates\ePolicy Orchestrator\Agent", "MOD" , "REG_SZ" , "Dummykey"
WshShell.RegDelete "SOFTWARE\Network Associates\ePolicy Orchestrator\Agent", "AgentGUID"
Else
Wscript.Echo "MCAfee ID ist modifiziert. (Key vorhanden)"
End If

Vielen Dank im Voraus!
Mitglied: Logan000
10.07.2008 um 12:17 Uhr
Moin

Du kannst in vbs keine Variablentypen deklarieren.
Versuchs so:
01.
Const HKEY_LOCAL_MACHINE = &H80000002 
02.
Dim WSHShell  
03.
Set WSHShell = CreateObject ("WScript.Shell") 
04.
strComputer = "." 
05.
...
Gruß L.
Bitte warten ..
Mitglied: RetroDude
10.07.2008 um 12:44 Uhr
Danke! Nun habe ich noch ein weiteres Problem. Er meckert auch noch bei der WshShell.RegWrite Zeile. "Falsche Anzahl an Argumenten oder ungültige Eigenschaftszuweisung 'RegWrite' Code 800A01C2 " Ich möchte mit diesen Befehlen die Registry der Clients modifizieren. Was mache ich da noch falsch?
Gruss

angepasster Code:
Const HKEY_LOCAL_MACHINE = &H80000002

Dim WSHShell
Set WSHShell = CreateObject ("WScript.Shell")

strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Network Associates\ePolicy Orchestrator\Agent"
strValueName = "MOD"
objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue


If IsNull(strValue) Then
Wscript.Echo "MCAfee ID ist unmodifiziert.(Key nicht vorhanden)"

WshShell.RegWrite "SOFTWARE\Network Associates\ePolicy Orchestrator\Agent", "MOD" , "REG_SZ" , "Dummykey VOL-GS-IT"
WshShell.RegDelete "SOFTWARE\Network Associates\ePolicy Orchestrator\Agent", "AgentGUID"
Else
Wscript.Echo "MCAfee ID ist modifiziert. (Key vorhanden)"
End If
Bitte warten ..
Mitglied: Logan000
10.07.2008 um 14:00 Uhr
Also 1.
So solten die Zeilen RegRead und RegWrite funktionieren
01.
.. 
02.
WshShell.RegWrite "HKML\SOFTWARE\Network Associates\ePolicy Orchestrator\Agent\MOD","Dummykey" 
03.
WshShell.RegDelete "HKML\SOFTWARE\Network Associates\ePolicy Orchestrator\Agent\AgentGUID"  
04.
...
2. Diese ändern die lokale Registry.
Also die registry des jeweiligen Clients auf dem das Skript gerade ausgefürt wird.
Willst Du also das Skript lokal ausführen und remote auf einem Client die Reg. bearbeits solte das so aussehen: (ungetestet)
01.
.. 
02.
objRegistry.SetStringValue HKEY_LOCAL_MACHINE,"SOFTWARE\Network Associates\ePolicy Orchestrator\Agent\","MOD","Dummykey" 
03.
objRegistry.DeleteValue HKEY_LOCAL_MACHINE,"SOFTWARE\Network Associates\ePolicy Orchestrator\Agent\","AgentGUID" 
04.
...
Diese Seite dürfte dir weiterhelfen: http://www.microsoft.com/technet/scriptcenter/scripts/os/registry/defau ...

Gruß L.
Bitte warten ..
Mitglied: RetroDude
10.07.2008 um 14:11 Uhr
Danke, habs doch noch rausgefunden. Verwende Variante 2. Dies funktioniert lokal. Nur noch ne kleine Frage. Was bedeutet der Punkt in strComputer = "." ? Verweist dies auf localhost? Kann ich den durch Hostnamen ersetzen und so den Script remote einsetzen?

Vielen Dank soweit!

Gruss
Bitte warten ..
Mitglied: Logan000
10.07.2008 um 14:27 Uhr
Was bedeutet der Punkt in strComputer = "." ? Verweist dies auf localhost?
Ja.
Kann ich den durch Hostnamen ersetzen und so den Script remote einsetzen?
Ja.

Gruß L.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBS Script kann Prgramm nicht starten
gelöst Frage von C.BoernerVB for Applications15 Kommentare

Hallo ihr Admins, Ich habe folgendes Scenarios ein Programm läuft im Hintergrund (Drivve-Image) das übergibt Werte an ein VBS ...

Batch & Shell
Hilfe Bei einem vbs Script
gelöst Frage von Hattori-HanzoBatch & Shell19 Kommentare

Hey Leute Könnt ihr mir bitte sagen was daran falsch ist? beschäftige mich erst seit kurzem mit vbs scripts. ...

JavaScript
VBS-Script wird nicht vollständig ausgeführt
Frage von HousefrauJavaScript3 Kommentare

Hallo zusammen, wir lassen über eine Gruppenrichtlinie einen Script ausführen, welcher die Drucker der einzelnen Parteien mappen soll. Leider ...

Entwicklung
VBS Script in Powershell aufrufen
gelöst Frage von HanutaEntwicklung7 Kommentare

Hallo Zusammen, ich möchte einen VBS Script in Powershell aufrufenist das überhaupt möglich ? Wenn ja, wie ? VG ...

Neue Wissensbeiträge
Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 1 StundeWindows 101 Kommentar

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 3 StundenSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 1 TagViren und Trojaner2 Kommentare

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 1 TagRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Brainstorming, einfachste Option 1 getrenntes LAN (mit WAN zugang)
Frage von 132954LAN, WAN, Wireless13 Kommentare

Hi, folgendes: Wir bekommen eine Glasfaser Leitung, Und das sollte Optional so aussehen: Ein Modem/Router für das WAN, ein ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell12 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Netzwerkgrundlagen
Hi eine blöde frage. xD
Frage von 132954Netzwerkgrundlagen12 Kommentare

Also: Habe 2012 r2 essentials neuinstalliert, allerdings installiert diese version ja gleich diesen gangen AD kram mit, den hab ...