Fråga : Formatera för hjälp som tillverkas i Powershell

HälsningPowershell experter, chef för

My har frågat för en lista av serveror, och deras följetong numrerar.  Detta är hur I-förmiddagen som samlar denna information:

$Servers = Får-QADComputer - ManagedBy DEN | sortera-anmärka | Välja-Anmärka känd

foreach ($server i $Servers) {
Get-WmiObject - klassificera Win32_SystemEnclosure - computerNamen $server. Namnge | Välja-Anmärka

How för serialnumber
} kan mig få tillverkad in i en bordlägga som består av två kolonner?  Jag skulle något liknande det för att se lik:

Name SerialNumber
Server1 1234
Server2 5678


I vet att denna är en rookie ifrågasätter, men I-förmiddagen som drar en blank.

Thanks,
Nick
 " klar "

Svar : Formatera för hjälp som tillverkas i Powershell

Hade en typo.  Försök som detta behar.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

På felmeritförteckning därefter

Const ADS_SCOPE_SUBTREE = 'sökande 2 uppsätta som mål anmärker, och all suben jämnar


Dunkel objRootDSE: Fastställd objRootDSE = GetObject (”LDAP: //RootDSE”)
strDNSDomain = byter ut (byt ut (objRootDSE.Get (”defaultNamingContext”),”, DC= ", ”. ”), ”DC=”, "")

strADsPath = ”LDAP: /” & objRootDSE.Get (”defaultNamingContext”)

'Förbind till aktivarkivet
Fastställd objConnection = CreateObject (”ADODB.Connection”)
Fastställd objCommand = CreateObject (”ADODB.Command”)
objConnection.Provider = ”ADsDSOObject”,
objConnection.Open ”aktivarkivfamiljeförsörjare”,
Uppsättning objCommand.ActiveConnection = objConnection
objCommand.Properties (”sidan storleksanpassar”), = 1000
objCommand.Properties (”Searchscope”) = ADS_SCOPE_SUBTREE

 
Dunkel objOU: Fastställd objOU = GetObject (”LDAP: /” & TARGET_OU)
 
Dunkel objExcel: Fastställd objExcel = CreateObject (”Excel.Application”)
Dunkel objWorkbook: Fastställd objWorkbook = objExcel.Workbooks.Open (EXCEL_FILE)
 
'Starten på ror 2, efter titelraden.
Dunkel intRow: intRow = 2
 
Gör till objExcel.Cells (intRow, 1). Värdera = "",
		  
	Dunkel strUserName: strUserName = objExcel.Cells (intRow, 1). Värdera
	Dunkel strDisplayName: strDisplayName = objExcel.Cells (intRow, 2). Värdera
	Dunkel strFirstName: strFirstName = objExcel.Cells (intRow, 3). Värdera
	Dunkel strLastName: strLastName = objExcel.Cells (intRow, 4). Värdera
	Dunkel strDS: strDS = objExcel.Cells (intRow, 5). Värdera  
	'Dunkel strOffice: strOffice = objExcel.Cells (intRow, 6). Värdera
	Dunkel strPWD: strPWD = objExcel.Cells (intRow, 7). Värdera
			
	'SökandeANNONSområdet som verifierar den vanligt kända användaren, inte finns redan
	objCommand.CommandText = ”VALD distinguishedName FRÅN '” & strADsPath & _,
	””VAR objectCategory='user” OCH cn='" & strDisplayName & ”'”,
	Fastställd objRecordSet = objCommand.Execute
	Om objRecordSet.EOF därefter
					 
		Dunkel objUser: Fastställd objUser = objOU.Create (”användare”, ”CN=” & strDisplayName)
		objUser.Put ”sAMAccountName”, strUserName
		objUser.Put ”userPrincipalName”, strUserName & ”@” & strDNSDomain
		objUser.Put ”displayName”, strDisplayName
		objUser.Put ”sn”, strLastName
		objUser.Put ”givenName”, strFirstName
		objUser.Put ”beskrivning”, strDS
		'objUser.Put ”physicalDeliveryOfficeName”, strOffice
		”homeDrive” objUser.Put, ”X: ”,
		”homeDirectory” objUser.Put,” \ \ shadowcom.local \ system \ profilerar \ ”& strUsername
		objUser.SetInfo
		'Separat sektion til importaf-lösenord til brugerne
		objUser.userAccountControl = 512
		objUser.SetPassword-strPWD
		objUser.AccountDisabled = falskt
		objUser.SetInfo
	Avsluta om
		
	intRow = intRow + 1
Kretsa
 
objExcel.ActiveWorkbook.Save EXCEL_FILE
objExcel.ActiveWorkbook.Close
objExcel.Quit
Andra lösningar  
 
programming4us programming4us