PoshCode Archive  Hex Artifact Content

Artifact 07f89dc90bc3bbd78b2ed49100f05475e6c7bda643e05964472ec945cd77263c:

  • File Set-Computername.ps1 — part of check-in [a30e7f1b9b] at 2018-06-10 13:19:03 on branch trunk — A function to rename a computer (user: Gerald Klassen size: 953)

0000: 23 20 65 6e 63 6f 64 69 6e 67 3a 20 61 73 63 69  # encoding: asci
0010: 69 0d 0a 23 20 61 70 69 3a 20 70 6f 77 65 72 73  i..# api: powers
0020: 68 65 6c 6c 0d 0a 23 20 74 69 74 6c 65 3a 20 53  hell..# title: S
0030: 65 74 2d 43 6f 6d 70 75 74 65 72 6e 61 6d 65 0d  et-Computername.
0040: 0a 23 20 64 65 73 63 72 69 70 74 69 6f 6e 3a 20  .# description: 
0050: 41 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 72 65  A function to re
0060: 6e 61 6d 65 20 61 20 63 6f 6d 70 75 74 65 72 0d  name a computer.
0070: 0a 23 20 76 65 72 73 69 6f 6e 3a 20 30 2e 31 0d  .# version: 0.1.
0080: 0a 23 20 74 79 70 65 3a 20 66 75 6e 63 74 69 6f  .# type: functio
0090: 6e 0d 0a 23 20 61 75 74 68 6f 72 3a 20 47 65 72  n..# author: Ger
00a0: 61 6c 64 20 4b 6c 61 73 73 65 6e 0d 0a 23 20 6c  ald Klassen..# l
00b0: 69 63 65 6e 73 65 3a 20 43 43 30 0d 0a 23 20 66  icense: CC0..# f
00c0: 75 6e 63 74 69 6f 6e 3a 20 53 65 74 2d 43 6f 6d  unction: Set-Com
00d0: 70 75 74 65 72 4e 61 6d 65 0d 0a 23 20 78 2d 70  puterName..# x-p
00e0: 6f 73 68 63 6f 64 65 2d 69 64 3a 20 33 30 32 38  oshcode-id: 3028
00f0: 0d 0a 23 20 78 2d 61 72 63 68 69 76 65 64 3a 20  ..# x-archived: 
0100: 32 30 31 31 2d 31 30 2d 33 30 54 31 39 3a 32 30  2011-10-30T19:20
0110: 3a 30 35 0d 0a 23 20 78 2d 70 75 62 6c 69 73 68  :05..# x-publish
0120: 65 64 3a 20 32 30 31 31 2d 31 30 2d 32 37 54 31  ed: 2011-10-27T1
0130: 39 3a 35 34 3a 30 30 0d 0a 23 0d 0a 23 20 41 6e  9:54:00..#..# An
0140: 64 79 20 53 63 68 6e 65 69 64 65 72 0d 0a 23 20  dy Schneider..# 
0150: 67 65 74 2d 70 6f 77 65 72 73 68 65 6c 6c 2e 63  get-powershell.c
0160: 6f 6d 0d 0a 23 20 41 64 64 20 63 61 70 61 62 69  om..# Add capabi
0170: 6c 69 74 79 20 74 6f 20 63 68 61 6e 67 65 20 6e  lity to change n
0180: 61 6d 65 20 6f 6e 20 72 65 6d 6f 74 65 20 50 43  ame on remote PC
0190: 20 61 6e 64 20 55 70 64 61 74 65 20 55 73 61 67   and Update Usag
01a0: 65 20 73 74 61 74 65 6d 65 6e 74 0d 0a 23 20 47  e statement..# G
01b0: 65 72 61 6c 64 20 4b 6c 61 73 73 65 6e 0d 0a 23  erald Klassen..#
01c0: 0d 0a 66 75 6e 63 74 69 6f 6e 20 53 65 74 2d 43  ..function Set-C
01d0: 6f 6d 70 75 74 65 72 4e 61 6d 65 20 7b 0d 0a 09  omputerName {...
01e0: 70 61 72 61 6d 28 09 5b 73 77 69 74 63 68 5d 24  param(.[switch]$
01f0: 68 65 6c 70 2c 0d 0a 09 09 5b 73 74 72 69 6e 67  help,....[string
0200: 5d 24 6f 72 69 67 69 6e 61 6c 50 43 4e 61 6d 65  ]$originalPCName
0210: 3d 24 28 72 65 61 64 2d 68 6f 73 74 20 22 50 6c  =$(read-host "Pl
0220: 65 61 73 65 20 73 70 65 63 69 66 79 20 74 68 65  ease specify the
0230: 20 63 75 72 72 65 6e 74 20 6e 61 6d 65 20 6f 66   current name of
0240: 20 74 68 65 20 63 6f 6d 70 75 74 65 72 22 29 2c   the computer"),
0250: 0d 0a 09 09 5b 73 74 72 69 6e 67 5d 24 63 6f 6d  ....[string]$com
0260: 70 75 74 65 72 4e 61 6d 65 3d 24 28 72 65 61 64  puterName=$(read
0270: 2d 68 6f 73 74 20 22 50 6c 65 61 73 65 20 73 70  -host "Please sp
0280: 65 63 69 66 79 20 74 68 65 20 6e 65 77 20 6e 61  ecify the new na
0290: 6d 65 20 6f 66 20 74 68 65 20 63 6f 6d 70 75 74  me of the comput
02a0: 65 72 22 29 29 0d 0a 09 09 09 0d 0a 09 24 75 73  er"))........$us
02b0: 61 67 65 20 3d 20 22 73 65 74 2d 43 6f 6d 70 75  age = "set-Compu
02c0: 74 65 72 4e 61 6d 65 20 2d 6f 72 69 67 69 6e 61  terName -origina
02d0: 6c 50 43 6e 61 6d 65 20 43 75 72 72 65 6e 74 4e  lPCname CurrentN
02e0: 61 6d 65 20 2d 63 6f 6d 70 75 74 65 72 6e 61 6d  ame -computernam
02f0: 65 20 41 6e 65 77 4e 61 6d 65 22 0d 0a 09 69 66  e AnewName"...if
0300: 20 28 24 68 65 6c 70 29 20 7b 57 72 69 74 65 2d   ($help) {Write-
0310: 48 6f 73 74 20 24 75 73 61 67 65 3b 62 72 65 61  Host $usage;brea
0320: 6b 7d 0d 0a 09 0d 0a 09 24 63 6f 6d 70 75 74 65  k}......$compute
0330: 72 20 3d 20 47 65 74 2d 57 6d 69 4f 62 6a 65 63  r = Get-WmiObjec
0340: 74 20 57 69 6e 33 32 5f 43 6f 6d 70 75 74 65 72  t Win32_Computer
0350: 53 79 73 74 65 6d 20 2d 4f 72 69 67 69 6e 61 6c  System -Original
0360: 50 43 6e 61 6d 65 20 4f 72 69 67 69 6e 61 6c 4e  PCname OriginalN
0370: 61 6d 65 20 2d 63 6f 6d 70 75 74 65 72 6e 61 6d  ame -computernam
0380: 65 20 24 6f 72 69 67 69 6e 61 6c 50 43 4e 61 6d  e $originalPCNam
0390: 65 0d 0a 09 24 63 6f 6d 70 75 74 65 72 2e 52 65  e...$computer.Re
03a0: 6e 61 6d 65 28 24 63 6f 6d 70 75 74 65 72 4e 61  name($computerNa
03b0: 6d 65 29 0d 0a 09 7d 0d 0a                       me)...}..