http://dieseyer.de • all rights reserved • © 2011 v11.4
'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:
http://dieseyer.de • all rights reserved • © 2011 v11.4