; 
; Script utilisé pour le déploiement de Windows XP
; Par Laurent
; (c) www.autourdupc.com



function WMIQuery($what,$where, optional $computer)	; ************************************
   dim $strQuery, $objEnumerator, $value
   if not $computer
      $computer="@WKSTA"
   endif
   $strQuery = "Select $what From $where"
   $SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//$computer")
   $objEnumerator = $SystemSet.ExecQuery($strQuery)
   for each $objInstance in $objEnumerator
       if @Error = 0 and $objInstance <> ""
          $=execute("$$value = $$objInstance.$what")
          $WMIQuery="$value"+"|"+"$WMIQuery"
       endif
   next
   $WMIQuery=left($WMIQuery,len($WMIQuery)-1)
   exit @error
endfunction




$SerNo =WMIQuery("SerialNumber","Win32_BIOS")
if len($SerNo) < 2 
   $SerNo=WMIQuery("SerialNumber","Win32_SystemEnclosure")
   if instr($serno,"|")
      for each $return in split($serno,"|")
          if len($return)<10
             $serno=$return
          endif
      next
   endif
endif

shell "NETDOM RENAMECOMPUTER " + @WKSTA + " /NewName:" + $SerNo + " /ud:YOURDOMAINE\CompteAdmin /PasswordD:MotDePasseCompteAdmin /FORCE"
Sleep 5
Sleep 5