Beiträge von ytwinky

;<AutoItScript>
Opt("MustDeclareVars", 1)  ;0=ohne, 1=erfordert Variablen-Deklaration
#NoTrayIcon  ;Ohne Icon im Tray, hängende Prozesse im ProcessViewer beenden
;+----------------------------------------------------------------------------+
;|    Header: Bestimmen der Übergabeparameter                                 |
;|    ( Alles Strings(!!!), bis auf ArgC )                                    |
;|    FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins         |
Const $Autor="Modem.au3 ©2006 by ytwinky, MD";                                |
;|    AutoIt3-Version: 3.1.1.119(beta)                                        |
;|    Editor: SciTE 1.68, feste Schriftart                                    |
;|    Zweck : Schablone für den Anfang, nach Bedarf anpassen                  |
;|    Tab auf 2 setzen wg. Lesbarkeit                                         |
;+----------------------------------------------------------------------------+
If Not IsAdmin() Then
	Const $RegKey="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon"
	Dim $du=RegRead($RegKey, "DefaultUserName")
	RunAsSet($du, @Computername, RegRead($RegKey, "DefaultPassword"))
EndIf


Opt("WinTitleMatchMode", 4) ;1=start, 2=subStr, 3=exact, 4=advanced
Run(@SystemDir &"\mmc.exe devmgmt.msc", @SystemDir)
If WinWaitActive("classname=MMCMainFrame") Then
	Sleep(200)
	Send("{Tab}{Tab}")
 	Send("!tn")
	Send("!{F4}")
EndIf


RunAsSet(); Admin-Rechte zurücknehmen
Opt("WinTitleMatchMode", 1) ; s.o.
Exit Not IsAdmin() ;meldet also immer<>0 für NichtAdmins..
;</AutoItScript>

;<AutoItScript>
;Opt("MustDeclareVars", 1)  ;0=no, 1=require pre-declare
#NoTrayIcon
;+----------------------------------------------------------------------------+
;|    Header: Bestimmen der Übergabeparameter                                 |
;|    ( Alles Strings(!!!), bis auf ArgC )                                    |
;|    FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins         |
Const $Author="AntiSpy.au3 ©2006 by ytwinky, MD";                             |
;|    EMail: [EMAIL]PIII1kSystem-AutoIt3Forum@yahoo.de[/EMAIL]                               |
;|    (Tastenkombination: keine)                                              |
;|    AutoIt3-Version: 3.1.1.118(beta)                                        |
;|    Editor: SciTE 1.67, feste Schriftart                                    |
;|    Zweck : Ruft Same.Exe mit großem Feld und ohne Sound auf                |
;|    Tab auf 2 setzen wg. Lesbarkeit                                         |
;+----------------------------------------------------------------------------+
Const $Titel="xp-AntiSpy"
Const $Mes1="Error 404..", $Mes2=$Titel &" nicht gefunden.."
Const $Mes3=" ist wohl nicht (richtig) installiert.." &@Lf &"Jetzt suchen ?"
Const $Mes4=" suchen..", $Mes5="Nur Exe(*.Exe)"


Dim $AntiSpy=GetRegAppDir($Titel), $Handle
If $AntiSpy="" Then ; Ooops..
	MsgBox(4096, $Mes1, $Mes2)
Else ; Ok, let's do it..
	Run($AntiSpy) ; should work with EggsPee..
	WinWaitActive(WinGetHandle($Titel)) ; w8 .. Window active
        Sleep(100) ;besser isses..
	ControlClick($Titel, "", "Button1") ; ..and close the f..ing ebay-thingy
EndIf


;<Unterprogramme>


Func GetRegAppDir($Which) ;funzt
	Local $RegKey="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths"
	Local $i, $s, $w, $Fehler
	Do
		$i+=1
		$w=RegEnumKey($RegKey, $i)
		$Fehler=@Error
		If $Fehler=0 Then
			If StringInstr(StringLower($RegKey &$w), StringLower($Which)) Then $s=RegRead($RegKey &$w, "")
		EndIf
	Until $Fehler<>0
	If $s="" Then
		If MsgBox(4096+48+4, "Ooops..", $Which &$Mes3)<>6 Then Exit
		$s=FileOpenDialog($Which &$Mes4, "Desktop", $Mes5)
	EndIf
	Return $s
EndFunc


;</AutoItScript>

;<AutoItScript>
Opt("MustDeclareVars", 1)  ;0=ohne, 1=erfordert Variablen-Deklaration
#NoTrayIcon  ;Ohne Icon im Tray, hängende Prozesse im ProcessViewer beenden
;+----------------------------------------------------------------------------+
;|    Header: Bestimmen der Übergabeparameter                                 |
;|    ( Alles Strings(!!!), bis auf ArgC )                                    |
;|    FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins         |
Const $Autor="ShowDriveLettersFirst.au3 ©2006 by ytwinky, MD";                |
;|      EMail: [EMAIL]PIII1kSystem-AutoIt3Forum@yahoo.de[/EMAIL]              |
;|    AutoIt3-Version: 3.1.1.118(beta)                                        |
;|    Editor: SciTE 1.67, feste Schriftart                                    |
;|    Zweck : Schablone für den Anfang, nach Bedarf anpassen                  |
;|    Tab auf 2 setzen wg. Lesbarkeit                                         |
;+----------------------------------------------------------------------------+
;jetz läufts.. sorry
Dim $RegVal="ShowDriveLettersFirst", $SubKey="\Software\Microsoft\Windows\CurrentVersion\Explorer", $Msg, $i
Dim $RootKeys[3]=["HKEY_CURRENT_USER", "HKEY_LOCAL_MACHINE", "HKEY_USERS"]
$i=myGetSID("DeinBenutzer", "DeinServerOderRechner", True) ; ,True kann natürlich weggelassen werden, ist ja default
$RootKeys[2]&=StringLeft($i, StringInstr($i, @Tab)-1)
$Msg="SubKey für alle RootKeys=" &$SubKey &@CRLF
For $i=0 To 2
        $Msg&=$RootKeys[$i] &"  " &RegRead($RootKeys[$i] &$SubKey, $RegVal) &@CrLf ;
Next
$Msg&=$RootKeys[0] &"..\Policies..  " &RegRead($RootKeys[0] &StringReplace($SubKey, "\E", "\Policies\E"), $RegVal) &@CrLf ;
$Msg&=$RootKeys[1] &"..\Policies..  " &RegRead($RootKeys[0] &StringReplace($SubKey, "\E", "\Policies\E"), $RegVal) &@CrLf ;
$Msg&="Was hier angezeigt wird ist eigentlich egal, es geht um die Anwendung von myGETSID()"
MsgBox(4096, "ShowDriveLettersFirst", $Msg)
Exit 1


;Unterprogramme
;~ ' 1 = only network drive show first
;~ ' 2 = no drive letters whatseover
;~ ' 3/0 = no change??!?!?!
;~ ' 4 = always first
;~ ' RootKeys[0] &StringReplace($SubKey, "\E", "\Policies\E")
; RootKeys[1] &StringReplace($RegKey, "\E", "\Policies\E")


Func myGetSID($User="", $Host="", $NurEiner=True)
;berichtigt
        Local $wbemFlagReturnImmediately=0x10, $wbemFlagForwardOnly=0x20, $colItems="", $angemeldet="Angemeldet: "
        Local $JaNein[2]=[True, False], $Gesucht="", $OutPut, $objWMIService, $objItem, $s
        If $User="" Then $User=@UserName
        If StringInstr($Host, "\")=1 Then $Host=StringMid($Host, 3)
        If $Host="" Then $Host="."
        $NurEiner=$JaNein[$NurEiner=False]
        $Output="Computer: " &$Host &@CRLF
        $Output&=StringFormat("%50s", "SID") &StringFormat("%60s", "Name") &@CRLF
        $objWMIService=ObjGet("winmgmts:\" &$Host &"\root\CIMV2")
        If IsObj($objWMIService) Then
                $colItems=$wbemFlagReturnImmediately+$wbemFlagForwardOnly
                $colItems=$objWMIService.ExecQuery("SELECT * FROM Win32_AccountSID", "WQL", $colItems)
                If IsObj($colItems) Then
                        For $objItem In $colItems
                                If StringInstr($objItem.Setting, "S-1-5-21") Then ;bei Bedarf das If auskommentieren
                                        $s=$objItem.Setting
                                        $s=StringReplace(StringFormat("%55s", StringMid($s, StringInStr($s, "SID=")+4)), " ", "  ") &@Tab
                                        $s&=StringMid($objItem.Element, StringInStr($objItem.Element, "Name=")+5)
                                        If StringInstr($s, Chr(34) &$User &Chr(34)) Then $Gesucht&=StringReplace($s, " ", "")
                                        If StringInstr($s, Chr(34) &@UserName &Chr(34)) Then $angemeldet&=StringReplace($s, " ", "")
                                        $OutPut&=StringReplace($s, Chr(34), "") &@CRLF
                                EndIf ;bei Bedarf das EndIf natürlich auch auskommentieren
                        Next
                        If $NurEiner Then Return StringReplace($Gesucht &@Lf &$angemeldet, Chr(34), "")
                        Return $OutPut &@Crlf &StringReplace($angemeldet, Chr(34), "")
                Else
                        Return "Keine WMI-Objekte gefunden für Klasse: Win32_AccountSID"
                Endif
        Else
                Return $Host &" ist nicht in diesem Netz.."
        EndIf
EndFunc
;</AutoItScript>