Question : La meilleure manière de rechercher des ordinateurs de bureau un dossier ?

Salut tous, le

I ont voulu savoir ce qui était la meilleure manière de rechercher les commandes de C:\ de tous nos ordinateurs de bureau un dossier particulier et d'introduire ceci dans un rapport ou un dossier de .txt ?  J'essaye de m'assurer que des dossiers de .pst ne sont pas créés localement sur des machines d'utilisateurs ainsi veux balayer pour s'assurer qu'ils n'existent pas.  Dans le meilleur des cas je voudrais un rapport comme lequel donne quelque chose : le found
NET1 Archive.pst
NET2 de dossier nommé du

Machine aucun le found
NET3 Folders.pst

Does n'importe qui savent d'une manière simple de faire ceci ? class= de

Réponse : La meilleure manière de rechercher des ordinateurs de bureau un dossier ?

employer SEARCH_PATH pour placer la chemise de racine dont pour creuser les dossiers
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 = « notation »
const MACHINES_LIST = « meirpc »

Placer le fso = le CreateObject (« Scripting.FileSystemObject »)
placer objLogFile = fso.CreateTextFile (OUTPUT_FILE, 2)
objLogFile.WriteLine « MachineName, nom de fichier »

pour chaque strComputer dans la fente (MACHINES_LIST, « , ")
	strComputer de GetFiles, SEARCH_PATH, SEARCH_EXT
après

objLogFile.Close

GetFiles secondaire (strComputer, strFolderName, prolongation)

	Placer l'objWMIService = le GetObject (« winmgmts : \ \ » et strComputer et « \ racine \ cimv2 »)

	Placer les colSubfolders = le _ d'objWMIService.ExecQuery
		(« Associators {Win32_Directory.Name='" et strFolderName et « '} de » _
			et « où _ d'AssocClass = de Win32_Subdirectory »
				et « ResultRole = PartComponent »)

	l'arrFolderPath = s'est dédoublé (strFolderName, « \ ")
	strNewPath = ""
	Pour I = 1 à Ubound (arrFolderPath)
		strNewPath = strNewPath et « \ \ » et arrFolderPath (i)
	Après
	strPath = strNewPath et « \ \ »
	 
	Placer les colFiles = le _ d'objWMIService.ExecQuery
		(« Choisir * à partir de CIM_DataFile où chemin = «  » et strPath et «  » et Extension='" + prolongation + » '")

	Pour chacun objFile dans les colFiles
		strComputer d'objLogFile.WriteLine et « , » et objFile.Name 
	Après

	Pour chaque objFolder dans les colSubfolders
		objWMIService de GetSubFolders, strComputer, strFolderName, prolongation
	Après

sous-marin d'extrémité

GetSubFolders secondaire (objWMIService, strComputer, strFolderName, prolongation)
    Placer _ de colSubfolders2 = d'objWMIService.ExecQuery
        (« Associators {Win32_Directory.Name='" et strFolderName et « '} de » _
            et « où _ d'AssocClass = de Win32_Subdirectory »
                et « ResultRole = PartComponent »)

    Pour chaque objFolder2 dans colSubfolders2
        strFolderName = objFolder2.Name

        l'arrFolderPath = s'est dédoublé (strFolderName, « \ ")
        strNewPath = ""
        Pour I = 1 à Ubound (arrFolderPath)
            strNewPath = strNewPath et « \ \ » et arrFolderPath (i)
        Après
        strPath = strNewPath et « \ \ »
 
        Placer les colFiles = le _ d'objWMIService.ExecQuery
            (« Choisir * à partir de CIM_DataFile où chemin = «  » et strPath et «  » et Extension='" + prolongation + » '")

        Pour chacun objFile dans les colFiles
            strComputer d'objLogFile.WriteLine et « , » et objFile.Name 
        Après

        objWMIService de GetSubFolders, strComputer, strFolderName, prolongation
    Après
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us