Hallo wer-weiss-was user
vielleicht kennt mich noch jemand, ich war hier mal wegen einer wette mit meinem Lehrer…
Jedenfalls ist er wohl so begeistert von mir, dass er mich wohl zum ,Hilfsadministrator´´ machen will naja… nun versuche ich mit seiner hilfe Sicherheitslücken im System zu finden!
p.s Batch dateien kann man nicht deaktivieren, da das system damit arbeitet!
so nun habe ich folgenden dos-code gefunden:
@echo off
set regpath=hkcu\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
reg query %regpath% /v Hidden |findstr „0x2“
if %errorlevel%==0 reg add %regpath% /v Hidden /t REG_DWORD /d 0x1 /f
if %errorlevel%==1 reg add %regpath% /v Hidden /t REG_DWORD /d 0x2 /f
reg query %regpath% /v SuperHidden |findstr „0x1“
if %errorlevel%==0 reg add %regpath% /v SuperHidden /t REG_DWORD /d 0x0 /f
if %errorlevel%==1 reg add %regpath% /v SuperHidden /t REG_DWORD /d 0x1 /f
reg query %regpath% /v ShowSuperHidden |findstr „0x0“
if %errorlevel%==0 reg add %regpath% /v ShowSuperHidden /t REG_DWORD /d 0x1 /f
if %errorlevel%==1 reg add %regpath% /v ShowSuperHidden /t REG_DWORD /d 0x0 /f
Der Code gibt einem folgende rechte: Dateiatribute verändern, Versteckte Dateien sehen…
so das ist schon mal super und war auch der auslöser für die idee mit dem admin…
folgenden code habe ich auch gefunden aber er geht nicht!! warum?
On Error Resume Next
'get main objects/variables
Set ws = WScript.CreateObject ( „WScript.Shell“ )
compname = ws.ExpandEnvironmentStrings ( „%wks-if3-03%“ )
Set adGrp = GetObject ( „WinNT://“ & compname & „/Administratoren,group“ )
pause
'add domain groups to local admin group
adGrp.Add ( „WinNT://gsfnet/.localadmin,group“ )
'adGrp.Add ( „WinNT://domain/groupname,group“ )
pause
'handle errors
If (Err.Number 0) Then
strError = „AddAdmins.vbs was unable to add the specified groups to the local Administrators group.“
strError = strError & vbCrLf & vbCrLf
strError = strError & "Error #: " & Err.Number & vbCrLf
strError = strError & "Source: " & Err.Source & vbCrLf
strError = strError & "Description: " & Err.Description & vbCrLf
ws.LogEvent 1, strError
Else
ws.LogEvent 0, „The local Administrators group was successfully updated.“
End If
pause
exit
DANKE FÜRS DURCHLESEN/kämpfen