נשלח בתאריך: 07 April 2006 בשעה 15:55 | | IP רשוּם
|
|
|
|
אף אחד לא יודע???
הנה עוד דוגמא,צרו ספריה בכונן C עם שם TEST ואז תריצו את קובץ ה-VBS הזה
הוא מקפיץ לכל פקודה חלון בנפרד, איך אני עושה שכל הסקריפט הזה יהיה בחלון אחד וכמובן מסודר שכל פקודה תיהיה מתחת לפקודה הראשונה???
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Directory WHERE Name = 'c:\\test'") For Each objFolder in colFolders Wscript.Echo "Archive: " & objFolder.Archive Wscript.Echo "Caption: " & objFolder.Caption Wscript.Echo "Compressed: " & objFolder.Compressed Wscript.Echo "Compression method: " & objFolder.CompressionMethod Wscript.Echo "Creation date: " & objFolder.CreationDate Wscript.Echo "Encrypted: " & objFolder.Encrypted Wscript.Echo "Encryption method: " & objFolder.EncryptionMethod Wscript.Echo "Hidden: " & objFolder.Hidden Wscript.Echo "In use count: " & objFolder.InUseCount Wscript.Echo "Last accessed: " & objFolder.LastAccessed Wscript.Echo "Last modified: " & objFolder.LastModified Wscript.Echo "Name: " & objFolder.Name Wscript.Echo "Path: " & objFolder.Path Wscript.Echo "Readable: " & objFolder.Readable Wscript.Echo "System: " & objFolder.System Wscript.Echo "Writeable: " & objFolder.Writeable Next
תודה
|