Muchas Gracias por tus correcciones Maestro Obi-Wan Kenobi xD pero antes de ello ya habia creado este Script El otro era estatico este ya se mueve xD pues claro que no hace ningun daño ya si uno quiere le dice que apage la pc o la reinicie pero eso no lo pongo aca ... cosa de cada quien xD
Código:
Option Explicit
Dim Obj_SH ' as Object Dim Str_Nombre ' as String Dim Str_PC ' as String Dim Str_Texto ' as String Dim Palabras(7) ' as String << Array Dim Int_Tam ' as Integer Dim x ' as Integer Dim i ' as Integer
Set Obj_SH = WScript.CreateObject("WScript.Shell")
'Si Queremos Molestar y Obligar a Que El Mismo Digite Su Nombre Podriamos Habilitar Esta Linea 'y Comentar esta >> Str_Nombre = Obj_SH.ExpandEnvironmentStrings("%UserName%") ' 'Do ' Str_Nombre = InputBox("Ingresa Tu Nombre Quieres ???","Entrada de Datos") 'Loop Until Str_Nombre <> ""
Hola disculpenme si este post no va aca pero no c donde ponerlo yo estoy aprendiendo VBS y puedo quiero modernizarme y usar una IDE escuche que todo lo que hago en mi Script podria hacerlo en Visual Basic ?? habra un Enlace donde conseguir esa Herramienta para dejar de lado mi NotePad y hay si se pueden usar las API's Sin un medio externo como seria el Excel Cierto ...
Asha tu eres el tio del VBS Claro xD jajaja entiendo todo eso y bueno eso de usar la & Comercial dentro de en Run " & & " para ejecutar varias cosas nu lo sabia algo nuevo que aprendo y eso de ocultar la ventanita en el primer metodo despues de pasarles le pondria el VbHide cierto ? para no ver la pantalla xD
Set objshell = CreateObject("wscript.shell")objshell.run "cmd /c cd\ & cd windows & dir *.bmp >> C:\resultado.txt", VbHide
Mostrar Mensajes
El otro era estatico este ya se mueve xD pues claro que no hace ningun daño ya si uno quiere le dice que apage la pc o la reinicie pero eso no lo pongo aca ... cosa de cada quien xD 
Hola pues aqui compartiendo con los Newbies como yo una bromilla muy simple haber q les parece .. Esta Hecha con VBS 
algo nuevo que aprendo 
