set-executionpolicy remotesigned
net use P: "\\128.236.164.xx\Public" "xxx" /user:"xxx\xxx"
cd P:\PCdataifo
$Username = Read-Host "请输入使用人！"
$ASSET = Read-Host "固定资产编号！"
$excelApp = New-Object -COM Excel.Application
$file = Join-Path (Get-Location)$Username'.xlsx'
$book = $excelApp.Workbooks.Add()
$sheet = $book.Worksheets.Item(1)
$name="."
$items =get-wmiobject –class win32_networkadapterconfiguration –filter ipenabled=true | select-object –property ipaddress,Description,macaddress
foreach($obj in $items[1]) {
Write-Host "Description :" $obj.Description
Write-Host "MACAddress:" $obj.MACAddress.Split(':')
$ATYPE=$obj.Description
$AAA=$obj.MACAddress
}
foreach($obj1 in $items[2]) {
Write-Host "Description :" $obj1.Description
Write-Host "MACAddress:" $obj1.MACAddress.Split(':')
$ATYPE1=$obj1.Description
$AAA1=$obj1.MACAddress
}
#write-output $hostname
$Pctpye = Read-Host "台式机输入：DTP,笔记本请输入：LTP"
$b=$pctpye+$aaa[0]+$aaa[1]+$aaa[3]+$aaa[4]+$aaa[6]+$aaa[7]+$aaa[9]+$aaa[10]+$aaa[12]+$aaa[13]+$aaa[15]+$aaa[16]
write-output $b
$sheet.Cells.Item(1,1)= "机器名"
$sheet.Cells.Item(1,2)= "用户名"
$sheet.Cells.Item(1,3)= "序列号"
$sheet.Cells.Item(1,4)= "型号"
$sheet.Cells.Item(1,5)= "CPU"
$sheet.Cells.Item(1,6)= "内存"
$sheet.Cells.Item(1,7)= "硬盘"
$sheet.Cells.Item(1,8)= "MAC1"
$sheet.Cells.Item(1,9)= "MAC2"
$sheet.Cells.Item(1,10)= "MAC3"
$sheet.Cells.Item(1,11)= "MAC4"
$sheet.Cells.Item(1,12)= "MAC5"
$sheet.Cells.Item(1,13)= "固定资产编号"
$sheet.Cells.Item(2,1)= $b
$MACADDR=$ATYPE+'/'+$aaa[0]+$aaa[1]+$aaa[3]+$aaa[4]+$aaa[6]+$aaa[7]+$aaa[9]+$aaa[10]+$aaa[12]+$aaa[13]+$aaa[15]+$aaa[16]
$sheet.Cells.Item(2,8)= $MACADDR
$MACADDR1=$ATYPE1+'/'+$aaa1[0]+$aaa1[1]+$aaa1[3]+$aaa1[4]+$aaa1[6]+$aaa1[7]+$aaa1[9]+$aaa1[10]+$aaa1[12]+$aaa1[13]+$aaa1[15]+$aaa1[16]
$sheet.Cells.Item(2,9)= $MACADDR1
#$Username = Read-Hot "请输入使用人！"
$sheet.Cells.Item(2,2)= $Username
$BIOSINFO = Get-WmiObject -Class Win32_BIOS
foreach($BIFO in $BIOSINFO) {
Write-Host "PC Tpye :" $BIFO.Name
$sheet.Cells.Item(2,4)= $BIFO.Name
Write-Host "Serial Number :" $BIFO.SerialNumber
$sheet.Cells.Item(2,3)= $BIFO.SerialNumber
}
$processor = Get-WmiObject -Class Win32_Processor
foreach($pifo in $processor) {
Write-Host "CPU :" $pIFO.Name
$sheet.Cells.Item(2,5)= $pIFO.Name
}
Get-WmiObject -Class Win32_PhysicalMemory | %{$sum = 0} { $sum += $_.Capacity } {$sheet.Cells.Item(2,6)= ($sum/1MB)}
#$disksize =
Get-WmiObject -Class Win32_DiskDrive | %{$sum = 0} { $sum += $_.size } {$sheet.Cells.Item(2,7)= ($sum / 1GB)}
$sheet.Cells.Item(2,13)= $ASSET
#bold the A and B columns and make their text red
$columnsABRange = $sheet.Range("A:B")
$columnsABRange.Font.Bold = $true
$columnsABRange.Font.ColorIndex = 3
$columnsABRange = $null
$book.SaveAs($file)
$excelApp.Quit()
$book = $null
$sheet = $null
$excelApp = $null
[GC]::Collect()
set-itemproperty -path hklm:\SYSTEM\ControlSet001\services\LanmanServer\Parameters -name srvcomment -value $Username
$computer=gwmi win32_computersystem
$computer.rename($b)
Write-Host "The computer name changed!"
restart-computer -Force
