ja ich habe alle rechte...
ich kriege es nicht mal mit dem lokalen rechner hin ...
klappt es bei euch?
Ich komme nicht mal zum Arraydisplay....?
#include <File.au3>
#include <HKCUReg.au3>
#include <array.au3>
#include <Security.au3>
#include "Reg.au3"
$avArray = _HKCU_Read("\\\127.0.0.1\administrator\Printers", "")
_ArrayDisplay($avArray)
Nein war mein fehler..
leider nicht gelöst 
Hallo,
ich möchte das neu erstellen eines Profiles Automatisieren,
ich möchte dabei auch einige einstellungen sichern..
zb.
Drucker und Netzlaufwerke...
Hatte es vor remote zu machen und aus der reistry auslesen bzw.
exportieren damit ich es an schliessend importieren kann.
Folgende schlüssel will ich lesen.
HKCU\Network
HKCU\Printers
Habe auch eine UDF dafür gefunden aber kriege leider kein ergebniss kann mir wieder mal jemand unter die arme greifen?
#include <File.au3>
#include <HKCUReg.au3>
#include <array.au3>
#include <Security.au3>
#include ".\Reg.au3"
_HKCU_Read("\\\PC1\\user1\Printers", "")
;_HKCU_Read("\\\PC2\\user2\Network", "")
_ArrayDisplay($avArray)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]Kriege leider kein ergebniss?
Was mache ich falsch oder wie sollte ich es am besten machen?
Danke
SubZero
Hier die UDF
Sorry
*Push*
hey,
habe eine frage hat jemand eine möglichkeit gefunden ciscoworks von extern abzufragen über cmd oder ähliches?
Vielen Dank für die Unterstützung....
Also jetzt habe ich es auf weiteren 2 rechnern in der Firma Probiert nur 2 einträge in der Tabele??
Eine idee was ich falsch mache oder eine idee wie man es besser machen könnte?
Das wäre super würde ich mich freuen, 
Ich kriege nur 2 zeilen gelistet und ich habe definitiv mehr instaliert und bei einem anderen rechner habe ich das auch,
wie sieht das bei euch aus?
Danke,
kriege folgenden fehler:
02.au3 (11) : ==> The requested action with this object has failed.:
$fileWrite = FileWriteLine($fileName, $objSoftware.Caption & ";" & $objSoftware.ProductID & ";" & $objSoftware.Version & ";" & $objSoftware.RegOwner)
$fileWrite = FileWriteLine($fileName, $objSoftware.Caption & ";" & $objSoftware.ProductID ^ ERROR
eine idee?
Hallo,
ich würde gerne instalierte software auslesen, dabei aber die Windows Update ausblenden eine idee?
Eine Idee wie ich mein Problem lösen Könnte?
Danke
SubZero
$sBaseKey = "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\"
[/autoit] [autoit][/autoit] [autoit]$iKey = 1
$sSoftwareName = ""
$sLogfile = "C:\software.txt"
$hFile = FileOpen ( $sLogfile, 10 )
if @error Then
MsgBox ( 64, "Error", "Could not open File")
Exit
EndIf
while 1
$sKey = RegEnumKey ( $sBaseKey , $iKey )
if @error then ExitLoop
$sDisplayName = RegRead ( $sBaseKey & "\" & $sKey , "DisplayName")
if @error Then
$sDisplayName = RegRead ( $sBaseKey & "\" & $sKey , "QuietDisplayName")
if @error then
$iKey += 1
ContinueLoop
EndIf
EndIf
;_ArrayDisplay($sDisplayName)
FileWriteLine ( $hFile, $sDisplayName & @crlf)
$iKey += 1
WEnd
Habe ich ganz vergessen zu erwähnen psexec kann nicht genutzt werden auf dem Remote PC.
also geht damit auch netsh nicht
Hey,
habe ein Problem aber was ich bisher nicht lösen konnte.
Ich möchte gerne remote auf einem rechner einen Firewall Port öffnen und schliessen können habe leider nichts gefunden.
Für Tipps und Ratschläge würde ich mich sehr freuen ich bin auf beiden Rechner admin.
eine Idee?
Danke
SubZero
Danke
filereadline
Hey,
nimmst du es mir übel wenn ich noch frage wie ich die csv einlesen sollte?
Danke
SubZero
Hey,
ich habe ein Problem und weiß nicht wie ich das lösen kann??
Also suche "PC1" wenn du es findest dann gebe aus "192.168.0.11"
die einträge sind mit , getrennt.
Wie mache ich das?
Danke für eure Hilfe
Gruß
SubZero
192.168.0.11, PC1-053042118071, 00215c1d0be1, PC, DHCP, , Domain,
192.168.0.12, PC2-053042113062, 001de028267b, PC, DHCP, , Domain,
192.168.0.13, PC3-7053042112032, 00215c6dec3d, PC, DHCP, , Domain,
192.168.0.14, PC4-7053033111022, 001de01b82eb, PC, DHCP, , Domain,
192.168.0.14, PC5, 001de01b82eb, 001gh01b82eb, PC, DHCP, , Domain,
Hey,
ich will eine combobox auslesen..
was mache ich falsch??
$Combo = GUICtrlCreateCombo("", 8, 144, 89, 25)
GUICtrlSetData($combo, "Männlich|Weiblich")
GUICtrlRead($Combo)
MsgBox(0, "", $Combo)
Das habe ich schon verstanden aber wie fange ich den fehler ab ?
habe immer noch den gleichen fehler habe es so abgeändert:
[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
If Not IsObj($objWMIService) Then Return
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)
EndIf
Next
EndIf
ConsoleWrite($LM_members)
EndFunc ;==>Membership_Administrators_Local
[/autoit]nimmst du es mir übel wenn ich es nicht verstanden habe??
[autoit]If IsObj($objWMIService) Then return
[/autoit]Das ist falsch... was muss ich tun
Hey,
benutze diese funktion um auf einem remote rechner die Admin user auszulesen aber kriege bei einigen rechner folgenden fehler
==> Variable must be of type "Object".:
$colItems = $objWMIService.ExecQuery("Select SID from Win32_Group WHERE Domain='" & $srv & "'", "WQL", 0x30)
$colItems = $objWMIService^ ERROR
wie kann ich das abfangen?
so das mein script nicht abstürtzt oder besser verhindern:
[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)
EndIf
Next
EndIf
ConsoleWrite($LM_members)
EndFunc ;==>Membership_Administrators_Local
[/autoit]Danke
SubZero
