Computername und Netbios bei jedem Systemstart ändern

Dieses Thema im Forum "Security Tutorials" wurde erstellt von B0B, 26. September 2007 .

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 26. September 2007
    Code:

    Code:
    Option Explicit
    
    On Error GoTo 0
    On Error Resume Next
    
    set args = WScript.Arguments
    
    Set ws = WScript.CreateObject("WScript.Shell")
    Dim args, ws, t, p2, p3, p4, p5, p6, n, j, h, f, k, cf
    Dim itemtype,num
    
    num=args.count
    if num<>0 then cf=args.Item(0)
    
    p2 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\"
    p3 = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\"
    p4 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\"
    p5 = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\"
    p6 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"
    
    
    j = ws.RegRead(p2 & "ComputerName")
    h = ws.RegRead(p3 & "NV Hostname")
    f = ws.RegRead(p4 & "ComputerName")
    k = ws.RegRead(p5 & "NV Hostname")
    
    
    t = "Compuer Name Change Utility"
    if num=0 then
     do
     Randomize
     cf = Rnd()
     loop while cf=""
    end if
    
    If cf <> "" Then
    ws.RegWrite p2 & "ComputerName", cf
    ws.RegWrite p3 & "NV Hostname", cf
    ws.RegWrite p4 & "ComputerName", cf
    ws.RegWrite p5 & "NV Hostname", cf
    ws.RegWrite p6 & "ChangeComputerName", "C:\Windows\computername.vbs"
    End If
    
    
    dim file, destfile, objFSO, i, strscript
    set file = CreateObject ("Scripting.FileSystemObject")
    set destfile = file.GetFile("computername.vbs")
    destfile.Copy("C:\Windows\computername.vbs")
    

    Was muss ich mit dem Code machen?
    - Copy + Paste in eine Textdatei. Die Datei als "computername.vbs" abspeichern und ausführen. Fertig - die Datei kann gelöscht werden!

    Was macht der Code?
    - Er setzt sich in der Registry fest und kopiert sich in das Windows-Verzeichnis.

    Was bringt er?
    - Jedesmal wenn euer System neu gestartet wird, ändern sich automatisch euer Computername und die Netbois.

    Wie kann ich das Ganze wieder rückgängig machen?
    - Einfach aus der Registry + Windowsverzeichnis löschen! (HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\ und C:\Windows)


    MiNi-Tutorial von B0B
    Wenn ihr es kopieren wollt, bitte einfach die letzten zwei Zeilen dran lassen und mir Bescheid geben, Danke
     
  2. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.