quote:

---

Structure: Processor Information (Type 4)
Type: 4
Length: 20h
Handle: 0004h (4t)
Socket Designation: 'Socket 370'
Processor Type: 03h (Central Processor)
Processor Family: 11h (Reserved for specific Pentium versions)
Processor Manufacturer: 'GenuineIntel'
Processor ID: ..............
Processor Version: 'Pentium(R) III'
Voltage: 5V:No, 3.3V:Yes, 2.9V:No
External Clock: 100 MHz
Max Speed: 800 MHz
Current Speed: 800 MHz
Status: 41h (CPU Socket Populated, Status Enabled)
Processor Upgrade: 04h (ZIF Socket)
L1 Cache Handle: 09t
L2 Cache Handle: 10t
L3 Cache Handle: -1t (no L3 handle)

---

code:

---

[NetworkInfo]
ComputerName=SERVER1
MAC=0011223344556677
IP=111.222.333.444
DefautlGateway=111.222.333.444.254

---

quote:

---

We are also using Virtual Floppy discs

---

code:

---

@echo off

path=a:\net;a:\dos;A:\

COPY A:\Net\Protocol.DEF A:\Net\Protocol.INI
COPY A:\Net\System.DEF A:\Net\System.INI

net initialize
netbind.com
umb.com
tcptsr.exe
tinyrfc.exe

KIX16 BOOT.KIX

unloadt.exe
tcptsr.exe
tinyrfc.eee

nmtsr.exe
emsbfr.exe
mouse
keyb UK
doskey

A:\IMAGES.BAT
 

---

code:

---

$ServerIniFile='A:\Servers.INI'
$ProtocolIniFile='A:\Net\Protocol.INI'
$SystemIniFile='A:\Net\System.INI'

SHELL 'COMMAND /C DEL A:\Images.BAT'

$FileName=$ServerIniFile
$Section='MACAddress'
$Key='@ADDRESS'

CALL 'ReadINI.KIX'

IF $Value<>'**Not Found**'
   $MacComputerName=$Value
ELSE
   $MacComputerName=''
ENDIF

$FoundComputerName=0

WHILE $FoundComputerName=0
   CLS
   ?
   ? '    ****************************************************************'
   ? '    *                                                              *'
   ? '    *          Generic Citrix Server Network Boot Disk             *'
   ? '    *          ---------------------------------------             *'
   ? '    *                                                              *'
   ? '    *   This boot disk will load dos network drivers in order to   *'
   ? '    *   connect to a network share and reimage the Citrix server   *'
   ? '    *                                                              *'
   ? '    *               All IP information is saved in                 *'
   ? '    *'
   $Space=62-LEN($ServerINIFile)
   $SpaceL=$Space/2
   $SpaceR=$Space-$SpaceL
   WHILE $SpaceL>0
      ' ' $SpaceL=$SpaceL-1
   LOOP
   $ServerIniFile
   WHILE $SpaceR>0
      ' ' $SpaceR=$SpaceR-1
   LOOP
   '*'
   ? '    *                                                              *'
   ? '    ****************************************************************'
   ?
   ? '                     MAC Address is: @ADDRESS'
   ? ?
   IF $MacComputerName=''
      '                        Server Name: '
   ELSE
      $Space=21-LEN($MacComputerName)
      WHILE $Space>0
         ' ' $Space=$Space-1
      LOOP
      'Server Name [$MacComputerName]: '
   ENDIF
   GETS $ComputerName
   IF $ComputerName='' AND $MacComputerName<>''
      $ComputerName=$MacComputerName
   ENDIF
   IF $ComputerName<>''
      IF SUBSTR($ComputerName,12,1)='X'
         $Island='TestLab'
      ELSE
         $Island=SUBSTR($ComputerName,3,6)+'Common'
      ENDIF
      $Section=$Island
      $Key='ImageServer'
      CALL 'ReadINI.KIX'
      ?
      IF $Value='**Not Found**'
         $DefImageServer=''
         '                       Image Server: '
      ELSE
         $DefImageServer=$Value
         $Space=20-LEN($DefImageServer)
         WHILE $Space>0
            ' ' $Space=$Space-1
         LOOP
         'Image Server [$DefImageServer]: '
      ENDIF
      GETS $ImageServer
      IF $ImageServer='' AND $DefImageServer<>''
         $ImageServer=$DefImageServer
      ENDIF
      IF $ImageServer=''
         $ErrorMessage='You must enter the name of the image server!'
         GOTO 'Error'
      ELSE
         $Section=$ComputerName
         $Key='IPAddress'
         CALL 'ReadINI.KIX'
         IF $Value='**Not Found**'
            $ErrorMessage='Could not find IP Address for $ComputerName!'
            GOTO 'Error'
         ELSE
            $IPAddress=$Value
            CALL 'FixIP.KIX'
            $ServerIP=$IPAddress
            $Key='SubnetMask'
            CALL 'ReadINI.KIX'
            IF $Value='**Not Found**'
               $ErrorMessage='Could not find Subnet Mask for $ComputerName!'
               GOTO 'Error'
            ELSE
               $IPAddress=$Value
               CALL 'FixIP.KIX'
               $ServerSubnetMask=$IPAddress
               $Key='DefaultGateway'
               CALL 'ReadINI.KIX'
               IF $Value='**Not Found**'
                  $ErrorMessage='Could not find Default Gateway for $ComputerName!'
                  GOTO 'Error'
               ELSE
                  $IPAddress=$Value
                  CALL 'FixIP.KIX'
                  $ServerDefaultGateway=$IPAddress
                  $Section=$Island
                  $Key='NameServer'
                  CALL 'ReadINI.KIX'
                  IF $Value='**Not Found**'
                     $ErrorMessage='Could not find Name Server for $Island!'
                     GOTO 'Error'
                  ELSE
                     $IPAddress=$Value
                     CALL 'FixIP.KIX'
                     $NameServer=$IPAddress
                     $Key='NameServer'
                     CALL 'ReadINI.KIX'
                     IF $Value='**Not Found**'
                        $ErrorMessage='Could not find Backup Name Server for $Island!'
                        GOTO 'Error'
                     ELSE
                        $IPAddress=$Value
                        CALL 'FixIP.KIX'
                        $BackupNameServer=$IPAddress
                        $FoundComputerName=1
                     ENDIF
                  ENDIF
               ENDIF
            ENDIF
         ENDIF
      ENDIF
   ELSE
      $ErrorMessage='You must enter a name for this server!'
      GOTO 'Error'
   ENDIF
   GOTO 'OK'
:Error
   COLOR r+/n
   ? $ErrorMessage ?
   COLOR n/n
   'Press any key to continue (X to abort)...' ?
   GET $Key
   IF $Key='x' GOTO 'Abort' ENDIF
   $FoundComputerName=0
:OK
LOOP

? ?
'       Server Name: ' COLOR w+/n '$ComputerName' COLOR n/n ?
'        IP Address: ' COLOR w+/n '$ServerIP' COLOR n/n ?
'       Subnet Mask: ' COLOR w+/n '$ServerSubnetMask' COLOR n/n ?
'   Default Gateway: ' COLOR w+/n '$ServerDefaultGateway' COLOR n/n ? ?
'      Primary WINS: ' COLOR w+/n '$NameServer' COLOR n/n ?
'    Secondary WINS: ' COLOR w+/n '$BackupNameServer' COLOR n/n ? ?
'      Image Server: ' COLOR w+/n '$ImageServer' COLOR n/n ? ?

COLOR g+/n
? 'Configuring Protocol.INI..'
COLOR n/n ?
'  ' SHELL 'INI "$ProtocolINIFile" WRITE tcpip IPAddress0 "$ServerIP"'
'  ' SHELL 'INI "$ProtocolINIFile" WRITE tcpip SubNetMask0 "$ServerSubnetMask"'
'  ' SHELL 'INI "$ProtocolINIFile" WRITE tcpip DefaultGateway0 "$ServerDefaultGateway"'
'  ' SHELL 'INI "$ProtocolINIFile" WRITE tcpip WINS_SERVER0 "$NameServer"'
'  ' SHELL 'INI "$ProtocolINIFile" WRITE tcpip WINS_SERVER1 "$BackupNameServer"'

COLOR g+/n
? 'Configuring System.INI..'
COLOR n/n ?
'  ' SHELL 'INI "$SystemINIFile" WRITE network ComputerName "$ComputerName"'

SHELL 'COMMAND.COM /C ECHO @@ECHO OFF > A:\Images.Bat'
SHELL 'COMMAND.COM /C ECHO NET USE Z: \\$ImageServer\Images /YES >> A:\Images.Bat'
SHELL 'COMMAND.COM /C ECHO Z:\PQDI\IMAGE $ComputerName >> A:\Images.Bat'

GOTO 'Finish'

:Abort

:Finish
 

---

code:

---

; $Filename - INI file to read from
; $Section - SectionName to read from
; $Key - Keyname to read from
; returns $Value

$Value='**Not Found**'

IF OPEN(1,'$Filename')=0
   $KeyLen=LEN($Key)
   $Line=READLINE(1)
   $Found=0
   WHILE @ERROR=0 AND $Found=0
      $FirstChar=SUBSTR($Line,1,1)
      IF $FirstChar<>';'
         IF $FirstChar='['
            IF SUBSTR($Line,2,INSTR($Line,']')-2)=$Section
               $CorrectSection=1
            ELSE
               $CorrectSection=0
            ENDIF
         ELSE
            IF $CorrectSection=1 AND (SUBSTR($Line,1,$KeyLen+1)=($Key+'='))
               $Value=SUBSTR($Line,INSTR($Line,'=')+1,LEN($Line))
               $Found=1
            ENDIF
         ENDIF
      ENDIF
      $Line=READLINE(1)
   LOOP
   IF CLOSE(1)<>0 'Error @ERROR closing file' ? ENDIF
ELSE
   'Error @ERROR while trying to open $Filename' ?
ENDIF
 

---

code:

---

 
; $IPAddress is IP Address to fix

WHILE INSTR($IPAddress,'.')
   $Pos=INSTR($IPAddress,'.')
   $IPAddress=SUBSTR($IPAddress,1,$Pos-1)+' '+SUBSTR($IPAddress,$Pos+1,LEN($IPAddress))
LOOP
 

---

Sigh, if only 2.33 supported UDFs

Cheers,
Michael.