VBScript: Modificar el valor de "MI PC" en Windows XP

Este es el primer script en VBScript que voy a publicar.

Se trata de modificar el texto de «MI PC» que aparece en el icono correspondiente del escritorio.

Nos puede ser de mas utilidad que nos muestre el nombre del equipo y el nombre del usuario con el que nos hemos logeado. Pues, bien, este script hace eso: Modifica el valo de registro conrrespondiente a ese valor.

Vamos alla:

————————————————-

REM Script que establece el valor «LocalizedString» y le asigna: «%COPUTERNAME% / %username%».

REM Realizado el 31-7-09 por Oscar Abad  (https://aprendeinformaticaconmigo.com
Option Explicit
Dim objReg
Dim strCaminoClave
Dim strNombreValor
Dim strValor
Dim equipo
Const HKLM = &H80000002

equipo = «.»
Set objReg=GetObject(«winmgmts:{impersonationLevel=impersonate}!\\» & equipo & «\root\default:StdRegProv»)
strCaminoClave = «SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}»
strNombreValor = «LocalizedString»
objReg.DeleteValue HKLM,strCaminoClave,strNombreValor
strValor = «%COMPUTERNAME% / %username%»
objReg.SetExpandedStringValue HKLM,strCaminoClave,strNombreValor,strValor

——————————————————–

No soy ningun experto en VBScript, es mas, tengo muy poca idea, pero como todos se parecen, es mas sencillo volcarse con ello y hacer algunas modificaciones de algun script que encontremos googleando.

A modo de resumen, os dire para los que no sepais muy bien de que va, que lo qu e hace exactamente es eliminar el valor «LocalizedString» que podemos encontrar en «HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}«. Posteriormente crea de nuevo ese mismo valor per con el contenido: «%COMPUTERNAME% / %username%«.

Cuando reiniciemos o hagamos F5 en el escritorio, veremos el resultado.

Este script esta preparado para Windows XP y desconozco si funciona en otras versiones de Windows.

Los script en VBScript los podemos escribir con el notepad y guardarlos con extension «vbs«. No nos hace falta nada mas.

Lo mas interesante es que podemos utilizar nuestros VBScripts junto con las GPOs que tengamos establecidas para que se ejecuten en el inicio de los equipos.

Venga, espero que os sirva…

A pasarlo bien!!

—–
Oscar Abad
http://www.xulak.com – Consultoría informática

Los comentarios están cerrados.