[VisualBasic] Remote mit Admin rechten Daten auslesen

BenQ · 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

Anzeige

Nash · 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.

BenQ · 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

Ammo · 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...

BenQ · 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

Nützliche Suchen

[VisualBasic] Remote mit Admin rechten Daten auslesen

Videos zum Themenbereich