[VisualBasic] Remote mit Admin rechten Daten auslesen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von BenQ, 24. Oktober 2006 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 24. Oktober 2006
    Remote mit Admin rechten Daten auslesen

    Hi leute,

    hab ne aufgabe bekommen in der ich mit einem VB Script daten aus nem Ordner auslesen soll.
    Hab auch Adminrechte und alles.

    Aber wie stelle ich das an?
    Daten liegen und C:/temp oder C:\temp (kA wie des gehört ^^)

    Soweit bin ich schon:
    Code:
    computer = InputBox("Bitte geben sie den Computernamen ein!")
    
    set wmi = GetObject("winmgmts:\\" & computer)
    
    Also danke schonmal BW ist sicher

    Gruß BenQ
     

  2. Anzeige
  3. #2 24. Oktober 2006
    AW: Remote mit Admin rechten Daten auslesen

    Inhaltsverzeichnis aller Ordner und Unterordner mit Dateien

    Das Skript beinhaltet eine rekursive Schleife.
    Das Ergebnis wird in einer Textdatei inhalt.txt ausgegeben.

    Code:
    dim liste
    set fs = createobject("Scripting.FileSystemObject")
    
    Sub Listordner(ordner)
     Set ordner = fs.getfolder(ordner)
     For Each file In ordner.files
     liste = liste & file.path & vbCr
     Next
     For Each unterordner In ordner.subfolders
     liste = liste & unterordner.path & vbCr
     Listordner unterordner
     next
    End Sub
    
    ordner ="C:\test\"
    
    Listordner ordner
    set logbuch = fs.opentextfile("C:\inhalt.txt", 8, true,0)
    logbuch.writeline liste
    logbuch.close
    msgbox("done.")
    
    Hab versucht durchs Einrücken die Lesbarkeit zu erhöhen.

    MFG
    Nash

    EDIT: was du mit dem Remote willst hab ich noch nicht verstanden.
     
  4. #3 24. Oktober 2006
    AW: Remote mit Admin rechten Daten auslesen

    OK danke werd ich morgen versuchen

    Jo also ich bin mit meinem rechner an einer Domäine angemeldet und eine andere echner auch. und ich soll jetzt mit einem Script nachhschauen was in dem Ordner temp auf dem Zielrechner liegt.

    Dazu wurde ich auch als admin auf dem rechner eingetragen und kann alles machen

    gruß

    BW ist raus
     
  5. #4 24. Oktober 2006
    AW: Remote mit Admin rechten Daten auslesen

    Also, wenn du in der Domäne Admin Rechte hast geht das ganz einfach wie folgt:

    Code:
    Private Sub form_load()
    dim liste as string
    dim ordner as string
    
    computer = InputBox("Bitte geben sie den Computernamen ein!")
    
    set fs = createobject("Scripting.FileSystemObject")
    
    ordner = "\\" & computer & "\C$\temp"
    
    Sub Listordner(ordner)
     Set ordner = fs.getfolder(ordner)
     For Each file In ordner.files
     liste = liste & file.path & vbCr
     Next
     For Each unterordner In ordner.subfolders
     liste = liste & unterordner.path & vbCr
     Listordner unterordner
     next
    End Sub
    
    ordner ="C:\test\"
    
    Listordner ordner
    set logbuch = fs.opentextfile("C:\inhalt.txt", 8, true,0)
    logbuch.writeline liste
    logbuch.close
    set fs = nothing
    End Sub
    
    
    Sollte so funktionieren, aber keine Ahnung... habe zuhause kein VB (zu faul zu installieren)
    mit C$ nutz6t du die versteckte administrative freigabe...
     
  6. #5 25. Oktober 2006
    AW: Remote mit Admin rechten Daten auslesen

    Hi,

    also mein Mitazubi hat das folgendermaßen gelöst:

    Code:
    ordner = InputBox("Gib den vollständigen Pfad des Ordners an!")
    
    set FileSystemObject = CreateObject ("Scripting.FileSystemObject")
    set folder = FileSystemObject.GetFolder (ordner)
    set subfolder = folder.SubFolders
    
    for each folder in subfolder
    
     folderlist = folderlist & folder.name & vbCr
    next
    
    set folder = FileSystemObject.GetFolder (ordner)
    set files = folder.Files
    
    for each file in files
    
     filelist = filelist & file.name & vbCr
    next
    
    MsgBox "Der Ordner" & ordner & " enthält die Ordner:" & vbCr & folderlist & "und die Dateien: " & vbCr & filelist
    
    Gruß BenQ
     

  7. Videos zum Thema
Die Seite wird geladen...