Motor de secuencias de comandos host de secuencias de comandos de Windows sin extensión de archivo vbs

Es posible que su servicio de script VBS tenga un error en el registro. El motivo puede deberse a la desinstalación o instalación de algunos programas con códigos irregulares.

Solución:

1. Busque el archivo: C:\WINDOWS\inf\wsh.inf, haga clic derecho en "Instalar"

2. Ejecute Enter: regsvr32 urlmon.dll shdocvw.dll jscript.dll vbscript.dll /s

Realice los dos pasos anteriores para resolver el problema

Información ampliada:

Scripts VBS de uso común

1. VBS obtiene la ruta de instalación del sistema

/*Primero definimos esta variable para obtener la ruta de instalación del sistema y luego usamos "&strWinDir&" para llamarla. variable.

*/

setWshShell = WScript.CreateObject("WScript.Shell")

strWinDir= WshShell.ExpandEnvironmentStrings("%WinDir%")

2. Obtenga la ruta C:/Archivos de programa

msgbox ?CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")

3. / Ruta de archivos comunes

msgboxCreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%")

4. Agregue un acceso directo de URL al escritorio

setgangzi = WScript.CreateObject("WScript.Shell")

strDesktop= gangzi.SpecialFolders("Desktop")

setoShellLink = gangzi.CreateShortcut(strDesktop & "/InternetExplorer.lnk ")

oShellLink.TargetPath= "Explorer"

oShellLink.IconLocation= "%ProgramFiles%/Internet Explorer/iexplore.exe, 0"

oShellLink. Guardar

5. Agregar URL a favoritos

ConstADMINISTRATIVE_TOOLS = 6

SetobjShell = CreateObject("Shell.Application")

SetobjFolder = objShell .Namespace(ADMINISTRATIVE_TOOLS)

SetobjFolderItem = objFolder.Self?

SetobjShell = WScript.CreateObject("WScript.Shell")

strDesktopFld= objFolderItem.Path

SetobjURLShortcut = objShell.CreateShortcut(strDesktopFld & "/struggleBlog.url")

objURLShortcut.TargetPath= "Explorador/Principal/Página de inicio","http://www.fendou .info"

8. VBS más elementos de inicio

SetoShell=CreateObject("Wscript.Shell")

oShell.RegWrite"HKLM/Software/Microsoft/ Windows/CurrentVersion/Run/cmd","cmd.exe"

9. VBS se copia a sí mismo

setcopy1=createobject("scripting.filesystemobject")

copy1.getfile(wscript.scriptfullname).copy("c:/huan.vbs

")

setcopy1=createobject("scripting.filesystemobject")

copy1.getfile("game.exe").copy("c:/gangzi.exe") p>

/*Cópiese en huan.vbs en la unidad C (copie el archivo game.exe en este directorio vbs en gangzi.exe en la unidad C)*/

Materiales de referencia:

VBS——Enciclopedia Baidu