Aprende Informatica Conmigo

  • Inicio
  • Contenido Anterior
    • VIDEOTUTORIALES
    • Windows Server 2008
    • POWERSHELL

4 agosto, 2009 Por oscar 1 comentario

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://www.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

oscar
oscar

Programador WordPress freelance

Publicado en: sistemas Etiquetado como: mi pc, modificar registro, scripts, vbscript

Acerca de oscar

Programador WordPress freelance

Comentarios

  1. Marta dice

    8 julio, 2010 a las 13:04

    Hola, para empezar decir que no tengo ni idea de Vbscript, estoy googleando para conseguir los parametros adecuados y crearme un script que me cambie un valor del registro para luego aplicarlo a una GPO, hasta ahora solo he conseguido esto…y claro no me funciona

    REM Script para que me active el bloqueo de mayusculas antes de presionar CTRL+ALT+SPR
    REM 08 de Julio del 2010

    Dim oReg
    Set oReg = CreateObject(\"Wscript.Shell\")
    oReg.RegWrite (\"HKEY_USERS\\.DEFAULT\\Control Panel\\Keyboard\\InitialKeyboardIndicators\\\",2, “REG_SZ”)
    Set oReg = Nothing

    Accede para responder

Deja una respuesta Cancelar la respuesta

Lo siento, debes estar conectado para publicar un comentario.

Hazte con el tema Divi

Divi WordPress Theme
Libro windows server 2008

Libro certificación Windows Server 2016

Libro certificación Windows Server 2016

Libro Windows Server 2016

Libro Windows Sever 2016
Web Hosting

Últimos artículos

  • PHP función var_dump(): Mostrar el contenido de una variable
  • PHP función unset(): Eliminar variables
  • MySQL LIMIT: Limitar la canidad de filas en una consulta
  • PHP función isset(): Evaluar si una variable está definida
  • PHP función empty(): Comprobar si una variable está vacía
  • MySQL SELECT DISTINCT para encontrar registros con diferente valor en el mismo campo
  • Los mejores libros en español para aprender WordPress

Mis Webs

  • Aprende Informática Conmigo
  • Dinapyme
  • MUSIKP
  • Oscar Abad Folgueira

Proyectos

  • Basabe Baserria
  • Batukada Battuere
  • Bicicletas Sin Pedales
  • Bordalan
  • C.R. Pantano del Rumblar
  • Dinapyme
  • DiverBiblio
  • Egia Ingenieros
  • Hermanos Vivas construcciones
  • Ibartxi – Suministros de Gas y Soldadura
  • LANBASE
  • LS Fotografía
  • Luke and Phil
  • Masajes Mas Sana
  • MUSIKP
  • Oh! Yeah Dev
  • Oscar Abad Folgueira
  • Participación ciudadana Basauri
  • Restaurante Bideko
  • Taldesport
  • Vicente Choya
  • WooCommerce Knowledge2K
  • Inicio
  • Contenido Anterior

Copyright © 2023 · Oscar Abad Folgueira Y DINAPYME· Acceder