Visual Basic Script (VBS): Beispiele

Aus Wikibooks

Wechseln zu: Navigation, Suche

>> Zurück zum Inhaltsverzeichnis


Inhaltsverzeichnis

1. Programmierbeispiel

Dim ObjShell
Dim ShellObject
Set ShellObject = CreateObject("WScript.Shell")
Set ObjShell = CreateObject("WScript.Shell")
ObjShell = ShellObject.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurretnVersion\Run\Test")
If ObjShell = "" then
    ShelLObject.Popup "Wert existiert nicht und wird hinuzgefügt","4",""
    ShellObject.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "C:\test.vbs"
else
     ShellObject.Popup "Wert existiert","3",""
end if

Dieser Script fügt einen Wert/Schlüssel hinzu, wenn er nicht schon existiert.

2. Programmierbeispiel

Dim ObjShell
Set ObjShell = CreateObject("WScript.Shell")
ObjShell = msgbox("Wollen sie den Computer herunterfahren ?", +vbYesNo+vbExclamation ,"")
If ObjShell = vbYes then
Set ShellObject = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
For Each sys In ShellObject
Sys.Win32Shutdown 6
Next
End if

Dieser Script startet den Computer auf Wunsch neu.

3. Programmierbeispiel

Dim ObjShell
Set ObjShell = CreateObject("WScript.Shell")
ObJShell.Popup "15","1",""
ObJShell.Popup "14","1",""
ObJShell.Popup "13","1",""
ObJShell.Popup "12","1",""
ObJShell.Popup "11","1",""
ObJShell.Popup "10","1",""
ObJShell.Popup "9","1",""
ObJShell.Popup "8","1",""
ObJShell.Popup "7","1",""
ObJShell.Popup "6","1",""
ObJShell.Popup "5","1",""
ObJShell.Popup "4","1",""
ObJShell.Popup "3","1",""
ObJShell.Popup "2","1",""
ObJShell.Popup "1","1",""

Dieser Script erzeugt einen 15-Sekunden Coutndown.
was nach den 15 Sekunden passieren soll, kann man dann noch hinzufügen.

4. Programmierbeispiel

Dim ObjEMail
Set ObjEMail = CreateObject("CDO.Message")
ObjEMail.From = "Absenderadresse"
ObjEMail.To = "Zielempfänger"
ObjEMail.Subject = "HI"
ObjEMail.Textbody = "HI"
ObjEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ObjEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smarthost"
ObjEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjEMail.Configuration.Fields.Update
ObjEMail.Send

Dieser Script sendet eine E-Mail an einen Empfänger
Funktioniert aus kompatiblitätsgründen nicht immer

5. Programmierbeispiel

On Error Resume Next
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

Dieses Script öffnet alle vorhandenen CD-Laufwerke.

6. Programmierbeispiel

dim Network
set Network = CreateObject("WScript.Network")
MsgBox "" & Network.UserName
MsgBox "" & Network.ComputerName

Dieser Script gibt mithilfe des WScript.Networks-Objekts den Namen des
Computers und des Benutzers aus.

7. Programmierbeispiel

Dim a1, b1, c1, d1, e1, f1, g1, h1, i1, j1, k1, l1, m1, n1, o1, p1, q1, r1, s1, t1, u1, v1, w1, x1, y1, z1
Dim Werte(999)
Dim Verschl(999)
Dim VerschlWerte(999)
Dim AusgabeWerte(999)
Dim AusgabeText
Dim ABC(25)
ABC(0) = "a"
ABC(1) = "b"
ABC(2) = "c"
ABC(3) = "d"
ABC(4) = "e"
ABC(5) = "f"
ABC(6) = "g"
ABC(7) = "h"
ABC(8) = "i"
ABC(9) = "j"
ABC(10) = "k"
ABC(11) = "l"
ABC(12) = "m"
ABC(13) = "n"
ABC(14) = "o"
ABC(15) = "p"
ABC(16) = "q"
ABC(17) = "r"
ABC(18) = "s"
ABC(19) = "t"
ABC(20) = "u"
ABC(21) = "v"
ABC(22) = "w"
ABC(23) = "x"
ABC(24) = "y"
ABC(25) = "z"	
a1 = Inputbox("Geben sie ihren Plaintext ein maximal 1000 Zeichen!!")
For i1 = 1 to 2 Step 1
h1 = Inputbox("Wieviele uo wie viele Stellen mˆchten sie die Zeichen in der Kette verschieben ?")
'‹berpr¸fen ob der Schl¸sselwert
'g¸ltig ist
i1 = i1 + 1
If h1 = 0 then
WScript.Echo("0 Als schl¸ssel ist nicht gestattet")
i1 = i1 - 1
else
end if
Next
'End
'-----------------------------------------
'---H also den Schl¸sselwert wieder auf eine 
'Zahl < 26 bringen, da sonst die Verschl¸sselung nicht funktioniert--
For j1 = 2 to 1 Step -1
If h1 > 25 then
h1 = h1 - 25
j1 = j1 + 1
else
end if
Next
'End
d1 = 1
e1 = 0
m1 = 1
For c1 = 1 to 1000 Step 1
Werte(e1) = Mid(a1, d1, m1)
d1 = d1 + 1
e1 = e1 + 1
Next
'------------------------
'Einteilung der Werte !!!
'------------------------
l1 = 0
x1 = 0
y1 = 0
For z1 = 1 to 1000 Step 1
For w1 = 1 to 25 Step 1
If Werte(l1) = ABC(x1) then
else
x1 = x1 + 1
end if
Next
Verschl(y1) = x1
x1 = 0
y1 = y1 + 1
l1 = l1 + 1
Next
y1 = 0
l1 = 0
x1 = 0
'--------------------------------------
'Eigentlicher Verschl¸sselungs Prozess-
'--------------------------------------
For v1 = 1 to 1000 Step 1
VerschlWerte(l1) = Verschl(y1)
VerschlWerte(l1) = VerschlWerte(l1) + h1
If VerschlWerte(l1) > 25 then
VerschlWerte(l1) = VerschlWerte(l1) - 26
else
end if
y1 = y1 + 1
l1 = l1 + 1
Next
y1 = 0
l1 = 0
x1 = 0
'----------------------------------------
'Errechnen des Verschl¸sselten Plain Textes
'----------------------------------------
For u1 = 1 to 1000 Step 1
For t1 = 1 to 26 Step 1
If VerschlWerte(l1) = y1 then
AusgabeWerte(x1) = ABC(y1)
else y1 = y1 + 1
end if
Next
y1 = 0
l1 = l1 + 1
x1 = x1 + 1
Next
'----------------------------------
'Zusammensetzen des Verschl¸sselten Textes
'----------------------------------
AusgabeText = Join(AusgabeWerte)
y = MsgBox(AusgabeText, vbOKOnly + vbInformation, "Ihr Verschl¸sselter Text")

Dieses Programm ist ein Code für die Cäsar Verschlüsselung es funktioniert allerdings nur ohne ä,ü und ö !!!

Von „http://de.wikibooks.org/wiki/Visual_Basic_Script_(VBS):_Beispiele“
Persönliche Werkzeuge