[VisualBasic] Scripte, paar Fragen

KrustyxP · 28. April 2009

Scripte, paar Fragen

Hi,
ich muss bald in der Schule etwas zu VB-Scripte vorstellen.

Ich mache am Anfang eine kleine Einführung und dann ein paar kleine Beispiele der VB-Scripte anhand von html.

Nun hab ich mir auch noch welche für Windows geholt, z.B. eines welches die Zeit angibt wielange der Recher schon an ist (Dateiname.vbs) .

[/Spoiler]

Code:

 ' --- Prüfen, wie lange der PC läuft ---
Function check_uptime()

 Set OS_Set = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem")

 for each System in OS_Set
 os_uptime = System.LastBootUptime
 next


 jahr = Mid(os_uptime, 1, 4)

 monat = Mid(os_uptime, 5, 2)

 tag = Mid(os_uptime, 7, 2)

 stunde = Mid(os_uptime, 9, 2)

 minut= Mid(os_uptime, 11, 2)


 ' Datum erstellen
 mydate = CDate(tag & "/" & monat & "/" & jahr & " " & stunde & ":" & minut)

 dif3 = Now() - mydate

 ' Länger als 180 Minuten
 If dif3 > 0.18 then
 check_uptime = false
 Else
 check_uptime = true
 End if

End Function

[/Spoiler]

Jedenfals wollte ich nur mal fragen wie man jetzt die Teile "ausführt". Per Doppelklick geht das net.
Wär cool wenn mir jemand helfen könnte.

Anzeige

Nützliche Suchen

[VisualBasic] Scripte, paar Fragen

Videos zum Themenbereich