נושא: עזרה קטנה בקובץ ה-VBS הזה

נשלח בתאריך: 07 April 2006 בשעה 04:21 | IP רשוּם

הקובץ הזה מציג לי רשימה אחת מה-EVENT viewer שאני בוחר להציג,מה שאני רוצה זה שאת התשובה שאני יקבל יופיע כל מה שרשום בקוד ולא כל SECTION בחלון נפרד כמו שזה מציג עתה.

הקובץ:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NTLogEvent WHERE Logfile = 'System' AND " _
 & "EventCode = '7035'")
'Wscript.Echo "Improper shutdowns: " & colLoggedEvents.Count
For each objEvent in colLoggedEvents
wscript.echo "Computer Name: " & objEvent.ComputerName
 Wscript.Echo "Computer Name: " & objEvent.ComputerName
 Wscript.Echo "Event Code: " & objEvent.EventCode
 Wscript.Echo "Message: " & objEvent.Message
 Wscript.Echo "Record Number: " & objEvent.RecordNumber
 Wscript.Echo "Source Name: " & objEvent.SourceName
 Wscript.Echo "Time Written: " & objEvent.TimeWritten
 Wscript.Echo "Event Type: " & objEvent.Type
 Wscript.Echo "User: " & objEvent.User
next

תודה

נשלח בתאריך: 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

תודה

נשלח בתאריך: 07 April 2006 בשעה 16:49 | IP רשוּם

את זה אני יודע אבל איך אני גורם לכל שורה שרשום בקוד שתרד גם שורה בחלון שמתקבל ולא שהכל יהיה רשום בשורה אחת?

וגם קצת סבלנות אני ממש מתחיל בנושא.

נשלח בתאריך: 07 April 2006 בשעה 17:10 | IP רשוּם

זה לא מסתדר לי אתה יכול לרשום את הקוד ולעשות ככה 2 הורדת שורות כדי שאני יראה איך עושים כי אני מקבל הודעת שגיאה כנראה התחביר שלי לא תקין.