• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Skrypt z WSH połączony z informacjami systemowymi (a także ich zapisywaniem do pliku)

VPS Starter Arubacloud
0 głosów
597 wizyt
pytanie zadane 29 maja 2020 w Visual Basic przez Hubertius Bywalec (2,970 p.)
edycja 29 maja 2020 przez Hubertius

Hej :)

Mam do wykonania takie dwa o to zadanka:

1.Napisz skrypt wyświetlający Architekturę, identyfikator oraz wersję procesora (pobierz informację ze zmiennych systemowych)
2.Zmodyfikuj powyższy skrypt aby wszystkie informacje zapisał do pliku tekstowego

Kompletnie nie mam pojęcia jak to rozpisać. Wcześniejsze zadanie to było de facto wypisanie liczb pierwszych mniejszych niż 100 (czyli banał dla zapoznania z językiem), a teraz po skąpej treści teoretycznej taka wrzutka.  Wiem, że muszę się posłużyć w tym zadaniach obiektami. Z góry dziękuję za wszelkie odpowiedzi.  

EDIT

Okej, na tą chwilę mam tyle do pierwszego zadania:

Dim WshShell
Dim WshProcEnv
Dim process_architecture
Dim process_identifier
Dim process_revision


Set WshShell =  CreateObject("WScript.Shell")
Set WshProcEnv = WshShell.Environment("Process")

process_architecture= WshProcEnv("PROCESSOR_ARCHITECTURE") 
process_identifier = WshProcEnv("PROCESSOR_IDENTIFIER")
process_revision = WshProcEnv("PROCESSOR_REVISION")

MsgBox "Type of CPU on the computer: " & process_architecture & vbCrLf & "Type of ID: " & process_identifier & vbCrLf & "Version of the CPU: " & process_revision

Czy jest to dobrze zapisane? Jeśli tak jak mogę teraz zapisać to do pliku?

 

1 odpowiedź

0 głosów
odpowiedź 30 maja 2020 przez VBService Ekspert (251,210 p.)
edycja 30 maja 2020 przez VBService

Dim WshShell
Dim WshProcEnv
Dim objFSO, objFile
Dim file_name
Dim process_architecture
Dim process_identifier
Dim process_revision
Dim raport

Const OVER_WRITE = True


Set WshShell =  CreateObject("Wscript.Shell")
Set WshProcEnv = WshShell.Environment("Process")
Set objFSO = CreateObject("Scripting.FileSystemObject")

process_architecture= WshProcEnv("PROCESSOR_ARCHITECTURE")
process_identifier = WshProcEnv("PROCESSOR_IDENTIFIER")
process_revision = WshProcEnv("PROCESSOR_REVISION")

raport = "Type of CPU on the computer: "  & process_architecture & vbCrLf & _
         "Type of ID: "  & process_identifier & vbCrLf & _
         "Version of the CPU: "  & process_revision

MsgBox  raport, vbOKOnly + vbInformation , "Information about the processor"

file_name = objFSO.BuildPath(WshShell.CurrentDirectory,"dane.txt")
Set objFile = objFSO.CreateTextFile(file_name, OVER_WRITE)
    objFile.WriteLine(raport)
    objFile.Close

 

Podobne pytania

0 głosów
0 odpowiedzi 260 wizyt
pytanie zadane 28 listopada 2019 w Visual Basic przez mmmx19 Nowicjusz (120 p.)
0 głosów
1 odpowiedź 1,129 wizyt
pytanie zadane 2 listopada 2018 w Visual Basic przez kubekzone Użytkownik (620 p.)
0 głosów
1 odpowiedź 462 wizyt
pytanie zadane 4 kwietnia 2019 w C# przez Michał Lubiński Nowicjusz (140 p.)

92,452 zapytań

141,262 odpowiedzi

319,078 komentarzy

61,854 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Akademia Sekuraka 2024 zapewnia dostęp do minimum 15 szkoleń online z bezpieczeństwa IT oraz dostęp także do materiałów z edycji Sekurak Academy z roku 2023!

Przy zakupie możecie skorzystać z kodu: pasja-akademia - użyjcie go w koszyku, a uzyskacie rabat -30% na bilety w wersji "Standard"! Więcej informacji na temat akademii 2024 znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...