Supportnet Computer
Planet of Tech

Supportnet / Forum / Skripte(PHP,ASP,Perl...)

VBA in VBS umwandeln





Frage

Hallo, ich möchte folgenden Code in VBS umwandeln, kann mir jemand dabei behilflich sein. Private Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As String, ByVal uReturnLength As _ Long, ByVal hwndCallback As Long) As Long Function FuncTest() Dim fs, gd, EnvUser, Shell Dim Buffer As String * 255 Set Shell = CreateObject("Wscript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") Set gd = fs.getDrive("D") EnvUser = Shell.ExpandEnvironmentStrings("%USERNAME%") Do ´// Endlos-Schleife Select Case EnvUser Case "Administrator" Case Else If gd.isready = True Then mciSendString "Open " & gd & " Type cdaudio Alias cd", Buffer, 255, 0 mciSendString "set cd door open", 0&, 0, 0 Else End If End Select Loop End Function Vielen Dank, Martin9

Antwort 1 von Eugun

In VBS gibt es nur den Variablentyp "Variant". Außerdem kennt die DIM-Anweisung in VBS "AS" nicht.

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: