Questione : Migliore senso cercare i tavoli una lima?

Ciao tutti, il

I hanno voluto conoscere che cosa era il migliore senso cercare gli azionamenti di C:\ di tutti i nostri tavoli una lima particolare ed inserire questo in un rapporto o in una lima di .txt?  Sto provando a assicurarmi che le lime di .pst non stiano generande localmente sulle macchine degli utenti in modo da voglio esplorare per assicurarmi che non esistano.  Gradirei Nel migliore dei casi un rapporto che dà qualcosa come: il found
NET1 Archive.pst
NET2 della lima di nome del

Machine nessun found
NET3 Folders.pst

Does chiunque sa di un modo semplice di fare questo? class= del

Risposta : Migliore senso cercare i tavoli una lima?

usare SEARCH_PATH per regolare il dispositivo di piegatura della radice da cui scavare le lime
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 = “ceppo„
const MACHINES_LIST = “meirpc„

Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
regolar objLogFile = fso.CreateTextFile (OUTPUT_FILE, 2)
objLogFile.WriteLine “MachineName, nome di schedario„

per ogni strComputer nella spaccatura (MACHINES_LIST, “, ")
	strComputer di GetFiles, SEARCH_PATH, SEARCH_EXT
dopo

objLogFile.Close

GetFiles secondario (strComputer, strFolderName, estensione)

	Regolare il objWMIService = GetObject (“winmgmts: \ \„ & strComputer & “\ radice \ cimv2„)

	Regolare i colSubfolders = il _ di objWMIService.ExecQuery
		(“Associators {Win32_Directory.Name='" & strFolderName & “'}„ di _
			& “dove _ di Win32_Subdirectory = di AssocClass„
				& “ResultRole = PartComponent„)

	il arrFolderPath = ha spaccato (strFolderName, “\ ")
	strNewPath = ""
	Per i = 1 a Ubound (arrFolderPath)
		strNewPath = strNewPath & “\ \„ & arrFolderPath (i)
	Dopo
	strPath = strNewPath & “\ \„
	 
	Regolare i colFiles = il _ di objWMIService.ExecQuery
		(“Selezionare * a partire da CIM_DataFile dove percorso = “„ & strPath & “„ e Extension='" + estensione +„ '")

	Per ciascuno objFile nei colFiles
		strComputer di objLogFile.WriteLine & “,„ & objFile.Name 
	Dopo

	Per ogni objFolder in colSubfolders
		objWMIService di GetSubFolders, strComputer, strFolderName, estensione
	Dopo

sommergibile dell'estremità

GetSubFolders secondario (objWMIService, strComputer, strFolderName, estensione)
    Regolar _ di colSubfolders2 = di objWMIService.ExecQuery
        (“Associators {Win32_Directory.Name='" & strFolderName & “'}„ di _
            & “dove _ di Win32_Subdirectory = di AssocClass„
                & “ResultRole = PartComponent„)

    Per ogni objFolder2 in colSubfolders2
        strFolderName = objFolder2.Name

        il arrFolderPath = ha spaccato (strFolderName, “\ ")
        strNewPath = ""
        Per i = 1 a Ubound (arrFolderPath)
            strNewPath = strNewPath & “\ \„ & arrFolderPath (i)
        Dopo
        strPath = strNewPath & “\ \„
 
        Regolare i colFiles = il _ di objWMIService.ExecQuery
            (“Selezionare * a partire da CIM_DataFile dove percorso = “„ & strPath & “„ e Extension='" + estensione +„ '")

        Per ciascuno objFile nei colFiles
            strComputer di objLogFile.WriteLine & “,„ & objFile.Name 
        Dopo

        objWMIService di GetSubFolders, strComputer, strFolderName, estensione
    Dopo
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us