Beiträge von bernd670

  • shared docs öffnen

    Hallo!

    Wenn Run() nicht funktioniert probier mal ShellExecute(), benötigt mindestens Beta 3.2.1.7. Sollte es nicht funktionieren einfach mal den Code posten!


    Administrative Freigaben sind Freigaben die von Windows automatisch erstellt werden z.B. die Freigabe Admin$ verweist auf C:\WinNt (W2k) oder C:\Windows (WinXP), dann sind alle lokalen Laufwerke freigegeben C:\ z.B. mit C$, D:\ mit D$ usw. Das $-Zeichen hinter der Freigabe heisst das die Freigabe versteckt ist also nicht aufgelistet wird, das kann man übrigens auch mit eigenen Freigaben machen. Diese administrativen sind allerdings nur, wie der Name schon sagt, für Administratoren erreichbar und können auch deaktiviert werden.

  • eigenen exe namen auslesen

    Dann einfach die Stellen an denen Programm.ini steht ändern!


    [autoit]

    $IniName = StringTrimRight(@ScriptName, 3) & "ini"

    [/autoit][autoit][/autoit][autoit]

    If FileExists($IniName) Then
    $input = IniRead($IniName, "LayerName", "GUID", "")

    [/autoit][autoit][/autoit][autoit]

    Else
    MsgBox(4096, "Error", $IniName & " does not exist.", 7)
    Exit
    EndIf

    [/autoit][autoit][/autoit][autoit]

    $SVSPath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Altiris\Altiris Agent\Plugin Objects\Agents\Software Virtualization Agent', 'Install Path')

    [/autoit][autoit][/autoit][autoit]

    Run(@ComSpec & ' /c svscmd.exe "' & $input & '" Activate', $SVSPath, @SW_HIDE)

    [/autoit]

  • run - Befehl mit Fehlermeldung

    Hallo!

    Ich habe mal getestet und bei mir funktionieren beide Scripte. Der Fehler kann also eingentlich nur noch bei Benutzer und Passwort liegen!

    Um was für einen Benutzer handelt es sich den, um einen Domänen-Benutzer oder einen lokalen Benutzer?

    Wenn es sich um einen Domänen-Benutzer handelt trage in mal so ein:

    [autoit]

    DriveMapAdd("*", "\\172.29.51.185\Install", 0, "Domänenname\Benutzer", "Passwort")

    [/autoit]

    Bei einem lokalen Benutzer so:

    [autoit]

    DriveMapAdd("*", "\\172.29.51.185\Install", 0, "Rechnername\Benutzer", "Passwort")

    [/autoit]

    oder so:

    [autoit]

    DriveMapAdd("*", "\\172.29.51.185\Install", 0, "172.29.51.185\Benutzer", "Passwort")

    [/autoit]

  • MwSt-Rechner 16% -> 19%

    Man bin ich froh das Du nicht die neuen Preise machst! :schild4:

    Deine Formel ist falsch!

    Wenn 10,00 € der Brutto Preis ist da ja schon die MwSt enthalten also entspricht 10,00 € nicht 100% sonder 116% d.h. um die 16% MwSt abzuziehen musst du von 116% ausgehen!

    10 € / 1,16 = 8,62 € (Netto)
    8,62 € * 1,19 = 10,26 € (incl. 19% MwSt.)

    oder mit 1500 €

    1500 € / 1,16 = 1293,10 € (Netto)
    1293,10 € * 1,19 = 1538,79 € (incl. 19% MwSt.)

    Das Skript bleibt aber genauso einfach:

    [autoit]

    $input = InputBox("MwSt-Rechner", "Bitte alten Preis eingeben:", "10,00 €", "", 1, 1, -1, -1)
    $input = $input / 1.16 * 1.19
    MsgBox(0,"MwSt-Rechner", "Der Preis bei 19% Mehrwertsteuer beträgt " & $input & " €")

    [/autoit]

  • datei auslesen

    Vllt. gehts so schneller, allerdings werden die Url's jetzt sortiert aber das dürfte ja nichts machen:

    Spoiler anzeigen
    [autoit]

    #include <file.au3>
    #include <Array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Dim $aLines

    [/autoit] [autoit][/autoit] [autoit]

    If Not _FileReadToArray("url.txt", $aLines) Then
    MsgBox(4096, "Error", " Error reading log to Array error:" & @error)
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $array = _ArrayDelDup($aLines, 1)

    [/autoit] [autoit][/autoit] [autoit]

    _FileWriteFromArray("output.txt", $array, 1)

    [/autoit] [autoit][/autoit] [autoit]

    ;===============================================================================
    ;
    ; Function Name: _ArrayDelDup()
    ; Description: Remove multiple entries.
    ; Parameter(s): $a_Array - Array
    ; $i_Base - Start sorting at this Array entry.
    ; Requirement(s): None
    ; Return Value(s): On Success - new Array
    ; On Failure - "" and sets @ERROR = 1
    ;
    ;===============================================================================
    Func _ArrayDelDup($a_Array, $i_Base = 0)
    Local $i_Count, $i_MaxCount

    If Not IsArray($a_Array) Then
    SetError(1)
    Return ""
    EndIf

    _ArraySort($a_Array,0,$i_Base)

    Dim $a_newArray[2]
    $a_newArray[1] = $a_Array[$i_Base]

    For $i = $i_Base + 1 To UBound($a_Array) - $i_Base - 1
    If $a_Array[$i -1] <> $a_Array[$i] Then
    _ArrayAdd($a_newArray, $a_Array[$i])
    EndIf
    Next

    $a_newArray[0] = UBound($a_newArray) - 1
    Return $a_newArray
    EndFunc ;==>_ArrayDelDup

    [/autoit]

    Wenn's jetzt immer noch genau so langsam ist liegt's wohl eher an _FileReadToArray und _FileWriteFromArray!

  • datei auslesen

    Hallo!

    probier mal das:

    Spoiler anzeigen
    [autoit]

    #include <file.au3>
    #include <Array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    Dim $aLines

    [/autoit] [autoit][/autoit] [autoit]

    If Not _FileReadToArray("url.txt", $aLines) Then
    MsgBox(4096, "Error", " Error reading log to Array error:" & @error)
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $array = _ArrayDelDup($aLines, 1)

    [/autoit] [autoit][/autoit] [autoit]

    _FileWriteFromArray("output.txt", $array, 1)

    [/autoit] [autoit][/autoit] [autoit]

    ;===============================================================================
    ;
    ; Function Name: _ArrayDelDup()
    ; Description: Remove multiple entries.
    ; Parameter(s): $a_Array - Array
    ; $i_Base - Start at this Array entry.
    ; Requirement(s): None
    ; Return Value(s): On Success - new Array
    ; On Failure - "" and sets @ERROR = 1
    ;
    ;===============================================================================
    Func _ArrayDelDup($a_Array, $i_Base = 0)
    Local $i_Count, $i_MaxCount

    If Not IsArray($a_Array) Then
    SetError(1)
    Return ""
    EndIf

    Dim $a_newArray[2]
    $a_newArray[1] = $a_Array[$i_Base]

    For $i = $i_Base + 1 To UBound($a_Array) - $i_Base - 1
    If _ArraySearch($a_newArray, $a_Array[$i]) = -1 Then
    _ArrayAdd($a_newArray, $a_Array[$i])
    EndIf
    Next

    $a_newArray[0] = UBound($a_newArray) - 1
    Return $a_newArray
    EndFunc ;==>_ArrayDelDup

    [/autoit]

  • Fette Schrift

    Hallo!

    Wenn man sich die Schriftarten mal anschaut (Systemsteurung->Schriftarten) sieht man das für die meisten Schriftarten auch eine Version gibt die Fett (Bold) ist z.B. für Times New Roman gibt es:

    • Times New Roman
    • Times New Roman Fett
    • Times New Roman Kursiv
    • Times New Roman Fett Kursiv

    Wenn man nun statt die weight zu verändern die Schriftart Times New Roman Fett einstellt sieht auch das Schriftbild ausgewogener aus.

    Hier mal ein Beipiel:

    [autoit]

    #include <GUIConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    GUICreate ("My GUI") ; will create a dialog box that when displayed is centered

    [/autoit][autoit][/autoit][autoit]

    $font="Times New Roman"
    GUICtrlCreateLabel ("Times New Roman",10,20,300,60)
    GUICtrlSetFont (-1,20, -1, -1, $font) ; will display underlined characters

    [/autoit][autoit][/autoit][autoit]

    $font="Times New Roman Kursiv"
    GUICtrlCreateLabel ("Times New Roman Kursiv", 10,80,300,60)
    GUICtrlSetFont (-1,20, -1, -1, $font) ; will display italic characters

    [/autoit][autoit][/autoit][autoit]

    $font="Times New Roman Fett"
    GUICtrlCreateLabel ("Times New Roman Fett", 10,140,300,60)
    GUICtrlSetFont (-1,20, -1, -1, $font) ; will display italic characters

    [/autoit][autoit][/autoit][autoit]

    $font="Times New Roman Fett Kursiv"
    GUICtrlCreateLabel ("Times New Roman Fett", 10,200,300,60)
    GUICtrlSetFont (-1,20, -1, -1, $font) ; will display italic characters

    [/autoit][autoit][/autoit][autoit]

    GUISetState () ; will display an empty dialog box

    [/autoit][autoit][/autoit][autoit]

    ; Run the GUI until the dialog is closed
    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend

    [/autoit]

  • CMD Aulesen

    Ich bin mir jetzt nicht sicher ob der Befehl net view /domain die Domänennamen grundsätzlich in Grossbuchstaben ausgibt, wenn ja sollte es so gehen. Wenn nicht dann wird es etwas aufwendiger!

    [autoit]

    #include <process.au3>
    #include <array.au3>

    $load = check_online()

    For $i = 1 to $load[0]
    MsgBox(0, "Test", $load[$i])
    Next

    Func check_online()
    ;By GtaSpider
    Local $stdBuffer, $sreBuffer
    $Pid = Run(@ComSpec & ' /c net view /DOMAIN', '', @SW_HIDE, 2 + 4)
    While Not @error
    $stdBuffer &= StdoutRead($Pid)
    WEnd
    $sreBuffer = StringRegExp ($stdBuffer, "(\S[A-Z]+\S[A-Z0-9._-]\S*)", 3)
    $usre = UBound($sreBuffer)
    ReDim $sreBuffer[$usre+1]
    _ArrayPush($sreBuffer,$usre,1)
    ProcessClose($Pid)
    Return $sreBuffer
    EndFunc

    [/autoit]

  • Routen erstellen

    Nein, Du musst einen Bentzernamen und Passwort auf dem PeerToPeer-Rechner haben der auf die Freigabe/Dateien zugreifen darf. Dann kannst du auf dem neuen Rechner Netzlaufwerk verbinden (rechtsklick auf Arbeitsplatz oder Netzwerkumgebung) wählen und dort dann zuerst Laufwerk und Ordner eintragen danach auf "Verbindung unter anderem Benutzernamen herstellen" klicken und da dann den Benutzer und Passwort eintragen der auf die Freigabe zugreifen darf.

  • Routen erstellen

    Hallo!

    Da Du erst mal nur mit einem Rechner in beiden Netzen arbeiten willst benötigst keine Routing-Tabelle. Die 1. Netzwerkkarte bekommt einfach eine Adresse aus dem Server-Client-Netzwerk und die 2. Netzwerkkarte bekommt eine Adresse aus dem PeerToPeer Netzwerk und dann sollte von diesem Rechner auch der Zugriff auf beide Netzwerke funktionieren. Solange auf dem Rechner noch kein Routing aktiviert wurde kann auch kein anderer Rechner auf das Fremdnetz zugreifen.

    Das Server-Client-Netzwerk wird wahrscheinlich eine Windows-Domäne sein, d.h. der PC muss um richtig im Hausnetz arbeiten zu können Mitglied in dieser Domäne sein.

    Bei dem PeerToPeer-Netzwerk handelt es sich wahrscheinlich um eine Windows-Arbeitsgruppe, d.h. der Zugriff auf Freigaben in diesem Netzwerk sollte, über \\Rechnername\Freigabenamen, kein Problem darstellen. Nur wenn das Betriebssystem auf dem neuen PC niedriger ist als im PeerToPeer-Netzwerk kann es zu Problemen kommen, also wenn auf dem neuen PC z.B. W2K und im PeerToPeer-Netzwerk WXP installiert ist.

    Wenn im Server-Client-Netzwerk ein DNS-Server läuft müssen evtl. dort die Namen der PC im PeerToPeer-Netzwerk eingetragen werden damit die Namen auch aufgelöst werden. Man kann sie aber auch in die hosts-Datei auf dem neuen PC eintragen, ansonsten kannst du die Rechner im PeerToPeer-Netzwerk nur über die IP-Adresse ansprechen.

    Später wenn mehrere Rechner auf das PeerToPeer-Netz zugreifen sollen kann man dann z.B. mit einen alten Rechner und Linux einen Router bauen.
    Der dann allerdings auch keine zusätzlichen einträge in der Routing-Tabelle benötigt. Sobald das Routing auf einem Rechner mit mehreren Netzwerkkarten aktiviert wird, wird die Routing-Tabelle automatisch erstellt.
    Nur wenn es mehrere Router im Netzwerk gibt muss man die Routing-Tabelle selbst editieren.