cmd deaktivieren und aktivieren

[meteor45]

ich das bekomme ich nicht hin ^^

[Byaaaaah]

wo hängts denn. haste die registry schlüssel?

[Planxty]

HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Wind ows\System\DisableCMD
das ist der reg eintrag dafür

Probier mal sowas in der richtung:
reg.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Win dows\System\DisableCMD", "1", "REG_DWORD"

[meteor45]

and enable?
Deine Nachricht ist leider zu kurz!

[Planxty]

ganz einfach den wert ändern
0 oder 1

[meteor45]

das geht aber nicht
reg.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Win dows\System\DisableCMD", "0", "REG_DWORD"

[Nero]

Machs doch einfach mit nem Modul/Funktion...
Auf vb@rchiv wirst du fündig

[meteor45]

ja link ? pls

versteh aber nicht warum

reg.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Win dows\System\DisableCMD", "0", "REG_DWORD"

nicht geht

[Planxty]

Dim reg
Set reg = Createobject("Wscript.Shell")
reg.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Win dows\System\DisableCMD", "0", "REG_DWORD"

--> cmd enable



Dim reg
Set reg = Createobject("Wscript.Shell")
reg.regwrite "HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Win dows\System\DisableCMD", "1", "REG_DWORD"

--> cmd disable

[Nero]

Schreib folgendes in ein Modul

Public Function RegRead(Path As String) As String
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  RegRead = ws.RegRead(Path)
  Exit Function
 
ErrHandler:
  RegRead = ""
End Function

Public Function RegWrite(ByVal Path As String, _
  ByVal Value As String, _
  Optional ByVal Typ As String = "REG_SZ") As Boolean
 
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegWrite Path, Value, Typ
  RegWrite = True
  Exit Function
 
ErrHandler:
  RegWrite = False
End Function

Public Function RegDelete(Path As String) As Boolean
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegDelete Path
  RegDelete = True
  Exit Function
 
ErrHandler:
  RegDelete = False
End Function

Dann kannst du ja zwei Buttons machen:

Private Sub cmdAktiviren_Click()
RegDelete ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr")

End Sub

Private Sub cmdDeaktivieren_Click()
RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1"
End Sub