'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: