Beiträge von subzero007

subzero007

eine frage habe ich noch ??

[autoit]

MsgBox(0, "BMI", GUICtrlRead($weight) / (GUICtrlRead($size)/100)^2)

[/autoit]

wie kann ich das ergebniss mit nur 2 stellen hinterm komma zurückgeben eine idee?

Danke
SubZero

subzero007

Upss sorry habe zu komlieziert gedacht danke

subzero007

habe immer ein syntax fehler bekommen.

wie wandle ich 170 zu 1,7 um?

subzero007

Hey,

kann mir jemand beim Rechnen helfen kriege es irgendwie nicht
hin fange immer wieder von vorne an:

Beispiel1
;Gewicht: 65 kg, Größe: 170 cm
;BMI=65:1,7:1,7=22,49

;auf dem Taschenrechner
;65 ÷ 1,7 ÷ 1,7 =

Beispiel2

Ein 100kg schwererMann

(100kgx 24)+10%= 2400kcal+240kcal= 2640kcal

Wie mache ich das würde mich sehr freuen wenn mir jemand ein Beispiel dazu gibt.

Gruß
SubZero

subzero007

habe auch XP ???

subzero007

_ArrayDisplay($aRet) = Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

eine idee?

subzero007

klappt irgendwie nicht ???

habe immer ein false??

subzero007

Ich glaube ich habe mein ziel nicht genau beschrieben ziel ist:

ich will prüfen ob mein user mit dem ich angemeldet bin auf der remote maschine admin ist wenn ja will ich
die funktion Membership_Administrators_Local starten weiss aber nicht wie ich das hinkriegen soll ?

subzero007

Hey,

hier der Code wo ich es einbauen wollte:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\ico\11.ico
#AutoIt3Wrapper_outfile=AdminOnHost.exe
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <array.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <inet.au3>
#include <adfunctions.au3>

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

$Form1 = GUICreate("AdminHost", 900, 560, 231, 154)
GUISetFont(8, 400, 0, "@Arial Unicode MS")
GUISetBkColor(0xA6CAF0)
$ListViewhost = GUICtrlCreateListView("Hostname", 32, 32, 170, 430)
$Liste = GUICtrlCreateListView("Host|Group|Typ|Objekt", 224, 32, 670, 430)
$Hostladen = GUICtrlCreateButton("Hostladen", 32, 14, 75, 17, $WS_GROUP)
;$Checkall22 = GUICtrlCreateButton("Last Logged OnUSER", 32, 460, 130, 17, $WS_GROUP)
$Checkall11 = GUICtrlCreateButton("Starten", 220, 480, 130, 17, $WS_GROUP)
$CheckUser = GUICtrlCreateButton("User Info", 350, 480, 70, 17, $WS_GROUP)

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

$Inputcn = GUICtrlCreateInput("", 32, 480, 170, 23)
$Insert = GUICtrlCreateButton("Hinzufügen", 42, 510, 130, 17, $WS_GROUP)
$del = GUICtrlCreateButton("Löschen", 42, 530, 130, 17, $WS_GROUP)

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

;$stop = GUICtrlCreateButton("Stop", 32, 513, 75, 17, $WS_GROUP)
$Export = GUICtrlCreateButton("Export", 820, 480, 75, 17, $WS_GROUP)

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

GUISetState(@SW_SHOW)
Global $FileOpenDialog, $ListViewText, $Text = "", $IP = "", $STATus = "", $result, $hostincsveingetragen
Global $server, $objWMIService

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

While 1

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

$nMsg = GUIGetMsg()

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

Switch $nMsg
Case $del
_GUICtrlListView_DeleteAllItems($ListViewhost)
_GUICtrlListView_DeleteAllItems($Liste)
Case $Insert
GUICtrlCreateListViewItem(GUICtrlRead($Inputcn), $ListViewhost)

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

Case $Export
_export()

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

Case $GUI_EVENT_CLOSE
Exit
Case $Hostladen
_load()
Case $Checkall11

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

Local $icount = _GUICtrlListView_GetItemCount($ListViewhost)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemText($ListViewhost, $i)
;_befuelle_lv_liste()
Global $server = $ListViewText
If $CmdLine[0] > 0 Then $server = $CmdLine[1]

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

$objWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & $server & "\root\cimv2")
Ping($server, 100) ; Host anpingen
If not @error = 0 Then MsgBox(0, "", "Host Offline")
ping($server, 100) ; Host anpingen
If @error = 0 Then Membership_Administrators_Local($server)

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

;EndIf

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

Next
Case $CheckUser
_userinfo()

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

EndSwitch
WEnd

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

Func Membership_Administrators_Local($srv)
If StringUpper($srv) = StringUpper("Localhost") Then $srv = @ComputerName
Local $function_name = "Members"
Local $LM_members, $x, $LM_LocalGroup_Name, $type, $colItems2, $LM_local_user, $y, $line, $TimeStamp
Local $filename_ms = $function_name & "_" & $srv
Local $filename_error_current = $function_name & "_" & $srv & "_error.log"
$LM_LocalGroup_Name = "Administrators"
$colItems = $objWMIService.ExecQuery("Select SID from Win32_Group WHERE Domain='" & $srv & "'", "WQL", 0x30)
If IsObj($colItems) Then
For $objItem In $colItems
If StringUpper($objItem.SID) = StringUpper("S-1-5-32-544") Then $LM_LocalGroup_Name = $objItem.Name
Next
EndIf
$type = ""
$LM_local_user = ""
$colItems = $objWMIService.ExecQuery("Select * from Win32_GroupUser Where GroupComponent=""Win32_Group.Domain='" & $srv & "',Name='" & $LM_LocalGroup_Name & "'""", "WQL", 0x30)
If IsObj($colItems) Then
For $objItem In $colItems
If $objItem.PartComponent <> "" Then
$x = StringSplit($objItem.PartComponent, """")
$type = StringMid($x[1], StringInStr($x[1], ":Win32_") + 7, (StringInStr($x[1], ".") - (StringInStr($x[1], ":Win32_") + 7)))
$LM_members &= $srv & "|" & $LM_LocalGroup_Name & "|" & $type & "|" & $x[2] & "\" & $x[4] & "|" & @CRLF
GUICtrlCreateListViewItem($srv & "|" & $LM_LocalGroup_Name & "|" & $type & "|" & $x[2] & "\" & $x[4] & "|", $Liste)

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

EndIf
Next
EndIf
ConsoleWrite($LM_members)

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

EndFunc ;==>Membership_Administrators_Local

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

Func _userinfo()

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

$aSel = _GUICtrlListView_GetSelectedIndices($Liste, True)
For $i = 1 To $aSel[0]
$var1 = _GUICtrlListView_GetItemText($Liste, $aSel[$i], 3)
$var2 = _GUICtrlListView_GetItemText($Liste, $aSel[$i], 0)
$var1 = StringReplace($var1, 'Domane\', '')
If $var1 = "" Then
MsgBox(0, "", "User ID nicht bekannt")
Else

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

$TSDIS = Run(@ComSpec & " /c " & @ScriptDir & '\Modul\lockout.exe ' & $var1, "", @SW_HIDE)
ConsoleWrite(@ScriptDir & '\Modul\lockout.exe ' & $var1)
EndIf
Next

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

EndFunc ;==>_userinfo

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

Func _export()

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

$hWnd = $Liste
$path = FileSaveDialog('ListView-Export speichern', @ScriptDir, "CSV Datei (*.csv)")
If @error Then Return MsgBox(0, 'Fehler', 'Keine Zieldatei gewählt.')
FileWrite($path & ".csv", _GUICtrlListView_Export($hWnd, 1, ','))
EndFunc ;==>_export

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

Func _GUICtrlListView_Export($hWnd, $exType = 0, $Delim = Default) ; $exType=0 Array / $exType=1 String
If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd)
Local $row = _GUICtrlListView_GetItemCount($hWnd)
If $exType Then
If $Delim <> Default Then Local $oldDelim = Opt('GUIDataSeparatorChar', $Delim)
Local $sOut = ''
For $i = 0 To $row - 1
$sOut &= _GUICtrlListView_GetItemTextString($hWnd, $i) & @CRLF
Next
If $Delim <> Default Then Opt('GUIDataSeparatorChar', $oldDelim)
Opt("MustDeclareVars", 1)
Opt("MustDeclareVars", 1)
Opt("MustDeclareVars", 1)
Opt("MustDeclareVars", 1)
Global $countc, $countm, $counts, $Labelhp, $lv3countm

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

Return $sOut
EndIf
Local $col = _GUICtrlListView_GetColumnCount($hWnd)
Local $aOut[$row][$col]
If $col = 1 Then
ReDim $aOut[$row]
For $i = 0 To UBound($aOut) - 1
$aOut[$i] = _GUICtrlListView_GetItemText($hWnd, $i)
Next
Return $aOut
EndIf
For $i = 0 To UBound($aOut) - 1
For $j = 0 To UBound($aOut, 2) - 1
$aOut[$i][$j] = _GUICtrlListView_GetItemText($hWnd, $i, $j)
Next
Next
Return $aOut
EndFunc ;==>_GUICtrlListView_Export

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

Func _Load() ; Datenbank-Datei laden
_GUICtrlListView_DeleteAllItems($ListViewhost) ; Das Handle eben noch bestimmen (s. Anfang des Threads)
_GUICtrlListView_DeleteAllItems($Liste) ; Das Handle eben noch bestimmen (s. Anfang des Threads)

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

Local $sItem
$FileOpenDialog = FileOpenDialog("Pc Liste Wählen", @ScriptDir & "\", "Pc Liste (*.txt;*.csv)", 1 + 4)
Local $hFile = FileOpen($FileOpenDialog, 0) ; Datei zum lesen öffnen
If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
_GUICtrlListView_BeginUpdate($ListViewhost) ; Listview sperren
While True ; Endlosschleife
$sItem = FileReadLine($hFile) ; Zeile aus der Datei lesen
If @error Then ExitLoop ; wenn das Ende der Datei erreicht ist, dann Endlosschleife verlassen
GUICtrlCreateListViewItem($sItem, $ListViewhost) ; mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
WEnd
_GUICtrlListView_EndUpdate($ListViewhost) ; Listview wieder freigeben
FileClose($hFile) ; Datei schließen
EndIf
EndFunc ;==>_Load

[/autoit]

subzero007

Hey,

hat jemand eine idee wie ich auf einer remote maschine festellen kann ob der aktuelle user admin ist?

Danke
SuzbZero

subzero007

Hey,

kurze frage möchte gerne auf vom remote rechner die administrator gruppe auslesen also die mitglieder der gruppe jemand ein Tipp wie ich das elegant lösen könnte?

Danke
SubZero

subzero007

Hey,

habe ein Problem will eine sache automatisieren.
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Bevor wir einen neuen Rechner ausliefern muss ich die Bluetooth umgebung inistalliesieren damit,
alle treiber nachgezogen werden Audiogeräte ect.

Den assitenten starten man mit rundll32 konnte leider den Parameter nicht finden ??

oder hat jemand eine idee wie ich diesen vorgang Verbessern könnte bzw automatiesieren?

Danke
SubZero

subzero007

Hey,

hast jemand eine idee wie ich 2D Array in einer MSGBOX darstellen kann?

subzero007

Hey,

hat jemand eine idee wie man die Bios version auslesen kann?

Danke
SubZero

subzero007

Hey,

kriege die meldung:

(31) : ==> Recursion level has been exceeded - AutoIt will quit to prevent stack overflow.:
???

subzero007

Leider gleiches ergebnis wie zuvor mit der lösung von ojo:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Ich wollte nur die einträge haben wo in Col1 was drinne steht ?

Ich hoffe mit dem bild konnte ich mein Prpoblem besser erklären

Danke
SubZero

subzero007

Super Funktioniert soweit

jetzt zeigt er alle schlüssel an.
Ich wollte alle die nicht ""wert01" sind inklusive schlüssel kannst du mir nochmal kurz helfen?

subzero007

Hey,

also gdamit klappt es super

[autoit]

#include <array.au3>

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

Local $keys [1], $startkey = "HKEY_LOCAL_MACHINE\SOFTWARE\log", $string = "wert01", $gefunden [1]

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

For $i= 1 to 100
$var = RegEnumKey($startkey, $i)
If @error <> 0 then ExitLoop
$keys [$i - 1] = $var
ReDim $keys [$i + 1]
Next

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

$count = 0
For $i = 0 To UBound ($keys) - 1
$regkey = RegRead ($startkey & "\" & $keys [$i], "zeichenfolgetest")
If @error <> 0 then ExitLoop
If $regkey <> $string Then
$gefunden [$count] = $regkey
$count += 1
Redim $gefunden [$count + 1]
EndIf
Next

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

If $count > 0 Then _ArrayDisplay ($gefunden)

[/autoit]

Würde aber gerne den Schlüssel mit anzeigen lassen

aber so geht es nicht

[autoit]

_ArrayDisplay ($keys & $gefunden)

[/autoit]

was muss ich jetzt dafür tuen damit es Klappt?

subzero007

Hey,

ich habe es auch mit dem '\' leider der geliche fehler??

die zeichenfolge die ich abfragen will ist im root jeweil in dem schlüssel den ich abfragen will

ich habe software als beispiel genommen.

so in etwa sieht es aus:
hklm\software\log\test1\zeichenfolgetest = wert01
hklm\software\log\test2\zeichenfolgetest = wert0111
hklm\software\log\test3\zeichenfolgetest = wert01
hklm\software\log\test4\zeichenfolgetest = wert04
hklm\software\log\test5\zeichenfolgetest = wert01
hklm\software\log\test6\zeichenfolgetest = wert01
hklm\software\log\test7\zeichenfolgetest = wert01222
hklm\software\log\test8\zeichenfolgetest = wert02
hklm\software\log\test9\zeichenfolgetest = wert01
hklm\software\log\test10\zeichenfolgetest = wert01
hklm\software\log\test11\zeichenfolgetest = wert01

kann mir jemand noch einen tipp geben komme oirgendwie nicht weiter??

subzero007

Hey,
was mache ich falsch?

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

For $i= 1 to 10
$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE", $i)
If @error <> 0 then ExitLoop
$var1 = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE" & $var, $i)
MsgBox(4096, "" & $i & "", $var1)

Next

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

Kriege die MSG BOX
Das system kann die angebene Datei nicht finden ???

Beiträge von subzero007

Rechnen

Rechnen

Rechnen

Rechnen

isadmin remote maschine

isadmin remote maschine

isadmin remote maschine

isadmin remote maschine

isadmin remote maschine

isadmin remote maschine

Remote Lokale Gruppe members auslesen

Rundll32 Bluetooth

2D Arry in MSG box darstellen

Bios Version...

Registry in Allen unterschlüssen abfragen ...

Registry in Allen unterschlüssen abfragen ...

Registry in Allen unterschlüssen abfragen ...

Registry in Allen unterschlüssen abfragen ...

Registry in Allen unterschlüssen abfragen ...

Registry in Allen unterschlüssen abfragen ...