[Techinfo] HDD klonozása

[Takács Tibor]

Sziasztok!

A script a következő, vbs-ben készült, a GroupPolicy hívja meg, így 
helyi rg jogokkal fut le minden gépinduláskor:

Dim oSysInfo
Set oSysInfo = CreateObject("WinNTSystemInfo")

Dim Stuff, myFSO, WriteStuff, dateStamp
dateStamp = Date()

'Write information to Text File
Stuff = " "

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set WriteStuff = myFSO.CreateTextFile("c:\windows\temp\pimage.log")
WriteStuff.WriteLine date



Dim CompName
CompName = oSysInfo.ComputerName
gepterem="kgt"


strComputer = "."
Set objWMIService = GetObject( _
     "winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
     ("Select IPAddress from Win32_NetworkAdapterConfiguration ")

Set WshShell = wscript.createobject("wscript.shell")

For Each IPConfig in IPConfigSet
     If Not IsNull(IPConfig.IPAddress) Then
         For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
               if instr(ltrim(IPConfig.ipaddress(i)),"192.168.10")=1 then
                  ip=(mid(IPConfig.IPAddress(i),13,20))
                  net=(mid(IPConfig.IPAddress(i),9,3))
                  if instr(ucase(net),ucase("101"))>0 then
                    gepterem="EGT"
                  end if
                  if instr(ucase(net),ucase("102"))>0 then
                    gepterem="VBGT"
                  end if

                  if instr(ucase(net),ucase("103"))>0 then
                    gepterem="TI"
                  end if

                  if instr(ucase(net),ucase("104"))>0 then
                    gepterem="AGT"
                  end if

                  if instr(ucase(net),ucase("109"))>0 then
                    gepterem="XC"
                  end if
                  while len(ip)<2
                      ip="0"+ip
                  wend
                  if ucase(compname) <> ucase(gepterem+ip) then
                    WriteStuff.WriteLine("uj nev:"+gepterem+ip)
                    WshShell.Run "c:\windows\pimage\wsname.exe 
/logfile:c:\windows\temp\wsname.log /lot /n:"+gepterem+ip+" 
/wg:"+gepterem ,2 ,true
                    WriteStuff.WriteLine("reg.exe")
                    wshshell.run "reg.exe delete 
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate /v 
SusClientID /f" ,2 ,true
                    WriteStuff.WriteLine("wuauclt")
                    wshshell.run "wuauclt.exe /resetauthorization" ,2 ,true
                    WriteStuff.WriteLine("restart...")
                    WriteStuff.close
                    wshshell.Run("shutdown -t 10 -r ")
                  end if
               end if
         Next
     End If
Next
Writestuff.close

Tippeket, ötleteket, hozzászólásokat várom!

Üdv:

                TT

2019.07.17. 10:45 keltezéssel, Alaksza Balázs írta:
> Engem érdekelne, miben készült? domainbe léptetéshez esetleg ez? 
> <https://docs.microsoft.com/en-us/powershell/module/microsoft.powershell.management/add-computer?view=powershell-5.1>
>