Jump to content

VB-Scripting - Datenaufbereitung


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Recommended Posts

Hallo zusammen,

 

Ich habe eine INI-Datei mit allen Servernamen drinstehen.

Diese Daten kommen per LDAP aus dem AD heraus und sind unsortiert.

 

Weiter lasse ich dann ein VB-Script laufen, welches mir die Einträge der INI-Datei in einem HTML-Seite mit Hyperlinks schreibt.

 

Nun habe ich hierzu zwei Fragen:

1. Gibt es eine Möglichkeit, die Daten in der HTML-Ansicht sortiert auszugeben?

Wenn nein, gibt es eine Möglichkeit, die Daten per VB-Script nach zu sortieren?

 

2. In der INI-Datei stehen an die 150 Namen drin und wenn ich die alle untereinander aufliste ist das etwas unübersichtlich.

Gibt es irgendwas, damit ich dem Script sagen kann, dass er z.B. nach 60 Servern eine neue Spalte (von mir aus auch Tabellenzelle in HTML) anfangen soll?

 

Hier noch mein Script:

On Error Resume Next

Dim Args

Dim Servername

Dim WSHShell

 

Set Args = WScript.Arguments

Servername = Args(0)

 

Set WSHShell = WScript.CreateObject("WScript.Shell")

 

' Datei wird zum Lesen geöffnet

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Set FileInWindowsW2K3 = fso.OpenTextFile("F:\mom\ini\invent\INIW2K3.ini" , 1, true)

Set FileInWindowsW2K = fso.OpenTextFile("F:\mom\ini\invent\INIW2K.ini", 1, true)

'Set FielInWindowsGesamt = fso.OpenTextFile("F:\mom\ini\invent\INIGesamt.ini", 1, true)

Set FileOutput = fso.CreateTextFile("F:\mom\output\Invent\Server.html", 1, true)

Set FileOutput = fso.OpenTextFile("F:\mom\output\Invent\Server.html", 8)

 

FileOutput.Writeline "<html><head><title>Server Inventarisierung - Gesamtübersicht Server</title></head><body>"

FileOutput.Writeline "<h2><a name=Start>Server Inventarisierung - Gesamtübersicht Server</a></h2><br>"

FileOutput.Writeline "Erstellungsdatum: " & Date

FileOutput.Writeline "<br>"

FileOutput.Writeline "Uhrzeit: " & Time

FileOutput.Writeline "<br><br>"

 

 

Do While Not (FileInWindowsW2K3.atEndOfStream)

Servername = FileInWindowsW2K3.Readline

FileOutput.Writeline "<br><br>"

FileOutput.Writeline "<a href=OutputW2K3_" & Servername & ".txt>" & Servername

loop

 

Danke für jede Hilfe...ich fang halt erst grad an mit VB-Scripting...

 

Grüße Melanie

Link to post
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...