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!

Recommended Posts

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

Link to post

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

 

 

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

Link to post

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

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...