Cuestión : ¿La mejor manera de buscar las mesas para un archivo?

¿Hola todos,

I quisieron saber cuál era la mejor manera de buscar las impulsiones de C:\ de todas nuestras mesas para un archivo particular y de alimentar esto en un informe o un archivo de .txt?  Estoy intentando cerciorarme de que los archivos de .pst no se están creando localmente en las máquinas de los usuarios así que quiero explorar para cerciorarse de que no existen.  Quisiera ideal un informe como el cual da algo: ¿el found
NET1 Archive.pst
NET2 del archivo conocido del

Machine ningunos el found
NET3 Folders.pst

Does cualquier persona sabe de una manera fácil de hacer esto? class= del

Respuesta : ¿La mejor manera de buscar las mesas para un archivo?

utilizar SEARCH_PATH para fijar la carpeta de la raíz de la cual cavar los archivos
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 = “registro”
const MACHINES_LIST = “meirpc”

Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
fijar objLogFile = fso.CreateTextFile (OUTPUT_FILE, 2)
objLogFile.WriteLine “MachineName, nombre de fichero”

para cada strComputer en la fractura (MACHINES_LIST, “, ")
	strComputer de GetFiles, SEARCH_PATH, SEARCH_EXT
después

objLogFile.Close

GetFiles secundario (strComputer, strFolderName, extensión)

	Fijar el objWMIService = GetObject (“winmgmts: \ \” y strComputer y “\ raíz \ cimv2”)

	Fijar los colSubfolders = el _ de objWMIService.ExecQuery
		(“Associators {el Win32_Directory.Name='" y strFolderName y “'} del” _
			y “donde _ de AssocClass = de Win32_Subdirectory”
				y “ResultRole = PartComponent”)

	el arrFolderPath = partió (strFolderName, “\ ")
	strNewPath = ""
	Para i = 1 a Ubound (arrFolderPath)
		strNewPath = strNewPath y “\ \” y arrFolderPath (i)
	Después
	strPath = strNewPath y “\ \”
	 
	Fijar los colFiles = el _ de objWMIService.ExecQuery
		(“Seleccionar * de CIM_DataFile donde trayectoria = “” y strPath y “” y Extension='" + extensión +” '")

	Para cada uno objFile en colFiles
		strComputer de objLogFile.WriteLine y “,” y objFile.Name 
	Después

	Para cada objFolder en colSubfolders
		objWMIService de GetSubFolders, strComputer, strFolderName, extensión
	Después

submarino del extremo

GetSubFolders secundario (objWMIService, strComputer, strFolderName, extensión)
    Fijar _ de colSubfolders2 = de objWMIService.ExecQuery
        (“Associators {el Win32_Directory.Name='" y strFolderName y “'} del” _
            y “donde _ de AssocClass = de Win32_Subdirectory”
                y “ResultRole = PartComponent”)

    Para cada objFolder2 en colSubfolders2
        strFolderName = objFolder2.Name

        el arrFolderPath = partió (strFolderName, “\ ")
        strNewPath = ""
        Para i = 1 a Ubound (arrFolderPath)
            strNewPath = strNewPath y “\ \” y arrFolderPath (i)
        Después
        strPath = strNewPath y “\ \”
 
        Fijar los colFiles = el _ de objWMIService.ExecQuery
            (“Seleccionar * de CIM_DataFile donde trayectoria = “” y strPath y “” y Extension='" + extensión +” '")

        Para cada uno objFile en colFiles
            strComputer de objLogFile.WriteLine y “,” y objFile.Name 
        Después

        objWMIService de GetSubFolders, strComputer, strFolderName, extensión
    Después
Submarino del extremo
Otras soluciones  
 
programming4us programming4us