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