Jump to content

KIX Script


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

  • 7 Monate später...

Beim Herunterladen von Kix (v4.22) von der Web-Seite 'http://www.kixtart.org' ist ein Word-Dokument enthalten.

Diese ist eine relativ gute Dokumentation, wie man mit Kix Scripte

verschiedenster Art einsetzt (Leider in Englisch). Dort müsste eigentlich auch dein Problem zu lösen sein (Nicht 100%, da ich auch nicht alles verstehe, was dort steht!).

Link zu diesem Kommentar
  • 2 Wochen später...

ja is möglich hab hier n testscript gefunden das auf client´s die netzwerkeinstellung von festen ip´s auf dhcp umstellt.

 

musst nur die reg-werte ändern, und es stellt dann von dhcp auf feste um ;)

 

mfg stefan

 

 

Written in Kix converts a static addressing client to DHCP.

 

 

 

; Name : CONVDHCP.KIX

; Author : Jasper Yue

; Last Revised : 2003.02.12

; Date Started : 2003.02.12

; Version : 2003.02.12.01

 

; Description:

; 1. Convert Windows NT4 systems from static to dhcp addressing.

; 2. Remove hard coded DNS and WINS entries.

; 3. Written to run as logon script.

; 4. Requires local administrator privilege to complete a list of things in

; order to convert the system to DHCP successfully. The privilege is

; required to change the service startup mode and modify registry key

; entries.

 

; You will copy these files to the netlogon share:

; shutdown.exe from resource kit

; convdhcp.kix this script

; kix32.exe reuqired compiler. tested with 4.12

 

 

$ComputerName = ReadValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName","ComputerName")

$HKLM = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services"

$Index = 0

$Reboot = "NO"

 

:Loop1

$KeyName = ENUMKEY( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\" , $Index)

$RC = @ERROR

$NicYN = 0

$NicYN = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\$Keyname","Hidden")

IF $NicYN = 1

$Index = $Index + 1

$NicYN = 0

goto Loop1

ENDIF

 

 

$NicType = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\$KeyName","ServiceName")

$DHCPEnabled = ReadValue("$HKLM\$NicType\Parameters\TCPIP","EnableDHCP")

$Index = $Index + 1

If $RC = 0

IF $DHCPEnabled <> "1"

$Reboot = "YES"

;---------------------------------------------------

;Updating to DHCP...

;---------------------------------------------------

 

;---------------------------------------------------

; Set DHCP Settings

;---------------------------------------------------

$ReturnCode = WRITEVALUE( "$HKLM\$NicType\Parameters\TCPIP", "EnableDHCP" , "1" , "REG_DWORD")

$ReturnCode = WRITEVALUE( "$HKLM\$NicType\Parameters\TCPIP", "IPAddress" , "0.0.0.0" , "REG_MULTI_SZ")

$ReturnCode = WRITEVALUE( "$HKLM\$NicType\Parameters\TCPIP", "SubnetMask" , "0.0.0.0" , "REG_MULTI_SZ")

$ReturnCode = WRITEVALUE( "$HKLM\$NicType\Parameters\TCPIP", "DefaultGateway" , "" , "REG_MULTI_SZ")

$ReturnCode = WRITEVALUE( "$HKLM\DHCP" , "Start" , "2" ,"REG_DWORD")

 

;---------------------------------------------------

; Clear WINS, DNS, and check Enable DNS Windows Resolution in WINS

;---------------------------------------------------

$ReturnCode = WRITEVALUE( "$HKLM\NetBT\Adapters\$NicType" , "NameServer" , "" , "REG_SZ")

$ReturnCode = WRITEVALUE( "$HKLM\NetBT\Adapters\$NicType" , "NameServerBackup" , "" , "REG_SZ")

 

$ReturnCode = WRITEVALUE( "$HKLM\NetBT\Parameters" , "EnableDNS" , "1" , "REG_DWORD")

$ReturnCode = WRITEVALUE( "$HKLM\TCPIP\Parameters" , "NameServer" , "" , "REG_SZ")

$ReturnCode = WRITEVALUE( "$HKLM\TCPIP\Parameters" , "SearchList" , "" , "REG_SZ")

$ReturnCode = WRITEVALUE( "$HKLM\TCPIP\Parameters" , "Domain" , "" , "REG_SZ")

 

Endif

goto Loop1

Endif

 

;---------------------------------------------------

; Reboot the PC

;---------------------------------------------------

If $Reboot = "YES"

;---------------------------------------------------

;Log Computer Name of changed PCs...

;---------------------------------------------------

$RptFile="\\Reporting_Server\Share\Log\" + @WKSTA + ".txt"

$rc_write=WriteProfileString($RptFile,"Local","Name","$ComputerName")

shell '%comspec% /c shutdown.exe /REBOOT /T:1'

Endif

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...