Dienst auf Server als User über Managementkonsole des Clients starten

[blub 115]

Ja, aber in dem Kontext?

[NorbertFe 2.027]

Ja, ich kann auch schreiben Windows 2003 ohne Servicepack. Ist aber länger als Windows 2003 RTM, oder? ;)

 

Bye

Norbert

[lefg 276]

Und womit genau? ;)

 

Mit dem Ding zwischen meinen Ohren. ;)

 

Jetzt klappt es.

 

S-1-5-21-606747145-682003330-328804967-4606

 

Die OU Groups gehört in die Root, Security ist in Groupps, in Security die Gruppe Dienstzugriff.

bearbeitet 7. Juli 2011 von lefg

[lefg 276]

Nur dies Ding will immer noch nicht, es tut nichts, gibt keine Meldung.

 

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

strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")

Set objOS = objWMIService.InstancesOf("Win32_OperatingSystem")

 

Dim blnIsWin2003Sp1

 

strSDDL = "D:(A;;CCLCRPRC;;; S-1-5-21-606747145-682003330-328804967-4606)(A;;CC;;;AU)(A;;CCLCRPRC;;;IU)(A;;CCLCRPRC;;;SU)(A;;CCLCRPWPRC;;;SY)(A;;KA;;;BA)S:(AU;FA;KA;;;WD)(AU;OIIOFA;GA;;;WD)"

 

For Each OS In objOS

If OS.primary Then

If Left(OS.Version, 3) = "5.2" And (OS.ServicePackMajorVersion = 1) Then

blnIsWin2003Sp1 = True

Exit For

End If

End If

Next

 

If blnIsWin2003Sp1 Then

On Error Resume Next

 

If WshShell.RegRead ("HKLM\Software\SDDLScript\DiensteZugriff") = False Then

 

WshShell.LogEvent 4, "SDDL Skript wurde auf diesem Computer noch nicht ausgeführt."

 

Dim temp

temp = "sc \\" & strComputer & " SDSet SCManager " & strSDDL

WshShell.RegWrite ("HKLM\Software\SDDLScript\DiensteZugriff"), "TRUE", "REG_SZ"

 

Return = WshShell.run(temp,1,True)

 

If Return=1 Then

 

objShell.LogEvent 1, "Änderung der Dienststeuerungs-Manager Berechtigungen fehlgeschlagen."

Else

WshShell.LogEvent 0, " Dienststeuerungs-Manager Berechtigungen wurden erfolgreich geändert."

End If

Set objShell = Nothing

End If

 

End If

WScript.Quit(0)

[NorbertFe 2.027]

Das Ding schreibt ins Eventlog. Ansonsten müßte man das ggf. nochmal Troubleshooten, aber nur damit der TO der sich hier ja anscheinend ausgeklinkt hat, was lesen kann, wär mir das jetzt zu aufwändig. ;)

 

Bye

Norbert

[lefg 276]

Ich komme gerade von einem Blick aus dem Eventlog, da steht es drin.

 

Noch ein Schau in die Registry, der Eintrag ist da.

 

Werter Norbert,

 

ich danke für deine Hilfe, für die Geduld.

 

Gruß

 

Edgar

[NorbertFe 2.027]

Na danke für die Bestätigung. :)

 

Bye

Norbert

[blub 115]

Ja, ich kann auch schreiben Windows 2003 ohne Servicepack. Ist aber länger als Windows 2003 RTM, oder? ;)

 

Bye

Norbert

 

ne, das ist nicht dasselbe.

[NorbertFe 2.027]

Ok, wo ist der Unterschied (für mich/dich)?

 

Bye

Norbert

[NorbertFe 2.027]

ich danke für deine Hilfe, für die Geduld.

 

Kein Problem übrigens, aber es bestätigt mich wieder darin, dass solche Artikel wenig bis gar nicht gelesen werden. ;) Vielleicht liegts ja an der Schreibweise (will ich nicht komplett ausschliessen).

 

Nix für ungut

Norbert