'v5.B====================================================================== ' ' NAME: pc-info.vbs ' ' AUTHOR: sk0r , VB-Scripter, siehe auch: http://dieseyer.de/images/sk0r.jpg ' DATE : 27.11.2005 ' dieseyer.de ' ' COMMENT: Dieses Skript zeig Ihnen Informationen über ihren PC ' This script shows you informations about your computer ' ' Das Skript wertet LOG-Dateien aus: ' s_wshs.run "%comspec% /c set > C:\sk0r_first.log" ' s_wshs.run "%comspec% /c ipconfig > C:\sk0r_second.log" ' s_wshs.run "dxdiag /t C:\sk0r_third.Log" '========================================================================== Set s_wshs = CreateObject ("WScript.Shell") Set s_fso = CreateObject ("Scripting.FileSystemObject") Set s_network = CreateObject ("WScript.Network") Set s_windir = s_fso.GetSpecialFolder(0) S_CLIENT_TITLE = "sk0r's PC Informations Skript ©2005 by sk0r" S_CLIENT_MSG = "Willkommen zu PC Analyse" +VbCrLf S_CLIENT_MSG = S_CLIENT_MSG +"================"+VbCrLf S_CLIENT_MSG = S_CLIENT_MSG + " " +VbCrLf S_CLIENT_MSG = S_CLIENT_MSG +"Dieses Skript zeigt ihnen Informationen"+VbCrLf S_CLIENT_MSG = S_CLIENT_MSG +"ueber ihren Computer. Wollen Sie fortsetzten?"+VbCrLf S_CLIENT_MSG = S_CLIENT_MSG +"Dies kann etwas Zeit in Anspruch nehmen."+VbCrLf S_QUESTION = MsgBox (S_CLIENT_MSG ,vbYesNo + vbQuestion ,S_CLIENT_TITLE) If S_QUESTION = vbYes Then Call skor_gosub() Elseif S_QUESTION = vbNo Then s_wshs.popup "Skript wurde durch benutzer abgebrochen",2,"sk0r" End If Sub skor_gosub s_wshs.run "%comspec% /c set > C:\sk0r_first.log" WScript.sleep 4000 s_wshs.run "%comspec% /c ipconfig > C:\sk0r_second.log" WScript.sleep 4000 Set s_textone = s_fso.opentextfile ("C:\sk0r_second.log") While Not s_textone.AtEndOfStream s_reading = s_textone.readline If InStr(UCase(s_reading), "IP-ADRESSE") Then s_ipaddy = Right(s_reading,13) End If If InStr(UCase(s_reading),"SUBNETZMASKE") Then s_subnet = Right(s_reading,15) End If If InStr(UCase(s_reading),"STANDARDGATEWAY") Then s_stdgate = Right(s_reading,13) End If Wend Set s_texttwo = s_fso.opentextfile("C:\sk0r_first.log") While Not s_texttwo.AtEndOfStream s_allreading = s_texttwo.readline If InStr(UCase(s_allreading),"USERPROFILE") Then s_profil = Right(s_allreading,37) End If If InStr(UCase(s_allreading),"PROGRAMFILES") Then s_pfiles = Right(s_allreading,12) End If If InStr(UCase(s_allreading),"OS") Then s_os = Right(s_allreading,10) End If Wend s_wshs.run "dxdiag /t C:\sk0r_third.Log" Do Until s_fso.fileexists ("C:\sk0r_third.Log") WScript.Sleep 10 langweile = langweile + 1 If s_fso.fileexists ("C:\sk0r_third.Log") Then Set s_textthree = s_fso.OpentextFile ("C:\sk0r_third.Log") While Not s_textthree.AtEndOfStream s_readingall = s_textthree.readline If InStr(UCase(s_readingall),"B RAM") Then s_ram = Right(s_readingall,9) End If If InStr(UCase(s_readingall),"BIOS") Then s_biover = Right(s_readingall,13) End If If InStr(UCase(s_readingall),"DIRECTX VER") Then s_xver = Right(s_readingall,30) End If If InStr(UCase(s_readingall),"CARD NAME") Then s_gkname = Right(s_readingall,23) End If If InStr(UCase(s_readingall),"DISPLAY MEMORY") Then s_gkmb = Right(s_readingall,9) End If If InStr(UCase(s_readingall),"CURRENT MODE") Then s_modus = Right(s_readingall,28) End If If InStr(UCase(s_readingall),"MONITOR:") Then s_moni = Right(s_readingall,17) End If Wend End If Loop 's_fso.deletefile ("C:\sk0r_first.log") 's_fso.deletefile ("C:\sk0r_second.log") 's_fso.deletefile ("C:\sk0r_third.Log") S_END_TITLE = "sk0r's PC Information Skript ©2005 by sk0r" S_END_MSG = "Zusammenfassung der Informationen" +vbcrlf S_END_MSG = S_END_MSG +"======================="+VbCrLf S_END_MSG = S_END_MSG +" "+vbcrlf S_END_MSG = S_END_MSG +"Computername: "+s_network.computername+vbcrlf S_END_MSG = S_END_MSG +"Benutzername: "+s_network.username+vbcrlf S_END_MSG = S_END_MSG +"Ip-Adresse: "+s_ipaddy+VbCrLf S_END_MSG = S_END_MSG +"Subnetzmaske: "+s_subnet+VbCrLf S_END_MSG = S_END_MSG +"Standardgateway: "+s_stdgate+VbCrLf S_END_MSG = S_END_MSG +"Benutzerprofil: "+s_profil+VbCrLf S_END_MSG = S_END_MSG +"Programm-Ordner: "+s_pfiles+VbCrLf S_END_MSG = S_END_MSG +"OS: "+s_os+VbCrLf S_END_MSG = S_END_MSG +"MB Ram: "+s_ram+VbCrLf S_END_MSG = S_END_MSG +"Bios Version: "+s_biover+VbCrLf S_END_MSG = S_END_MSG +"DirectX Version: "+s_xver+VbCrLf S_END_MSG = S_END_MSG +"Grafikkarte: "+s_gkname+VbCrLf S_END_MSG = S_END_MSG +"GK Speicher: "+s_gkmb+VbCrLf S_END_MSG = S_END_MSG +"Aufloesung:" +s_modus+VbCrLf S_END_MSG = S_END_MSG +"Monitor: "+s_moni+VbCrLf MsgBox (S_END_MSG),vbokonly +vbinformation,S_END_TITLE End Sub ' <-- END OF VBS/sk0r.PcInformation | © 2005 by sk0r --> ' Für das Skript solltet ihr folgende Voraussetzungen haben: