Vista Besitzer eines Reg Schlüssels kurzfristig ändern

#1 Hallo Leute

Erstmal Gratulation für euer Tolles Board. So aber nun zu meinem Problem.

Ich muss bei uns in der Firma auf ca. 50 Rechnern (die während der Wartungsarbeiten alle mit einem Administrator Konto laufen) kurzfristig den Besitzer eines Registy Schlüssel ändern.

Local auf jedem Rechner einzeln ist das ja kein Problem. Nur sollte das ganze per Script ablaufen damit ich nicht 5 Stockwerke abgrasen muss.

Hat da jemand eine Idee wie ich dieses kleine Wunder unter Vista vollbringen kann?

Grüße

#2 Wenns eine große Firma ist, sind dann nicht für so verhsciedene Sachen überall Remoteprogramme drauf, um eben sowas alles von einem PC regeln zu können ?

#3 leider nein ist eine ziemlich neue Firma die ich mit einem bekannten eröffnet habe.

#4 Läuft zufällig der Remote-Registrierungsdienst auf den Clients? Dann ersparst du dir zumindest den "Turnschuh-Admin"
und editierst die Einträge händisch von deinem Host aus.

Ansonsten schaue dir vielleicht mal "SetACL" an:

Zitat

SetACL is a set of routines for managing Windows permissions (ACLs) from the command line, from scripts and from programs.[..]
Supported object types: files and directories, registry keys, printers, services, network shares.

Quelle & DL: http://setacl.sourceforge.net

Möglicherweise hilft's.

Gruß,

Sepia

#5 setalc habe ich schon getestet . Funktioniert leider unter vista nicht mehr. Gibt es unter vbs oder vb net 2005 keine Möglichkeit so etwas zu machen?

#6

Zitat

Gibt es unter vbs oder vb net 2005 keine Möglichkeit so etwas zu machen?

Sorry, das weiß ich leider nicht.

Solltest du auf eine Lösung kommen, wäre ich an Infos auch interessiert!

Gruß,

Sepia

#7 so für alle die es noch interessiert. ich habe das jetzt mit folgender Methode gelöst.

Dieses Beispiel ist in vb net 2005 programmiert und deaktiviert den Windows Defender.

Zitat

ProzessStart("/KeyReg " & """HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Defender""" & " /grant=" & doname & "\" & uname & "=F")
SaveValue("SOFTWARE\Microsoft\Windows Defender", "DisableAntiSpyware", "0")
ProzessStart("/KeyReg " & """HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Defender""" & " /grant=" & doname & "\" & uname & "=R")



Sub ProzessStart(ByVal regpfad As String)
Dim sw As New System.IO.StreamWriter("C:\xdos.txt")
Dim prog As Process = New Process
prog.StartInfo.FileName = "Security.exe"
prog.StartInfo.WorkingDirectory = Application.StartupPath
prog.StartInfo.Arguments = "SubInACL"
prog.StartInfo.Arguments = regpfad
prog.StartInfo.UseShellExecute = False
prog.StartInfo.RedirectStandardOutput = True
prog.StartInfo.CreateNoWindow = True
prog.Start()
sw.Write(prog.StandardOutput.ReadToEnd())
prog.WaitForExit()
sw.Close()
End Sub

wobei die security.exe ein Microsoft Tool mit namens subinacl.exe ist.

doname = Domainname
uname = Username

hoffe es ist für einige zu verwenden


ps: wobei R in den StartInfo.Arguments für Lese Rechte und F für Volle Rechte steht


Musste den Code noch etwas abändern da er fehlerhaft war.

#8 Danke fürs Reply. Vor allem die Sache mit der "subinacl.exe" hört sich interessant an.

Gruß,

Sepia

#9 Dieses Tool ist eigentlich ein einziger Widerspruch zu dem Teilsicherheitskonzept von Windows Vista :-)