Vraag : Beste manier om Desktops naar een dossier te zoeken?

Hallo wilden allen,

I weten wat de beste manier was om de C:\ aandrijving van al onze Desktops te zoeken naar een bepaald dossier en dit te voeden in een een rapport of .txt dossier?  Ik probeer om ervoor te zorgen dat de .pst dossiers niet plaatselijk op gebruikersmachines zo willen worden gecre�ërd aftasten om ervoor te zorgen zij niet bestaan.  Ideaal gezien zou ik van een rapport houden dat iets als geeft:

Machine- Naam found
NET1 Archive.pst
NET2 niets found
NET3 Persoonlijke Folders.pst

Does iedereen van een gemakkelijke manier om dit te doen?

Antwoord : Beste manier om Desktops naar een dossier te zoeken?

gebruik SEARCH_PATH om de wortelomslag te plaatsen waarvan om de dossiers te graven
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

const SEARCH_PATH = „c:\temp“
const OUTPUT_FILE = „c:\temp\output.csv“
const SEARCH_EXT = „logboek“
const MACHINES_LIST = „meirpc“

Vastgestelde fso = CreateObject („Scripting.FileSystemObject“)
vastgestelde objLogFile = fso.CreateTextFile (OUTPUT_FILE, 2)
objLogFile.WriteLine „MachineName, FileName“

voor elke strComputer in Spleet (MACHINES_LIST, „,“)
	GetFiles strComputer, SEARCH_PATH, SEARCH_EXT
daarna

objLogFile.Close

sub GetFiles (strComputer, strFolderName, uitbreiding)

	Vastgestelde objWMIService = GetObject („winmgmts: \ \“ & strComputer & „\ wortel \ cimv2“)

	Vastgestelde colSubfolders = objWMIService.ExecQuery _
		(„Associators van {Win32_Directory.Name='" & strFolderName & „'}“ _
			& „waar AssocClass = Win32_Subdirectory“ _
				& „ResultRole = PartComponent“)

	arrFolderPath = verdeel (strFolderName, „\“)
	strNewPath = ""
	Voor I = 1 aan Ubound (arrFolderPath)
		strNewPath = strNewPath & „\ \“ & arrFolderPath (I)
	Daarna
	strPath = strNewPath & „\ \“
	 
	Reeks colFiles = objWMIService.ExecQuery _
		(„Selecteer * uit CIM_DataFile waar Weg = „“ & strPath & „“ en Extension='" + uitbreiding +“ '„)

	Voor elk objFile in colFiles
		objLogFile.WriteLine strComputer & „,“ & objFile.Name 
	Daarna

	Voor Elke objFolder in colSubfolders
		objWMIService van GetSubFolders, strComputer, strFolderName, uitbreiding
	Daarna

eind sub

Sub GetSubFolders (objWMIService, strComputer, strFolderName, uitbreiding)
    Vastgesteld colSubfolders2 = objWMIService.ExecQuery _
        („Associators van {Win32_Directory.Name='" & strFolderName & „'}“ _
            & „waar AssocClass = Win32_Subdirectory“ _
                & „ResultRole = PartComponent“)

    Voor Elke objFolder2 in colSubfolders2
        strFolderName = objFolder2.Name

        arrFolderPath = verdeel (strFolderName, „\“)
        strNewPath = ""
        Voor I = 1 aan Ubound (arrFolderPath)
            strNewPath = strNewPath & „\ \“ & arrFolderPath (I)
        Daarna
        strPath = strNewPath & „\ \“
 
        Reeks colFiles = objWMIService.ExecQuery _
            („Selecteer * uit CIM_DataFile waar Weg = „“ & strPath & „“ en Extension='" + uitbreiding +“ '„)

        Voor elk objFile in colFiles
            objLogFile.WriteLine strComputer & „,“ & objFile.Name 
        Daarna

        objWMIService van GetSubFolders, strComputer, strFolderName, uitbreiding
    Daarna
Sub van het eind
Andere oplossingen  
 
programming4us programming4us