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. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #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. Anzeige

  3. Videos zum Thema
Die Seite wird geladen...
Similar Threads - Computername Netbios jedem
  1. Server zweiten Computernamen zuweisen

    romestylez , 23. September 2011 , im Forum: Windows
    Antworten:
    6
    Aufrufe:
    720
  2. [XP] Computername in Taskleiste

    pYr0 , 9. Februar 2010 , im Forum: Windows
    Antworten:
    7
    Aufrufe:
    590
  3. Antworten:
    0
    Aufrufe:
    358
  4. Computernamen ändern

    J4de , 30. September 2008 , im Forum: Windows
    Antworten:
    2
    Aufrufe:
    398
  5. Antworten:
    2
    Aufrufe:
    329