Hallo,
wenn ich mich nicht täusche, musst du dich nach DC-Installation als Domänenadmin anmelden
=> Domänenname\Administrator
viel Glück!
Beiträge von palmers7
-
-
Hallo MadCatz,
Da ich bereits Plex einsetze, zeige ich große Interesse!
Halte uns auf dem Laufenden! -
Hallo,
Du musst dir keine Gedanken machen ob jemand anders auch die Portweiterleitungen machen muss.
Nur dort wo der Server steht muss das gemacht werden (Stichwort NAT)Da die Online-Dienste eigentlich eine fixe statische IP haben sollten (eben kein NAT), solltest du und deine Mitspieler gar kein Problem haben!
(Der Fehler wird hier wo anders liegen!)mfg,
Julian -
Hallo,
Hast du beim Benutzer anlegen in phpmyadmin auch auf die Host-Einstellung geachtet?
siehe: https://i.ytimg.com/vi/UQtuzr8UIic/maxresdefault.jpg
Dies sollte auf "Jeder Host" stehenDu sprichst von "lokal geht es"; meinst du damit lokal am NAS über phpmyadmin oder in deinem LAN auf deinem PC?
Die Portweiterleitung an deinem Router hast du auch vorgenommen?
Tipp für die Zukunft: Ich würde von extern nicht den original MySQL-Port (3306) nehmen sondern einen x-beliebigen über 10000
Also Extern---Port 12345---Modem/Router---Portweiterleitung von 12345 auf 3306---NASLG Julian
-
Hallo,
Wir sichern die Clients nicht, jedoch kann ich dir Acronis empfehlen.
Ich hatte früher privat ein Produkt von ihnen und war eigentlich durchaus zufrieden, konnte IMMER alle meine Daten wiederherstellen und hatte nette Funktionen.
In deinem Fall solltest du dir das mal anschauen:
http://www.acronis.com/de-de/business…ed/workstation/
Wichtige Kriterien sollten für dich sein:- Deduplizierung
- inkrementelle Sicherung
- zentrale Verwaltung
- Dateien ausschließen (*.mkv, *.avi, ... weiß nicht wie gut Privat und Geschäftlich bei euch getrennt ist, bei uns gibt es aber auch oft mal privates Zeug drauf.)
Wenn man gerne bastelt und einen Windows Server 2012R2 zu Verfügung hat, kann man auch Backups ohne Dedup machen, denn das der Server kann das Dedup übernehmen. -
Den Hersteller Nanoxia solltest du dir auch mal ansehen!
http://www.nanoxia-world.com/allproducts/1/Gehäuse/Ich bin sehr zufrieden mit der Funktion und Verarbeitung, habe zwar keine mega Grafikkarte drinnen, aber alle Festplattenkäfige sind modular, sodass du dir den Inhalt ziemlich gut anpassen kannst!
-
Ok, schade - Aber trotzdem Danke für deine Mühe!
Ist auch schon so toll meinen Verstärker ganz easy vom Tablet (Windows) aus zu steuern.. die GET-Sachen hätte ich nur für eine schöne GUI haben wollen!
Gute Arbeit!
-
Hallo emtec,
Hast du vlt. in den letzten 495 Tagen eine Lösung gefunden, wie man seine Playstation 3 für Mediasachen steuern kann?
Die Frage ergeht natürlich auch an jedes andere Forenmitglied!
Danke!
-
Nice,
der Bad Request ist weg, aber $response bleibt noch immer leer.
Ich hoffe du hast noch ein paar tips auf lager *daumendrück*
-
Hallo,
Funktioniert leider auch nicht. Lasse ich den Header in die Console schreiben, wird mir folgendes zurück gegeben:
HTTPHTTP/1.1 400 Bad Request Connection: close Content-Length: 0 Server: AV_Receiver/3.1 (RX-V1073) -
Hallo,
Also mit meinem oben geposteten XML-Code kommt nichts zurück!
[autoit]Do
[/autoit]
$response &= _WinHttpReadData($hRequest)
Until @error
ConsoleWrite("-"&$response&"-")
If $writelog Then _FileWriteLog($log, $response, 1)
;ConsoleWrite($response&@crlf)
In der Console wird -- zurückgegeben... -
Hallo,
Dann Stelle ich mine Frage doch im Thread - und schon mal Danke für die rasche Antwort!!
Ich würde gerne nicht nur Befehle zu meinem Yamaha RX-V1073 senden, sondern auch zb. die aktuelle Lautstärke abfragen.
Ich weiß leider nicht so ganz, was ich an deinem Script abändern müsste, sodass das möglich ist.Der XML-Code für die Lautstärkenabfrage:
Spoiler anzeigen
<YAMAHA_AV cmd="GET"><Main_Zone><Basic_Status><Volume><Lvl><Val>GetParam</Val></Lvl></Volume></Basic_Status></Main_Zone></YAMAHA_AV>Danke schon mal für das, was du schon bis jetzt veröffentlich hast!
-
Hallo,
da gebe ich chesstiger Recht, SQL ist für soetwas top!
Ich hatte vor Autoit zwar schon Erfahrung mit MySQL, aber es ist recht einfach sich die wenigen Befehle anzueignen.
Habe nun schon mehrere kleine und große Projekte wie ein Lagerstandsprogramm und ein Buchhaltungsprogramm in Autoit mithilfe von MySQL geschrieben. - Funktioniert top und mit fertigen UDFs echt einfach zu programmieren!LG
-
Hallo,
genau, netsh ist hier der Helfer!
Du benötigst Adminrechte um die IP zu ändern.
[autoit]
Also im Script das#RequireAdmin
[/autoit]nicht vergessen.
[autoit]Run('netsh interface ipv4 set address [Name der Netzwerkkarte - zb. "LAN-Verbindung"] static [IP] [subnet] [Gateway] 1')
[/autoit] -
Danke für eure Hilfe!
MrSpeed hat mir die richtige Lösung gebracht, allen anderen beteiligten (auch denen in der SB) möchte ich natürlich auch danken!
Spoiler anzeigen
Ihr seit die GRÖßTEN
-
Danke schonmal,
aber...
leider öffnet er das Kontextmenü nur auf dem ersten erstelltem und dem zuletzt erstelltem Tab (in deinem Fall gibt es nur zwei)
hier geht es bei gewähltem 2. Tab wieder nicht ein Kontextmenü zu öffnen...
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
Opt("GUIOnEventMode", 1)
Local $hGUI = GUICreate("WhoIsInTheHouse", 700,700)
GUISetState(@SW_SHOW, $hGUI)
Local $cID_Tab = GUICtrlCreateTab(0, 0, 600,600)
Local $cID_TabItem[3]
$cID_TabItem[0] = GUICtrlCreateTabItem("1")
$cID_TabItem[1] = GUICtrlCreateTabItem("2")
$cID_TabItem[2] = GUICtrlCreateTabItem("3")Local $cID_ContextMenu = GUICtrlCreateContextMenu($cID_Tab)
[/autoit]
Local $cID_MenuItem[2]
$cID_MenuItem[0] = GUICtrlCreateMenuItem("test", $cID_ContextMenu)
$cID_MenuItem[1] = GUICtrlCreateMenuItem("blabla", $cID_ContextMenu)
GUICtrlSetOnEvent($cID_MenuItem[0], "_Func1")
GUICtrlSetOnEvent($cID_MenuItem[1], "_Func2")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit", $hGUI)
While 1
Sleep(10)
WEnd
Func _Func1()
MsgBox(0, "msg1", "1")
EndFunc
Func _Func2()
MsgBox(0, "msg2", "1")
EndFunc
Func _Exit()
Exit
EndFuncEdit: MrSpeed war schneller
-
Habe jetzt mal das Programm auf den Fehler runtergebrochen:
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit]
$hWnd = GUICreate("WhoIsInTheHouse", 700,700)
$tab = GUICtrlCreateTab(0, 0, 600,600)
local $tabs[7]
For $i=0 To 5
$tabs[$i] = GUICtrlCreateTabItem($i&". Stock")
Next
$tabs[6] = GUICtrlCreateTabItem("Aktualisieren")
$mainContextMenu = GUICtrlCreateContextMenu($tab)
local $mainContextMenuItem[5] ;Hauptkontextmenü
$mainContextMenuItem[0] = GUICtrlCreateMenuItem("create Computer", $mainContextMenu) ;neuen Computer erstellen
$mainContextMenuItem[1] = GUICtrlCreateMenuItem("edit Computer", $mainContextMenu) ;vorhandenen Computer bearbeiten
$mainContextMenuItem[2] = GUICtrlCreateMenuItem("delete Computer", $mainContextMenu) ;vorhanden Computer löschen
$mainContextMenuItem[3] = GUICtrlCreateMenuItem("", $mainContextMenu) ;Strich
$mainContextMenuItem[4] = GUICtrlCreateMenuItem("show Log", $mainContextMenu) ;show Log-File
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $mainContextMenuItem[0] ; create Computer
MsgBox(0,"","create Computer")
Case $msg = $mainContextMenuItem[1] ; edit Computer
MsgBox(0,"","edit Computer")
Case $msg = $mainContextMenuItem[2] ; delete Computer
MsgBox(0,"","delete Computer")
Case $msg = $mainContextMenuItem[4] ; delete Computer
MsgBox(0,"","show Log")
Case $msg = $GUI_EVENT_CLOSE
GUIDelete()
Exit
EndSelect
WEndPS: ich erwarte von niemanden, dass er mir ein fertiges Script präsentiert oder meinen Fehler auch wirklich löst, aber ich hoffe auf jemanden, der mir die Augen öffnet
-
$msg wird leider nie zu die Controls von den Kontextmenü... also nie 13 bis 18...
-
Oh, tut mir leid, die Zeilenangaben von meinem AutoIt und dem Spoiler sind nicht gleich.
Wurde im 1. Post korrigiert!Edit: Somit macht das ausgeben der fraglichen Variablen auch keinen Sinn mehr für mich (oder doch?)
-
Hallo,
Habe wiedermal ein kleines Problem.
Ich habe eine GUI mit 6 Tabs (Zeile 54),
lege ein Kontextmenü auf die ganze Tabreihe (also nicht jedes Tab sondern die ganze reihe hat ein Kontextmenü)(das wird auch noch richtig angezeigt)(Zeile 59),
und dann kommt die Abfrage (und die funktioniert wieder nicht, also ohne Fehler oder sonst was, es wird einfach nicht in die Abfrage hineingesprungen)(Zeile 173)Hier die Source:
Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit]
#AutoIt3Wrapper_Icon=Icon.ico
#AutoIt3Wrapper_Res_Icon_Add=Icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: Palmers Julian
Script Function:
Dieses Programm soll visuell zeigen, welche Computer in welchem Stockwerk online sind.
#ce ----------------------------------------------------------------------------
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <Constants.au3>
#include "files.au3"
TraySetIcon($tempPath&"Icon.ico")
TraySetToolTip("Plasser&&&Theurer"&@CRLF&"WhoIsInTheHouse"&@CRLF&"written by Palmers Julian, 2013")
Opt("TrayAutoPause", 0) ;0=no pause, 1=Pause
TrayItemSetText($TRAY_ITEM_PAUSE, "Pausieren")
TrayItemSetText($TRAY_ITEM_EXIT, "Beenden")
Opt("TCPTimeout", 25)
_logThis("Programm wurde gestartet")
global $s1=0, $s2=0, $raumnummer[100], $person[200][2], $online[2], $javaVersion[200], $flashVersion[200], $readerVersion[200], $contextmenu, $labelContext[200], $contextmenuitemI[200][11]
$iniPath = @ScriptDir&"\Config.ini"
$imagePath = $tempPath
$imageEndung = "jpg"
#region Paths
$javaPath86 = IniRead($iniPath,"Paths","java86","\C$\Windows\System32\java.exe")
$javaPath64 = IniRead($iniPath,"Paths","java64","\C$\Windows\SysWOW64\java.exe")
$flashPath86 = IniRead($iniPath,"Paths","flash86","\C$\Windows\System32\FlashPlayerApp.exe")
$flashPath64 = IniRead($iniPath,"Paths","flash64","\C$\Windows\SysWOW64\FlashPlayerApp.exe")
$readerPath86 = IniRead($iniPath,"Paths","reader86","\C$\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe")
$readerPath64 = IniRead($iniPath,"Paths","reader64","\C$\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe")
#endregion
if $cmdline[0]=0 Then
$selectedFloor = Int(IniRead($iniPath,"Look","stdFloor","0"))
ElseIf $cmdline[0]= 1 Then
if ($cmdline[1]>=0 AND $cmdline[1]<=5) Then
$selectedFloor = $cmdline[1]
Else
MsgBox(16,"Error","Das gewählte Stockwerk ("&$cmdline[1]&") gibt es nicht!"&@CRLF&"Das Programm wird beendet.")
_exit("0x002")
EndIf
EndIf
$windowSize = StringSplit(IniRead($iniPath,"Look","windowSize","900%700"),"%",2)
$tabSize = StringSplit(IniRead($iniPath,"Look","tabSize","700%700"),"%",2)
$bmpSize = StringSplit(IniRead($iniPath,"Look","bmpSize","700%700"),"%",2)
$hWnd = GUICreate("WhoIsInTheHouse", $windowSize[0], $windowSize[1])
$console = GUICtrlCreateInput("0. Stock", 0, $windowSize[1]-25, $windowSize[0], 25, $ES_READONLY)
$image = GUICtrlCreatePic($imagePath&"\0."&$imageEndung, 2, 25, $tabSize[0]-30, $tabSize[1]-30)
GUICtrlSetState($image,$GUI_DISABLE)
$tab = GUICtrlCreateTab(0, 0, $tabSize[0], $tabSize[1])
local $tabs[7]
For $i=0 To 5
$tabs[$i] = GUICtrlCreateTabItem($i&". Stock")
Next
$tabs[6] = GUICtrlCreateTabItem("Aktualisieren")
$mainContextMenu = GUICtrlCreateContextMenu($tab)
local $mainContextMenuItem[5] ;Hauptkontextmenü
$mainContextMenuItem[0] = GUICtrlCreateMenuItem("create Computer", $mainContextMenu) ;neuen Computer erstellen
$mainContextMenuItem[1] = GUICtrlCreateMenuItem("edit Computer", $mainContextMenu) ;vorhandenen Computer bearbeiten
$mainContextMenuItem[2] = GUICtrlCreateMenuItem("delete Computer", $mainContextMenu) ;vorhanden Computer löschen
$mainContextMenuItem[3] = GUICtrlCreateMenuItem("", $mainContextMenu) ;Strich
$mainContextMenuItem[4] = GUICtrlCreateMenuItem("show Log", $mainContextMenu) ;show Log-File
GUICtrlSetState($tabs[$selectedFloor],$GUI_SHOW)
GUISetState()
$whoIsWhoIni = IniReadSection($iniPath,"WhoIsWho")
$j = $whoIsWhoIni[0][0]
local $whoIsWho[$j-1][7]
For $i=2 To $j
$data = StringSplit($whoIsWhoIni[$i][1],"%",2)
$whoIsWho[$i-2][0] = $whoIsWhoIni[$i][0] ;IP-Adresse
$whoIsWho[$i-2][1] = $data[0] ;Computername
$whoIsWho[$i-2][2] = $data[1] ;Nachname
$whoIsWho[$i-2][3] = $data[2] ;Vorname
$whoIsWho[$i-2][4] = $data[3] ;Raumnummer
$whoIsWho[$i-2][5] = $data[4] ;Durchwahl
$whoIsWho[$i-2][6] = StringReplace(StringReplace(StringReplace($data[5],"-",""),":","")," ","") ;MAC-Adresse
Next
;~ _ArrayDisplay($whoIsWho)
$whereIsWhereIni = IniReadSection($iniPath,"WhereIsWhere")
$j = $whereIsWhereIni[0][0]
local $whereIsWhere[$j-1][4]
For $i=2 To $j
$data = StringSplit($whereIsWhereIni[$i][1],"%",2)
$whereIsWhere[$i-2][0] = $whereIsWhereIni[$i][0] ;Raumnummer
$whereIsWhere[$i-2][1] = $data[0] ;X-Koordinate
$whereIsWhere[$i-2][2] = $data[1] ;Y-Koordinate
$whereIsWhere[$i-2][3] = 0 ;Computeranzahl
Next
;~ _ArrayDisplay($whereIsWhere)
While 1
$msg = GUIGetMsg()
If ($msg = $tab OR $s1 = False) Then
$s1 = True
$online[0] = 0 ;Online
$online[1] = 0 ;Gesamtanzahl
If (GUICtrlRead($tab) == "6") Then
_logThis("Stockwerk "&$selectedFloor&" wurde aktualisiert")
GUICtrlSetState($tabs[$selectedFloor],$GUI_SHOW)
$s1=False
$s2=True
ContinueLoop 1
ElseIf ($s2 == False) Then
_logThis("Stockwerk "&GUICtrlRead($tab)&" wurde gewählt")
EndIf
$s2=False
$selectedFloor = GUICtrlRead($tab)
GUICtrlSetImage($image, $imagePath&"\"&$selectedFloor&"."&$imageEndung)
GUICtrlSetData($console, $selectedFloor&". Stock gewählt")
$pingTimer = TimerInit()
For $i = 0 To 199
GUICtrlDelete($person[$i][0])
$person[$i][0] = ""
$person[$i][1] = ""
Next
#region Display
For $i = 0 To UBound($whereIsWhere)-1
$whereIsWhere[$i][3] = "0"
Next
$t=0
For $l=0 To UBound($whoIsWho)-1
If (StringLeft($whoIsWho[$l][4],1) = ($selectedFloor)) Then
If (_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)==-1) Then
MsgBox(48,"Error","Die Raumnummer "&$whoIsWho[$l][4]&" ist nicht definiert!"&@CRLF&"Programm wird beendet!")
_exit("0x001")
Else
$raumkoordinate = _ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)
EndIf
$person[$l][0] = GUICtrlCreateLabel($whoIsWho[$l][1], 5+($whereIsWhere[_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)][1])*($tabSize[0]/$bmpSize[0])*0.965, (($whereIsWhere[_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)][2])*($tabSize[1]/$bmpSize[1])*0.965)-($whereIsWhere[_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)][3]*25))
$contextmenu = GUICtrlCreateContextMenu()
$labelContext[$l] = GUICtrlCreateContextMenu($person[$l][0])
$contextmenuitemI[$l][0] = GUICtrlCreateMenuItem("Info", $labelContext[$l])
$contextmenuitemI[$l][1] = GUICtrlCreateMenu("HDDs", $labelContext[$l])
$contextmenuitemI[$l][2] = GUICtrlCreateMenuItem("C$", $contextmenuitemI[$l][1])
$contextmenuitemI[$l][3] = GUICtrlCreateMenuItem("D$", $contextmenuitemI[$l][1])
$contextmenuitemI[$l][7] = GUICtrlCreateMenuItem("Verwaltung", $labelContext[$l])
$contextmenuitemI[$l][4] = GUICtrlCreateMenu("Commands", $labelContext[$l])
$contextmenuitemI[$l][5] = GUICtrlCreateMenuItem("send Command", $contextmenuitemI[$l][4])
$contextmenuitemI[$l][6] = GUICtrlCreateMenuItem("send Update", $contextmenuitemI[$l][4])
$contextmenuitemI[$l][8] = GUICtrlCreateMenuItem("DameWare", $labelContext[$l])
$contextmenuitemI[$l][9] = GUICtrlCreateMenuItem("WakeOnLan", $labelContext[$l])
$contextmenuitemI[$l][10] = GUICtrlCreateMenuItem("MsInfo", $labelContext[$l])
If (Ping($whoIsWho[$l][1],50)<>0 AND TRUE) Then
GUICtrlSetState($contextmenuitemI[$l][9],$GUI_DISABLE) ; disable WakeOnLan
GUICtrlSetState($contextmenuitemI[$l][6],$GUI_DISABLE) ; disable Send Update
GUICtrlSetState($person[$l][0], $GUI_CHECKED)
GUICtrlSetBkColor($person[$l][0],0x99ff99)
$online[0] = $online[0]+1
Else
GUICtrlSetState($contextmenuitemI[$l][0],$GUI_DISABLE) ; disable Info
GUICtrlSetState($contextmenuitemI[$l][2],$GUI_DISABLE) ; disable C$
GUICtrlSetState($contextmenuitemI[$l][3],$GUI_DISABLE) ; disable D$
GUICtrlSetState($contextmenuitemI[$l][7],$GUI_DISABLE) ; disable Verwaltung
GUICtrlSetState($contextmenuitemI[$l][5],$GUI_DISABLE) ; disable Send Command
GUICtrlSetState($contextmenuitemI[$l][6],$GUI_DISABLE) ; disable Send Update
GUICtrlSetState($contextmenuitemI[$l][8],$GUI_DISABLE) ; disable Dameware
GUICtrlSetState($contextmenuitemI[$l][10],$GUI_DISABLE) ; disable MsInfo
GUICtrlSetBKColor($person[$l][0],0xff9999)
EndIf
GUICtrlSetTip($person[$l][0],"Computer: "&$whoIsWho[$l][1]&@CRLF&"IP: "&$whoIsWho[$l][0]&@CRLF&"-----------"&@CRLF&"Benutzer: "&$whoIsWho[$l][2]&" "&$whoIsWho[$l][3]&@CRLF&"DW: "&$whoIsWho[$l][5]&@CRLF&"Raum: "&$whoIsWho[$l][4])
$online[1] = $online[1]+1
$person[$l][1] = $whoIsWho[$l][1]
$whereIsWhere[_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)][3]=$whereIsWhere[_ArraySearch($whereIsWhere,$whoIsWho[$l][4],"","","","",0)][3]+1
GUICtrlSetData($console, $whoIsWho[$l][1]&" wird gepingt")
$t=$t+1
EndIf
Next
GUICtrlSetData($console, "Alle Computer im "&$selectedFloor&". Stock wurden in "&Round(TimerDiff($pingTimer)/1000,1)&" Sekunden überprüft - ("&$online[0]&" von "&$online[1]&" online)")
#endregion
EndIf
Select
Case $msg = $mainContextMenuItem[0] ; create Computer
MsgBox(0,"","create Computer")
Case $msg = $mainContextMenuItem[1] ; edit Computer
MsgBox(0,"","edit Computer")
Case $msg = $mainContextMenuItem[2] ; delete Computer
MsgBox(0,"","delete Computer")
Case $msg = $mainContextMenuItem[4] ; delete Computer
MsgBox(0,"","show Log")
Case $msg = $GUI_EVENT_CLOSE
GUIDelete()
_exit()
EndSelect
For $l=0 To UBound($whoIsWho)-1
If StringLeft($whoIsWho[$l][4],1) = ($selectedFloor) Then
Select
Case $msg = $contextmenuitemI[$l][0] ; Info
If Ping($whoIsWho[$l][1],50) Then
TCPStartup()
$realIP = TCPNameToIP($whoIsWho[$l][1])
If ($realIP <> $whoIsWho[$l][0]) Then
MsgBox(0,"Error","Der Computer "&$whoIsWho[$l][1]&" hat die IP-Adresse "&$realIP&" und nicht "&$whoIsWho[$l][0]&" !")
EndIf
$javaVersion[$l] = "?"
$flashVersion[$l] = "?"
$readerVersion[$l] = "?"
$osArch = "?"
ShellExecuteWait("sc", "\\"&$whoIsWho[$l][1]&" start RemoteRegistry", "", "", @SW_HIDE)
RunWait(@ComSpec & " /c " &'reg query "\\'&$whoIsWho[$l][1]&'\HKLM\System\CurrentControlSet\Control\Session Manager\Environment" /v PROCESSOR_ARCHITECTURE >> '&@ScriptDir&'\temp.txt', "", @SW_HIDE)
$osArch=FileRead(@ScriptDir&"\temp.txt")
FileDelete(@ScriptDir&"\temp.txt")
$osArch=StringTrimLeft($osArch,123)
$osArch=StringTrimRight($osArch,4)
RunWait(@ComSpec & " /c " &'reg query "\\'&$whoIsWho[$l][1]&'\HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName >> '&@ScriptDir&'\temp.txt', "", @SW_HIDE)
$os=FileRead(@ScriptDir&"\temp.txt")
FileDelete(@ScriptDir&"\temp.txt")
$os=StringTrimLeft($os,96)
$os=StringTrimRight($os,4)
if FileExists("\\" & $whoIsWho[$l][1] & $javaPath86) Then
$javaVersion[$l] = FileGetVersion("\\" & $whoIsWho[$l][1] & $javaPath86)
ElseIf FileExists("\\" & $whoIsWho[$l][1] & $javaPath64) Then
$javaVersion[$l] = FileGetVersion("\\" & $whoIsWho[$l][1] & $javaPath64)
EndIf
if FileExists("\\" & $whoIsWho[$l][1] & $flashPath86) Then
$flashVersion[$l] = FileGetVersion("\\" & $whoIsWho[$l][1] & $flashPath86)
ElseIf FileExists("\\" & $whoIsWho[$l][1] & $flashPath64) Then
$flashVersion[$l] = FileGetVersion("\\" & $whoIsWho[$l][1] & $flashPath64)
EndIf
if FileExists("\\" & $whoIsWho[$l][1] & $readerPath86) Then
$readerVersion[$l] = FileGetVersion("\\" & $whoIsWho[$l][1] & $readerPath86)
ElseIf FileExists("\\" & $whoIsWho[$l][1] & $readerPath64) Then
$readerVersion[$l] = FileGetVersion("\\" & $whoIsWho[$l][1] & $readerPath64)
EndIf
MsgBox(0,"Info","Computer: "&$whoIsWho[$l][1]&@CRLF&"IP: "&$whoIsWho[$l][0]&@CRLF&"Architektur: "&$osArch&@CRLF&"OS: "&$os&@CRLF&"-----------"&@CRLF&"Benutzer: "&$whoIsWho[$l][2]&" "&$whoIsWho[$l][3]&@CRLF&"DW: "&$whoIsWho[$l][5]&@CRLF&"Raum: "&$whoIsWho[$l][4]&@CRLF&"-----------"&@CRLF&"Java Ver.: "&$javaVersion[$l]&@CRLF&"Flash Ver.: "&$flashVersion[$l]&@CRLF&"Reader Ver.: "&$readerVersion[$l])
EndIf
Case $msg = $contextmenuitemI[$l][2] ; C$
Run("explorer.exe \\"&$whoIsWho[$l][1]&"\C$")
_logThis("Netzlaufwerk \\"&$whoIsWho[$l][1]&"\C$ wurde aufgerufen")
Case $msg = $contextmenuitemI[$l][3] ; D$
Run("explorer.exe \\"&$whoIsWho[$l][1]&"\D$")
_logThis("Netzlaufwerk \\"&$whoIsWho[$l][1]&"\D$ wurde aufgerufen")
Case $msg = $contextmenuitemI[$l][7] ; Computerverwaltung
ShellExecute("compmgmt.msc","/computer:\\"&$whoIsWho[$l][1])
_logThis("Die Computerverwaltung von \\"&$whoIsWho[$l][1]&" wurde aufgerufen")
Case $msg = $contextmenuitemI[$l][8] ; DameWare
$dameWare = MsgBox(4+32,"DameWare","Soll eine DameWare-Verbindung mit "&$whoIsWho[$l][1]&" aufgerufen werden?")
If $dameWare = 6 Then
ShellExecute("C:\Program Files\SolarWinds\DameWare Mini Remote Control 10.0\DWRCC.exe","-c: -h: -m:"&$whoIsWho[$l][1])
_logThis("Eine DameWare-Verbindung mit "&$whoIsWho[$l][1]&" wurde aufgebaut")
EndIf
Case $msg = $contextmenuitemI[$l][9] ; WakeOnLan
If (StringLen($whoIsWho[$l][6])=12) Then
ShellExecute($tempPath&"\wol.exe", $whoIsWho[$l][6])
_logThis($whoIsWho[$l][1]&" wurde via WOL gestartet")
MsgBox(0,"Sent","Startup-Befehl wurde an die MAC:"&$whoIsWho[$l][6]&" gesendet!")
Else
_logThis($whoIsWho[$l][1]&" konnte nicht via WOL gestartet werden")
MsgBox(16,"Error","Die angegebene MAC-Adresse ist nicht gültig!")
EndIf
Case $msg = $contextmenuitemI[$l][5] ; Send Command
$password = InputBox("Passwort","Bitte geben Sie ihr Passwort ein","","#")
ShellExecute($tempPath&"\PsExec.exe","\\"&$whoIsWho[$l][1]&" -u "&@LogonDomain&"\"&@UserName&" -p "&$password&" cmd.exe")
_logThis("Eine PsExec-Verbindung mit "&$whoIsWho[$l][1]&" wurde aufgebaut")
Case $msg = $contextmenuitemI[$l][10] ; MsInfo
ShellExecute("msinfo32.exe","/computer "&$whoIsWho[$l][1])
_logThis("MsInfo32.exe für "&$whoIsWho[$l][1]&" wurde aufgerufen")
EndSelect
EndIf
Next
WEnd
Func _exit($error="")
If ($error == "") Then
_logThis("Programm wurde beendet")
Else
_logThis("Programm wurde durch einen Fehler ("&$error&") beendet")
EndIf
Exit
EndFunc
Func _logThis($logString)
$logFile = FileOpen(@ScriptDir&"\log.log",1)
FileWriteLine($logFile,@YEAR&"."&@MON&"."&@MDAY&"-"&@HOUR&":"&@MIN&":"&@SEC&":"&@MSEC&" - "&@UserName&" : "&$logString)
FileClose($logFile)
EndFuncWo liegt da mein Fehler?
Ich hoffe euch reicht der Code, denn den Inhalt der files.au3 darf ich nicht weitergeben.Danke & LG!