Hi AutoIt-Forum,
ich habe eine neue SciTE-Version installiert(SciTE4AutoIt v1.68 ) und auch gleich
die Beta 3.1.1.119 von AutoIt. Dazu einige Anmerkungen:
In der Datei au3.keywords.properties fehlen sowohl Switch als auch EndSwitch,
das muß manuell nachgetragen werden. Außerdem muß in der au3.properties-Datei
ggfs. der Pfad zum AutoIt-Verzeichnis berichtigt werden..
Ausgerüstet mit diesem Werkzeug, habe ich gleich ein Skript geschrieben, mit
dem sich der Geräte-Manager skripten läßt.
Aus Sicherheits-Gründen(nicht nur..) lasse ich das Modem immer so lange
ausgeschaltet, bis ich es benötige. Da ich als Benutzer mit eingeschränkten
Rechten ins Netz gehe, kann ich aber das Modem nicht nachträglich ins System
holen, ganz klar: Ein Fall für AutoIt!
Spoiler anzeigen
;<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>
Alles anzeigen
Meine neue Antivir-Version meldet nicht mehr alle AutoIt-Exes als virulent,
ich habe sie einfach neu kompiliert und Ruhe is..
Frohen Rest vom Fest
Gruß
ytwinky