Jump to content

Mit einem VBS-Script ein andere VBS starten


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

Empfohlene Beiträge

Geschrieben

Hallo TDM,

 

habe hier ein Script

Leider funktoniert es nicht, was ist falsch daran?

Kannst du mir helfen?

 

Option Explicit
Const HKLM = &H80000002 
Const KEYPATH = "Software\Microsoft\Windows\CurrentVersion\Run"

Dim Registry, ValueNames, i

Set Registry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Registry.EnumValues HKLM, KEYPATH, ValueNames

If IsArray(ValueNames) Then
 For i = 0 To UBound(ValueNames)
   Registry.DeleteValue HKLM, KEYPATH, ValueNames(i)
    Next
WshShell.Run "C:\test.vbs", 1, True

End If

Geschrieben

Hallo Blub,

 

erstmal danke für deine Hilfe!

 

Die Fehlermeldung ist weg aber die test.vbs wird nicht ausgeführt!

 

Was kann das sein?

 

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

 

Option Explicit

Const HKLM = &H80000002

Const KEYPATH = "Software\Microsoft\Windows\CurrentVersion\Run"

 

Dim Registry, ValueNames, i

 

Set Registry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

Registry.EnumValues HKLM, KEYPATH, ValueNames

 

If IsArray(ValueNames) Then

For i = 0 To UBound(ValueNames)

Registry.DeleteValue HKLM, KEYPATH, ValueNames(i)

Next

WshShell.Run "wscript.exe //B C:\test.vbs", 1, True

 

End If

 

 

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Geschrieben

Jetzt funktoniert es:

 

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Option Explicit

Const HKLM = &H80000002

Const KEYPATH = "Software\Microsoft\Windows\CurrentVersion\Run"

 

Dim Registry, ValueNames, i

 

Set Registry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

Registry.EnumValues HKLM, KEYPATH, ValueNames

 

If IsArray(ValueNames) Then

For i = 0 To UBound(ValueNames)

Registry.DeleteValue HKLM, KEYPATH, ValueNames(i)

Next

 

Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

 

WshShell.Run "wscript.exe C:\test.vbs" , 1, True

 

End If

 

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

 

 

Danke für eure Hilfe.

 

Mfg. Jürgen

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

Erstelle ein Benutzerkonto oder melde dich an, um zu kommentieren

Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können

Benutzerkonto erstellen

Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!

Neues Benutzerkonto erstellen

Anmelden

Du hast bereits ein Benutzerkonto? Melde dich hier an.

Jetzt anmelden
×
×
  • Neu erstellen...