Re(2): VBScript Problem: Netzwerkfreigaben durchsuchen...

Ardjan — Thu, 08 May 2008 12:08:36 GMT

ARRGH!!!

Ich bin manchmal wirklich so blöd wie ich groß bin... (und ich bin 1.96m )

Genau das habe ich vor 3 Minuten auch entdeckt und warte jetzt auf das Ergebnis der ersten Share...

(Thread wird geschlossen um blöde Antworten zu entgehen )

Re: VBScript Problem: Netzwerkfreigaben durchsuchen...

user96106 — Thu, 08 May 2008 11:47:49 GMT

hm unter unix gibt es kein WMI

tipp ins blaue:

dir "\\server\freigabe$" /s /ah >> outputfile

oder wenns nur um verzeichnisse geht

dir "\\server\freigabe$" /s /ahd >> outputfile

VBScript Problem: Netzwerkfreigaben durchsuchen...

Ardjan — Thu, 08 May 2008 08:36:52 GMT

Hi, ich soll bestimmte Freigaben durchsuchen um zu schauen wieviele versteckte Verzeichnisse drauf sind, und diese ggf löschen. Folgendes habe ich gefunden, und für lokale Rechner oder Netzwerkrechner schon funktionierend:

set fs_obj = createobject("scripting.filesystemobject")

set outfile_obj = fs_obj.opentextfile("hidden.txt",2,True)
set outfile_obj2 = fs_obj.opentextfile("hidden_with_del.bat.txt",2,True)

strComputer = "server0217"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
    ("Select * from Win32_Directory Where Hidden = True")

For Each objFile in colFiles
        outfile_obj.Write Now() & vbtab & objFile.Name & vbcrlf
        outfile_obj2.Write "rmdir /s /q " & objFile.Name & vbcrlf
Next

msgbox "Ready"

Ist relativ einfach: ich schreibe damit eine Liste mit Hidden Verzeichnisse, und eine Datei die ich nur als .bat umbenennen muss und ausführen.

Das Problem: es funktioniert prächtig auf meine eigene Rechner (strComputer=".") und auf irgendwelche Servern. Ich muss aber Freigaben durchsuchen "\\server623\freigabe$", aber da funktioniert es nicht. Diese Freigabeserver sind non-Windows (Unix oder Mainframe, das weiß ich nicht genau) und dort kann ich nicht lokal dieses Script ausführen.

hat jemand einen Tipp wie ich dieses Problem lösen kann?