Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Vbs-Script läuft nicht mehr unter Windows 7 x64

Mitglied: tytn-tytn

tytn-tytn (Level 1) - Jetzt verbinden

05.08.2010 um 14:52 Uhr, 6672 Aufrufe

Ich habe ein VBS-Script, welches den Verlauf des IE archiviert und durchsuchbar macht. Unter XP lief es und unter Windows 7 (x64) nur noch Fehler.

Ich habe ein VBS-Script, welches den Verlauf des IE archiviert und durchsuchbar macht. Unter XP lief es und unter Windows 7 (x64) nur noch Fehler.
Fehler sind u.a. "Verzeichnis schon vorhanden". Wenn ich das Verzeichnis lösche oder umbenenne, dann ein anderer Fehler.
Leider habe ich keine große Ahnung von VB-Script, darum wende ich mich an euch in der freudigen Erwartung ....

Hier das Script:


Dim VerlaufPfad
Dim VerlPfad
Dim KopierPfad
Set Myshell = WScript.CreateObject("WScript.Shell")
Set MyFolder = CreateObject("Scripting.FileSystemObject")

VerlaufPfad = MyShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\History") & "\"

'Geben Sie hier bitte den gewünschten Pfad für Ihren Archivordner an
'*
VerlPfad="C:\Tools\Verlauf-Suche\"
'*

slash = Mid(VerlPfad, Len(VerlPfad), 1)

If slash = "\" Then
KopierPfad=VerlPfad & "TempVerlauf\"
Else
VerlPfad = VerlPfad & "\"
KopierPfad=VerlPfad & "TempVerlauf\"
End If

Nutzung = MsgBox("Wollen Sie die vorhandene Verlauf-Datenbank durchsuchen (ja) oder die Datenbank aktualisieren (Nein)?", 35, "Verlauf-Datenbank")

If Nutzung = 7 Then
Aktualisieren
ElseIf Nutzung = 6 Then
Suchen
ElseIf Nutzung = 2 Then
Wscript.quit
End if

'------------------------------------------------------------------------------------

Sub Aktualisieren ()

If not (MyFolder.FolderExists(VerlPfad)) Then
Set Verl=MyFolder.CreateFolder(Verlpfad)
Set Dind=MyFolder.CreateFolder(Verlpfad & "DateInd\")
End If

Set Kop=Myfolder.CreateFolder(KopierPfad)
Set Verlauf = MyFolder.GetFolder(VerlaufPfad)
Set KopierFold = Myfolder.GetFolder(Kopierpfad)
MyFolder.CopyFolder Verlauf, KopierFold, True

Set His0 = KopierFold.SubFolders
For Each His1 in His0

Pruef = LCase(Mid(His1.name, 1, 6))
If not Pruef = "mshist" Then
Verz = "\" & His1.name & "\"
Else
Verz = "\"
End if
Next

Set History = MyFolder.GetFolder(KopierFold & Verz)

Set Datx = History.SubFolders
For Each Dat2 in Datx
Set Ind0 = MyFolder.GetFile(History & "\" & Dat2.name & "\index.dat")
LetzteAend = Ind0.DateLastModified
Day0=Mid(Dat2.name, 15, 2)
Day1=Mid(Dat2.name, 23, 2)
Month0=Mid(Dat2.name, 13, 2)
Month1=Mid(Dat2.name, 21, 2)
Year0=Mid(Dat2.name, 9, 4)
Year1=Mid(Dat2.name, 17, 4)
Datum = Day0 & "." & Month0 & "." & year0 & " - " & Day1 & "." & Month1 & "." & year1


CheckPoint = 0
If (MyFolder.FileExists(Verlpfad & "DateInd\DateInd.txt")) Then
Set DateInd = MyFolder.OpentextFile(Verlpfad & "DateInd\DateInd.txt", 1, False)
Do while DateInd.AtEndOfStream <> True
Schau = DateInd.Readline
If not schau = "" then
Checkp = InStr(1, Schau, Datum, 1)
If not Checkp = 0 Then
Checkpoint = Int(Mid(Schau, 44, Len(Schau)))
End If
End If
Loop
DateInd.close
End if
Set Ind = Ind0.OpenAsTextStream(1, 0)
Set HTM = Myfolder.OpenTextFile(VerlPfad & Datum & ".txt", 8, True)
IndRead = Ind.Read(Ind0.Size)

EndPos = 1 + CheckPoint
Do
UrlPos = InStr(Endpos, IndRead, "http://", 1)
If not UrlPos = 0 Then
EndPos = InStr(UrlPos, IndRead, Chr(00), 1)
laenge = EndPos-UrlPos+1
URL = Mid(IndRead, UrlPos, laenge)
HTM.Writeline URL
End if
Loop until UrlPos = 0
EndP = 1 + CheckPoint
Do
LocPos = InStr(Endp, IndRead, "file:///", 1)
If not LocPos = 0 Then
EndP = InStr(LocPos, IndRead, Chr(00), 1)
laenge = EndP-LocPos+1
LOC = Mid(IndRead, LocPos, laenge)
HTM.Writeline LOC
End if
Loop until LocPos = 0
Endpo = 1 + CheckPoint
Do
ftpPos = InStr(Endpo, IndRead, "ftp://", 1)
If not ftpPos = 0 Then
EndPo = InStr(ftpPos, IndRead, Chr(00), 1)
laenge = EndPo-ftpPos+1
FTP = Mid(IndRead, ftpPos, laenge)
HTM.Writeline FTP
End if
Loop until ftpPos = 0
If Endpos >= Endpo Then
If Endpo >= Endp Then
EP = Endpos
ElseIf Endpo =< Endp Then
If Endpos >= Endp Then
EP = Endpos
ElseIf Endpos =< Endp Then
EP = Endp
End If
End If
ElseIf Endpo >= Endpos Then
If Endpos >= Endp Then
EP = Endpo
ElseIf Endpos =< Endp Then
If Endpo >= Endp Then
EP = Endpo
ElseIf Endpo =< Endp Then
EP = Endp
End If
End If
ElseIf Endpos = endpo Then
If Endpo = endp Then
EP = Endpos
End If
End If
If (MyFolder.FileExists(Verlpfad & "DateInd\DateInd.txt")) Then
Set DateInd = MyFolder.OpentextFile(Verlpfad & "DateInd\DateInd.txt", 1, False)
Schau0 = DateInd.ReadAll
DateInd.close
End if
Set DateInd = MyFolder.OpentextFile(Verlpfad & "DateInd\DateInd.txt", 8, True)
Schau1 = InStr(1, Schau0, Datum & " " & LetzteAend & " " & EP-1, 1)
If Schau1 = 0 then
DateInd.Writeline Datum & " " & LetzteAend & " " & EP
Dateind.close
End if

Ind.close
htm.Close

Dat2.Delete
Next
KopierFold.Delete
MsgBox "Fertig"
End Sub

'------------------------------------------------------------------------------------

Sub Suchen ()
If not (MyFolder.FolderExists(VerlPfad)) Then
Fehler = MsgBox("Sie müssen zunächst eine Verlauf-Datenbank anlegen" +vbcr & "Starten Sie dazu das Skript erneut und klicken Sie bei der ersten Abfrage auf Nein", 16, "Datenbank nicht vorhanden")
wscript.quit
End if
Anfrage = InputBox("Geben Sie bitte einen Suchbegriff ein", "Suchbegriff")
If Anfrage = "" Then Wscript.quit

Set History = MyFolder.GetFolder(VerlPfad)
Set HTM = MyFolder.OpentextFile(Verlpfad & "DateInd\Sucherg.htm", 2, True)
HTM.writeline "<HTML>"
HTM.writeline "<BODY>"
HTM.writeline "<H4>"
HTM.writeline "<h1>Suchergebniss für die Anfrage " & Chr(34) & Anfrage & Chr(34) & "</h1>"

found = 0
Set Dat0 = History.files
For each Dat1 in Dat0
Set Suche = MyFolder.OpentextFile(Verlpfad & Dat1.name, 1, False)
Do While Suche.AtEndOfStream <> True
Zeile = Suche.Readline
Test = InStr(1, Zeile, Anfrage, 1)
If not test = 0 Then
Datum = Mid(Dat1.name, 1, Len(dat1.name)-4)
Befehl = "<A HREF=" & Chr(34) & Zeile & Chr(34) & ">" & Datum & " - " & Zeile & "</A></br>"
found = Found + 1
htm.Writeline Befehl
End If
Loop
Suche.Close
Next
If Found = 1 Then
Anzahl = Found & " Eintrag gefunden"
ElseIf Found = 0 Then
MsgBox "Keinen Eintrag gefunden"
wscript.quit
Else
Anzahl = Found & " Einträge gefunden"
End If


HTM.writeline "<h3>" & Anzahl & "</h3>"
HTM.writeline "</HTML>"
HTM.writeline "</BODY>"
HTM.writeline "</H4>"
HTM.Close
Erg=myshell.run (chr(34) & Verlpfad & "DateInd\Sucherg.htm" & chr(34))

End Sub
Ähnliche Inhalte
Windows Netzwerk
Script läuft nicht auf Computer GPO
gelöst Frage von cyborg19Windows Netzwerk

Hallo zusammen Ich habe ein Computer GPO erstellt. Über diesen GPO werden die Druckerverteilt. Das funktioniert auch wunderbar. Zusätzlich ...

Windows Server
Ps1 Script lauft nicht
gelöst Frage von 131455Windows Server8 Kommentare

Hallo, führe ich Zeilen wie würde die eben als Aufgabenplanung gerne hinterlegen. Gruss Rainer

VB for Applications
VBS Script kann Prgramm nicht starten
gelöst Frage von C.BoernerVB for Applications15 Kommentare

Hallo ihr Admins, Ich habe folgendes Scenarios ein Programm läuft im Hintergrund (Drivve-Image) das übergibt Werte an ein VBS ...

Batch & Shell
Hilfe Bei einem vbs Script
gelöst Frage von Hattori-HanzoBatch & Shell19 Kommentare

Hey Leute Könnt ihr mir bitte sagen was daran falsch ist? beschäftige mich erst seit kurzem mit vbs scripts. ...

Neue Wissensbeiträge
iOS
IOS 11.2.6 verfügbar
Information von sabines vor 4 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 18 StundenSicherheit2 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 1 TagErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Heiß diskutierte Inhalte
Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server38 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless19 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgbornMicrosoft17 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Server-Hardware
Server für Exchange 2016, Kaufberatung
Frage von MazenauerServer-Hardware15 Kommentare

Guten Tag werte Gemeinde, Vorab: Ich dachte es gab mal einen separaten Bereich für solche Anfragen, habe ich leider ...