VBScript : Έτσι, χωρίς πρόγραμμα.

Η vbscript είναι μια γλώσσα scripting(σεναρίου όπως το μεταφράζουν). Έρχεται μαζί με τα windows και μπορεί να κάνεις 2 πράγματα με αυτή. Να προσθέσεις διαδραστικότητα σε ιστοσελίδες(πράγμα που έχει εγκαταληφθεί για λόγους ασφάλειας) ή να διαχειριστείς και να πάρεις πληροφορίες για τα windows.

Εμείς σήμερα παίζουμε λίγο, παίρνοντας μερικές χρήσιμες πληροφορίες για τον υπολογιστή μας χωρίς τη χρήση κάποιου προγράμματος αλλά μόνο του vbscript.

Αντιγραφή και επικόλληση στο Σημειοματάριο και σώσιμο με το όνομα eject_cdroms.vbs
Τι κάνει: Ανοίγει τα cdroms και μετά από 10 δεύτερα τα κλείνει
Διπλό κλικ στο αρχείο που σώσατε για να λειτουργήσει

'ejects, waits 10 sec and closes cdrom drive trays
set oWMP = Createobject("wMPlayer.OCX.7")
set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
for i=0 to colCDROMs.Count - 1
colCDROMs.Item(i).eject
next ' cdrom

'Script.Wait 10000

WScript.Sleep 10000

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

'oWMP.Close()
Set colCDROMs = Nothing
Set oWMP = Nothing



Αντιγραφή και επικόλληση στο Σημειοματάριο και σώσιμο με το όνομα free.vbs
Tι κάνει: δίνει σε GB τον ελεύθερο χώρο στο c:\
Διπλό κλικ στο αρχείο που σώσατε για να λειτουργήσει

Set objWMIService = GetObject("winmgmts:")
Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='c:'")
Wscript.Echo objLogicalDisk.FreeSpace / (1024*1024*1024) & " GB"





Αντιγραφή και επικόλληση στο Σημειοματάριο και σώσιμο με το όνομα cpu_info.vbs
Τι κάνει: Πληροφορίες για το CPU(Κεντρική μονάδα επεξεργασίας)
Διπλό κλικ στο αρχείο που σώσατε

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colCSes = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objCS In colCSes
WScript.Echo "Computer Name: " & objCS.Name
WScript.Echo "System Type: " & objCS.SystemType
WScript.Echo "Number Of Processors: " & objCS.NumberOfProcessors
Next
Set colProcessors = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objProcessor in colProcessors
WScript.Echo "Manufacturer: " & objProcessor.Manufacturer
WScript.Echo "Name: " & objProcessor.Name
WScript.Echo "Description: " & objProcessor.Description
WScript.Echo "Processor ID: " & objProcessor.ProcessorID
WScript.Echo "Address Width: " & objProcessor.AddressWidth
WScript.Echo "Data Width: " & objProcessor.DataWidth
WScript.Echo "Family: " & objProcessor.Family
WScript.Echo "Maximum Clock Speed: " & objProcessor.MaxClockSpeed
Next

Αντιγραφή και επικόλληση στο Σημειοματάριο και σώσιμο με το όνομα MEMORY.VBS
Τι κάνει: Πληροφορίες για τη μνήμη.
Διπλό κλικ στο αρχείο που σώσατε

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colCSItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objCSItem In colCSItems
WScript.Echo "Total Physical Memory: " & objCSItem.TotalPhysicalMemory
Next
Set colOSItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objOSItem In colOSItems
WScript.Echo "Free Physical Memory: " & objOSItem.FreePhysicalMemory
WScript.Echo "Total Virtual Memory: " & objOSItem.TotalVirtualMemorySize
WScript.Echo "Free Virtual Memory: " & objOSItem.FreeVirtualMemory
WScript.Echo "Total Visible Memory Size: " & objOSItem.TotalVisibleMemorySize
Next


Αντιγραφή και επικόλληση στο Σημειοματάριο και σώσιμο με το όνομα OS.vbs
Τι κάνει: πληροφορίες για τα windows
Διπλό κλικ στο αρχείο που σώσατε

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS in colOSes
Wscript.Echo "Computer Name: " & objOS.CSName
Wscript.Echo "Caption: " & objOS.Caption 'Name
Wscript.Echo "Version: " & objOS.Version 'Version & build
Wscript.Echo "Build Number: " & objOS.BuildNumber 'Build
Wscript.Echo "Build Type: " & objOS.BuildType
Wscript.Echo "OS Type: " & objOS.OSType
Wscript.Echo "Other Type Description: " & objOS.OtherTypeDescription
WScript.Echo "Service Pack: " & objOS.ServicePackMajorVersion & "." & _
objOS.ServicePackMinorVersion
Next



Για αναδημοσιεύσεις διαβάστε πρώτα αυτό το άρθρο μου και αυτή τη σελίδα Creative Commons(attribution non-commercial) και επικοινωνείστε με τη φόρμα επικοινωνίας