Hallo Bitnugger,
vielen Dank für Deine Hilfe. Gleich ein Programm zum Icon suchen, toll!
Da ich auf dem Sprung bin, hier nur mal 3 Screenshots als Anhang.
Screenshot 3 war nach Windows-Update. Icon sieht nun etwas bunter aus.
Screenshot 2 zeigt das ausgezogene Store-Icon. Das sieht bei mir "normal" aus. Ich habe aber weiterhin keine Idee, wie ich an das Icon ran komme.
Dein Programm schaue ich mir heute Abend an. Vielen Dank hierfür!
Hab Dank für Deine Mithilfe!
Mike
Hallo Ihr Profis!
Wir steigen demnächst von Windows 7 auf Windows 10 um und ich möchte meinen Lieben die wichtigsten Links in eine Mappe auf den Desktop legen. Dazu habe ich folgendes Script angefangen, was auch pauschal schon funktioniert, nur leider fehlen mir die Icons.
Hier mein Code:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.15.0 (Beta)
Author: Mike
Script Function:
- Erzeugt wichtige Links in einer Mappe auf dem Desktop
#ce ----------------------------------------------------------------------------
Opt("MustDeclareVars", 1)
; Mappe auf dem Desktop anlegen
Global $Mappe = @DesktopDir & "\wichtige Progamme\"
If Not FileExists($Mappe) Then
If Not DirCreate($Mappe) Then
MsgBox(16 + 262144, "Fehler:", "Mappe/Verzeichnis" & @CRLF & " " & $Mappe & @CRLF & "konnte nicht erzeugt werden!")
EndIf
EndIf
; FileCreateShortcut ( "file", "lnk" [, "workdir" [, "args" [, "desc" [, "icon" [, "hotkey" [, icon number [, state]]]]]]] )
; Windows Defender - alt
If Not FileCreateShortcut("C:\Program Files\Windows Defender\MSASCui.exe", $Mappe & "Windows Defender (alt)" & ".lnk", @UserProfileDir, "", "Windows Defender mit alte GUI") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Windows Defender Alt")
EndIf
; Windows Defender - neu
If Not FileCreateShortcut("ms-settings:windowsdefender", $Mappe & "Windows Defender (neu)" & ".lnk", @UserProfileDir, "", "Windows Defender mit neuer GUI") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Windows Defender Neu")
EndIf
; Windows-Update - Hauptseite
If Not FileCreateShortcut("ms-settings:windowsupdate", $Mappe & "Windows-Update - Hauptseite" & ".lnk", @UserProfileDir, "", "Windows-Update Hauptseite") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Windows-Update Hauptseite")
EndIf
; Windows-Update - Nach Updates suchen
If Not FileCreateShortcut("ms-settings:windowsupdate-action", $Mappe & "Windows-Update - Nach Updates suchen" & ".lnk", @UserProfileDir, "", "Windows-Update - Nach Updates suchen") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Windows-Update - Nach Updates suchen")
EndIf
; Microsoft Store - Hauptseite
If Not FileCreateShortcut("ms-windows-store://home", $Mappe & "Microsoft Store - Hauptseite" & ".lnk", @UserProfileDir, "", "Microsoft Store Hauptseite") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Microsoft Store Hauptseite")
EndIf
; Microsoft Store - Download & Updates
If Not FileCreateShortcut("ms-windows-store://downloadsandupdates", $Mappe & "Microsoft Store - Download & Updates" & ".lnk", @UserProfileDir, "", "Microsoft Store - Download & Updates") Then
MsgBox(16 + 262144, "Fehler:", "Link konnte nicht erzeugt werden!" & @CRLF & " Microsoft Store - Download & Updates")
EndILeider sind die neuen Aufrufe keine Exe mehr und somit fehlt jeweils ein passendes Icon. Ich weiß, daß ich FileCreateShortcut optional eine Icon-Datei angeben kann, aber leider finde ich die passende dll-Datei in Windows 10 zu den original Icons nicht.
Im Start-Menü gibt es ein "Microsoft Store". Diesen Link kann ich auf den Schreibtisch kopieren und der besitzt auch ein Icon, aber ich kann weder den Pfad zum Programm, noch zum Icon daraus ermitteln. Geht das irgendwie?
Ich würde mich um zielführende Hilfe sehr freuen!
Habt Dank!
Mike
Hab Dank Water für Deine Rückmeldung. Das deckt sich mit Protaris Rückmeldung.
Dann ist Deine Idee vermutlich zielführend und ich versuch es mal mit meiner Annahme. Oder spricht aus Deiner Sicht was dagegen?
Habt Dank!
Mike
Hab Dank Protaris, das hilft mir schon mal weiter!
Ich schließe aus den bisherigen Resultaten, dass der PC in einer Domain hängt, wenn
- in Logon DNS Domain, also @LogonDNSDomain überhaupt was drin steht (bei Workgroup ist es anscheinend immer leer)
- der PCNamen in keiner der 3 Variablen auftaucht
Vielleicht antwortet ja noch ein weiterer User dessen PC in einer Domain hängt.
Habt Dank und ein schönes Wochenende!
Mike
Hab Dank Protaris, aber die Antwort hilft mir so leider nicht weiter. Ich will ja eine "Logik" entwickeln, woran ich eindeutig erkenne, ob der PC in einer Domain oder Arbeitsgruppe hängt. Dazu brauche ich aber Vergleichswerte.
Kannst Du bitte die Ausgabe anonymisiert posten, so wie ich es gemacht habe?
Hab Dank!
Mike
Hab Dank Water für die neue Idee.
Hier mal ein Testprogramm:
[autoit]Global $result = ''
[/autoit][autoit][/autoit][autoit]$result &= "OS: " & @OSVersion & '/' & @OSArch & @CRLF
$result &= 'Logon DNS Domain: ' & @LogonDNSDomain & @CRLF
$result &= 'Logon Domain: ' & @LogonDomain & @CRLF
$result &= 'Logon Server: ' & @LogonServer & @CRLF
MsgBox(0, "Result", $result)
ClipPut($result)
Und hier meine gesammelten Informationen, alles PCs in Arbeitsgruppen:
OS: WIN_XP/X86
Logon DNS Domain:
Logon Domain: MEINPCNAME
Logon Server: \\MEINPCNAME
OS: WIN_7/X64
Logon DNS Domain:
Logon Domain: meinpcname
Logon Server: \\MEINPCNAME
OS: WIN_8/X64
Logon DNS Domain:
Logon Domain: MEINPCNAME
Logon Server: \\MEINPCNAMEKönnten bitte User mit PCs in einer Domain das Script mal ausführen!?
Habt Dank!
Mike
Ok, schlecht. D.h. ein XP-PC in Arbeitsgruppe liefert das gleiche Ergebnis, wie ein Win 7 - PC in einer Domain:
XP-PC, 32bit, PC in Arbeitsgruppe:
Workgroup: (ist leer)
Domain: MeineWorkgroup
Win7-PC, PC in Domain
Workgroup: (ist leer)
Domain: MeineDomain
D.h. beide Male ist "Workgroup" leer und bei "Domain" ist jeweils etwas eingetragen. Damit kann ich keine Unterscheidung machen 
Habt Ihr noch eine Idee?
Habt Dank!
Mike
Ich vergaß das modifizierte Script anzuhängen:
[autoit]Opt("MustDeclareVars", 1)
[/autoit][autoit][/autoit][autoit]Global $pc = @ComputerName
Global $objWMI, $objItems
Global $result = ''
$objWMI = ObjGet("winmgmts:{impersonationLevel=Impersonate}!\\" & $pc & "\root\CIMV2")
If Not IsObj($objWMI) Then Exit
$objItems = $objWMI.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", 0x10 + 0x20)
If Not IsObj($objItems) Then Exit
For $objItem In $objItems
$result &= "OS: " & @OSVersion & '/' & @OSArch & @CRLF
$result &= "Workgroup: " & $objItem.Workgroup & @CRLF
$result &= "Domain: " & $objItem.Domain & @CRLF
MsgBox(0, "Result", $result)
ClipPut($result)
Next
Hab Dank Protaris!
Eine Frage noch: Welches OS benutzt Du? Dein PC hängt in einer Domain?
Habt Dank!
Mike
Zu früh gefreut, da stimmt mit der Logik was nicht
Auf meinem XP-PC, 32bit, PC in Arbeitsgruppe:
Workgroup: (ist leer)
Domain: MeineWorkgroup
Win 7-PC, X64, PC hat keine Arbeitsgruppe bzw. Default-Arbeitsgruppe:
Workgroup: WORKGROUP
Domain: WORKGROUP
So hilft mir das nichts
Kann mal bitte jemand das Script ausführen und das Ergebnis posten, dessen PC in einer Domain hängt.
Habt Dank!
Mike
Vielen Dank Chip für dein Fachwissen. Damit kann ich mir jetzt eine mir passende Funktion bauen!
Hab Dank!
Mike
Hab vielen Dank Chip! Toll!
3 Fragen habe ich noch:
Warum kann Fall 1 nie eintreten? Was ist auf einem frisch installiertem PC? Ist Workgroup nicht leer?
Kann es sein, daß in der for-Schleife mehr als 1 Eintrag rauskommt, also mehr als 1 Mal die MsgBox aufgeht?
Wenn Domain leer ist und in Workgroup etwas steht, ist der PC in einer Arbeitsgruppe und umgedreht, wenn in Domain etwas enthalten ist und Workgroup leer ist, dann ist der PC in einer Domain. Kann man das so schlußfolgern?
Hab Dank!
Mike
Hallo Ihr Profis,
ich habe die Forumsuche verwendet, allerdings fehlt mir das notwendige Basis.Know-how, um aus den 32 Seiten eine passende Lösung zu finden. Nach 4 Seiten habe ich jetzt aufgegeben. Verzeiht mir daher bitte meine möglicherweise einfache Frage.
- Ein einzelner PC im privaten Netzwerk hat meist kein eingerichtetes Netzwerk, also die "Arbeitsgruppe" ist leer.
- Sind es mehrere PCs im privaten Netzwerk, dann werden alle PCs in die gleiche "Arbeitsgruppe" gepackt und einheitlich eine "Arbeitsgruppe" benutzt.
- In Firmen, und damit kenne ich mich gar nicht aus, hängen in sogenannten "Domains".
Wie kann ich mit AutoIt auf einfache Weise die Erkennung der 3 verschiedenen Möglichkeiten realisieren?
Habt Dank!
Mike
Kurze Zwischenmeldung:
_XMLFileOpen, _XMLTransform und _XMLSaveDoc machen aus der xml-Datei einen Zweizeiler, wenn man das fehlende Fragezeichen in der Headerzeile ergänzt. Aber das ist genau das Gegenteil von dem was ich eigentlich will. Zeile 1 ist die Headerzeile. In Zeile 2 steht dann die xml-Daten. Somit nicht mehr einfach lesbar.
Kommende Woche arbeite ich mich in Deinen Code ein oder schreibe selber was. Allerdings wundert mich, dass es dafür keine fertige Lösung geben soll.
Habt Dank!
Mike
Entschuldigung wegen dem XML DOM Wrapper. Ich dachte, der wäre allgemein bekannt. Hier der Link: XML DOM Wrapper
Ich maße mir nicht an, mangels Kenntnis, ob das xml valid ist oder nicht. Ich möchte es nur lesbar aufbereiten, aber nicht verändern.
Wenn es wirklich nur das eine Fragezeichen wäre, könnte ich es ja vorher einfügen, dann mit _XMLTransform ggf. aufbereiten und dann beim Rausschreiben wieder das Fragezeichen entfernen. Ich bin mir nicht sicher, ob ich das nach Deinem Post von gestern Abend nicht noch ausprobiert habe. Ich werde es jedenfalls morgen nachholen.
Hab Dank!
Mike
Hab Dank misterspeed für Deine Mühen und den Code! Super!
Da ich nicht mehr der Schnellste und auch kein gelernter Informatiker bin, verstehe ich den Code nicht auf den ersten Blick. Ich versuche mich einzuarbeiten und melde mich wieder. Hoffentlich mit fehlerfreiem Code.
Habt Dank!
Mike
PS: Die xml-Dateien bekomme ich so. Die stammen nicht von mir und darauf habe ich auch keinen Einfluss. Ich muss damit zurecht kommen.
Hallo Ihr Profis,
habt ihr nen Tipp für mich?
Habt Dank!
Mike
Hab Dank für Deine Mühen!
Ich habe lediglich Dein Script um die Error-Ausgabe erweitert, wobei das unnötig ist, da eh ein Fenster hoch ploppt.
#include "_XMLDomWrapper.au3"
_XMLFileOpen(@ScriptDir & '\XMLTestfile.xml')
ConsoleWrite(String(@error) & @CRLF)
_XMLTransform($objDoc.xml) ;, "", @ScriptDir & "\XMLJUHU.xml")
FileWrite('XMLjuhu.xml', $objDoc.xml)
Anbei 1 von 7 möglichen xml-Dateien in Zip verpackt.
Hab Dank
Mike
Ja genau so sieht mein Code im Prinzip auch aus, nur dass mir _XMLFileOpen den Error 1 (lt. Dokumentation "Parse Error") zurückliefert. Dann brauche oder kann ich doch erst gar nicht weiter zu machen, oder?
Hab Dank!
Mike
Johannes hab Dank für Deine Antwort, aber Du überforderst mich mit Deinen Fachausdrücken wie PCDATA und StAX-Paradigma
Ich schau mal, ob ich neutrale Beispiele einstellen kann, damit Du Dir ein Bild von der Komplexität machen kannst.
Für mich sieht das nicht einfach aus, aber ich bin kein xml-Profi. Jedenfalls bekomme ich bei all meinen Dateien beim Versuch sie mittels _XMLFileOpen("MeineXML.xml") zu öffnen, einen Parse Error. _XMLTransform wäre dann vielleicht eine Lösung, zumindest nach der Beschreibung, aber soweit komme ich ja gar nicht.
Habt Dank
Mike
Hab Dank für Deine Antwort, aber ich suche keine Lösung über ein zu bedienendes Programm, sondern würde es gerne in ein bestehendes AutoIt-Programm einbauen, da sich die Dateien laufend ändern.
Dank Google habe ich entdeckt, dass Notepad++ genau das mit der Datei macht, was ich über AutoIT gerne machen würde. Notepad++ :TextFX -> HTML Tidy -> Reindent XML
Zur Not wäre ich auch mit einem Programm zufrieden, was man über ShellExecute oder Run aufrufen kann, also quasi MachXMLSchön.exe <quelle-datei> <zeil-datei>, falls es sowas gibt.
Habt Dank!
Mike