si ven un error en mis scripts por favor notificar
grupo Black Eye Security Team Piura -Peru
W4rR3d - G3kk0 - W4rc10k - M1lh077
script1: el siguiente script permite saber el nombre de tu pc, dominio de
usuario,nombre de usuario,perfil del server
Set yu1 = Wscript.CreateObject( "Wscript.Shell" )
WScript.Echo " verificar variables:"
WScript.Echo " el script se esta ejecutandose"
WScript.Echo "Computer Name : " & yu1.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
WScript.Echo "Logon Server : " & yu1.ExpandEnvironmentStrings( "%LOGONSERVER%" )
WScript.Echo "User Domain : " & yu1.ExpandEnvironmentStrings( "%USERDOMAIN%" )
WScript.Echo "User Name : " & yu1.ExpandEnvironmentStrings( "%USERNAME%" )
WScript.Echo " hacked by W4rR3d"
Set yu1 = Nothing
script2:
El siguiente Script ejecuta el cambio de organización en cualquier PC de la red:
Option Explicit
Set yu2 = WScript.CreateObject("WScript.Shell")
Dim yu2, s1
s1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\"
yu2.RegWrite s1 & "RegisteredOwner", "HACKED BY W4rR3d"
yu2.RegWrite s1 & "RegisteredOrganization", "HACKED BY W4rR3d"
script3:
el siguiente script permite Obtener datos de usuario de dominio:
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
Wscript.Echo "User name: " & objSysInfo.UserName
Wscript.Echo "Computer name: " & objSysInfo.ComputerName
Wscript.Echo "Site name: " & objSysInfo.SiteName
Wscript.Echo "Domain short name: " & objSysInfo.DomainShortName
Wscript.Echo "Domain DNS name: " & objSysInfo.DomainDNSName
Wscript.Echo "Forest DNS name: " & objSysInfo.ForestDNSName
Wscript.Echo "PDC role owner: " & objSysInfo.PDCRoleOwner
Wscript.Echo "Schema role owner: " & objSysInfo.SchemaRoleOwner
Wscript.Echo "Domain is in native mode: " & objSysInfo.IsNativeMode
Primer error:
. Autodidacta en Ingenieria de Sistemas
. y creador de virus informaticos
De la primera línea, mejor no hablemos, si tu eres eso, el resto incluido yo somos dioses, y sobre crear, tu no creas nada, solo copias...
Creo que deberías cambiar esos 2 aspectos si realmente quieres que alguien te ayude, porque a veces se ven cosas en "tus" batchs que son de risa e incomprensibles, así que se un poco humilde, anda.