Populate active directory computer description with Location manufacturer's name model number and logged on username

strCSVFile = "\\server\share\CompDescriptions.csv"
Set objNetwork = CreateObject("WScript.Network")
strComputerName = UCase(objNetwork.ComputerName)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const intForReading = 1
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Const HKEY_LOCAL_MACHINE = &H80000002 
Set objDict = CreateObject("Scripting.Dictionary")
Set objCSV = objFSO.OpenTextFile(strCSVFile, intForReading, False)
While Not objCSV.AtEndOfStream
	strLine = objCSV.ReadLine
	If InStr(strLine, ",") > 0 Then
		objDict.Add UCase(Split(strLine, ",")(0)), Split(strLine, ",")(1)
	End If
Wend
objCSV.Close
If objDict.Exists(strComputerName) = True Then
	Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
	Set colItems = objWMIService.ExecQuery("SELECT Manufacturer,Model FROM Win32_ComputerSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
	strDescription = objDict(strComputerName)
	For Each objItem In colItems
		strManufacturer = objItem.Manufacturer
		strModel = objItem.Model
	Next
	strUsername = objNetwork.UserName
	' Set the Domain computer description
	Set objADSysInfo = CreateObject("ADSystemInfo")
	Set objADComputer = GetObject("LDAP://" & objADSysInfo.ComputerName)
	objADComputer.description = strDescription & " | " & strManufacturer & " | " & strModel & " | " & strUsername
	objADComputer.SetInfo
	Set objADComputer = Nothing
	' Now set the local computer description via the srvcomment value in the Registry
	Set objRegistry = GetObject ("winmgmts:\\.\root\default:StdRegProv") 
	strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"
	strValueName = "srvcomment"
	objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strDescription & " | " & strManufacturer & " | " & strModel & " | " & strUsername
	MsgBox "Your description has been updated."
Else
	MsgBox "Could not find " & strComputerName & " in the CSV file."
End If

                                              

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:

strCSVFile = "\\server\share\CompDescriptions.csv"
Set objNetwork = CreateObject("WScript.Network")
strComputerName = UCase(objNetwork.ComputerName)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const intForReading = 1
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Const HKEY_LOCAL_MACHINE = &H80000002 
Set objDict = CreateObject("Scripting.Dictionary")
Set objCSV = objFSO.OpenTextFile(strCSVFile, intForReading, False)
While Not objCSV.AtEndOfStream
	strLine = objCSV.ReadLine
	If InStr(strLine, ",") > 0 Then
		objDict.Add UCase(Split(strLine, ",")(0)), Split(strLine, ",")(1)
	End If
Wend
objCSV.Close
If objDict.Exists(strComputerName) = True Then
	Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
	Set colItems = objWMIService.ExecQuery("SELECT Manufacturer,Model FROM Win32_ComputerSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
	strDescription = objDict(strComputerName)
	For Each objItem In colItems
		strManufacturer = objItem.Manufacturer
		strModel = objItem.Model
	Next
	strUsername = objNetwork.UserName
	' Set the Domain computer description
	Set objADSysInfo = CreateObject("ADSystemInfo")
	Set objADComputer = GetObject("LDAP://" & objADSysInfo.ComputerName)
	objADComputer.description = Replace(Trim(strDescription) & " | " & Trim(strManufacturer) & " | " & Trim(strModel) & " | " & Trim(strUsername), "  ", " ")
	objADComputer.SetInfo
	Set objADComputer = Nothing
	' Now set the local computer description via the srvcomment value in the Registry
	Set objRegistry = GetObject ("winmgmts:\\.\root\default:StdRegProv") 
	strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"
	strValueName = "srvcomment"
	objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, Replace(Trim(strDescription) & " | " & Trim(strManufacturer) & " | " & Trim(strModel) & " | " & Trim(strUsername), "  ", " ")
	RobustServiceRestart ".", "Server"
	MsgBox "Your description has been updated."
Else
	MsgBox "Could not find " & strComputerName & " in the CSV file."
End If
 
Sub RobustServiceRestart(strComputer, strService)
	' From the book "Active Directory, Third Edition"
	' ISBN: 0-596-10173-2
 
	' Stop dependent services
	Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
	Set objServiceList = objWMI.ExecQuery("Associators of " _
		& "{Win32_Service.Name='" & strService & "'} Where " _
		& "AssocClass=Win32_DependentService " & "Role=Antecedent" )
	For Each objService In objServiceList
		objService.StopService()
	Next
	WScript.Sleep 10000   ' Pause to allow services to stop
 
	' Stop target service
	Set objService = objWMI.Get("Win32_Service.Name='" & strService & "'")
	objService.StopService()
	WScript.Sleep 10000   ' Pause to allow service to stop
 
	' Start target service
	Set objService = objWMI.Get("Win32_Service.Name='" & strService & "'")
	objService.StartService()
	WScript.Sleep 10000   ' Pause to allow service to start
 
	' Start dependent services
	Set objServiceList = objWMI.ExecQuery("Associators of " _
		& "{Win32_Service.Name='" & strService & "'} Where " _
		& "AssocClass=Win32_DependentService " & "Role=Antecedent" )
	For Each objService In objServiceList
		objService.StartService()
	Next
End Sub

                                              

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:
69:
70:
71:
72:
73:
74:
75:

strCSVFile = "\\server\share\CompDescriptions.csv"
Set objNetwork = CreateObject("WScript.Network")
strComputerName = UCase(objNetwork.ComputerName)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const intForReading = 1
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Const HKEY_LOCAL_MACHINE = &H80000002 
Set objDict = CreateObject("Scripting.Dictionary")
Set objCSV = objFSO.OpenTextFile(strCSVFile, intForReading, False)
While Not objCSV.AtEndOfStream
	strLine = objCSV.ReadLine
	If InStr(strLine, ",") > 0 Then
		If objDict.Exists(UCase(Split(strLine, ",")(0))) = False Then
			objDict.Add UCase(Split(strLine, ",")(0)), Split(strLine, ",")(1)
		Else
			MsgBox UCase(Split(strLine, ",")(0)) & " already exists in the CSV. Please check that it is not a duplicate."
		End If
	End If
Wend
objCSV.Close
If objDict.Exists(strComputerName) = True Then
	Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
	Set colItems = objWMIService.ExecQuery("SELECT Manufacturer,Model FROM Win32_ComputerSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
	strDescription = objDict(strComputerName)
	For Each objItem In colItems
		strManufacturer = objItem.Manufacturer
		strModel = objItem.Model
	Next
	strUsername = objNetwork.UserName
	' Set the Domain computer description
	Set objADSysInfo = CreateObject("ADSystemInfo")
	Set objADComputer = GetObject("LDAP://" & objADSysInfo.ComputerName)
	objADComputer.description = Replace(Trim(strDescription) & " | " & Trim(strManufacturer) & " | " & Trim(strModel) & " | " & Trim(strUsername), "  ", " ")
	objADComputer.SetInfo
	Set objADComputer = Nothing
	' Now set the local computer description via the srvcomment value in the Registry
	Set objRegistry = GetObject ("winmgmts:\\.\root\default:StdRegProv") 
	strKeyPath = "System\CurrentControlSet\Services\lanmanserver\parameters"
	strValueName = "srvcomment"
	objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, Replace(Trim(strDescription) & " | " & Trim(strManufacturer) & " | " & Trim(strModel) & " | " & Trim(strUsername), "  ", " ")
	RobustServiceRestart ".", "Server"
	MsgBox "Your description has been updated."
Else
	MsgBox "Could not find " & strComputerName & " in the CSV file."
End If
 
Sub RobustServiceRestart(strComputer, strService)
	' From the book "Active Directory, Third Edition"
	' ISBN: 0-596-10173-2
 
	' Stop dependent services
	Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
	Set objServiceList = objWMI.ExecQuery("Associators of " _
		& "{Win32_Service.Name='" & strService & "'} Where " _
		& "AssocClass=Win32_DependentService " & "Role=Antecedent" )
	On Error Resume Next
	For Each objService In objServiceList
		objService.StopService()
	Next
	If Err.Number = 0 Then WScript.Sleep 10000   ' Pause to allow services to stop
	Err.Clear
 
	' Stop target service
	Set objService = objWMI.Get("Win32_Service.Name='" & strService & "'")
	objService.StopService()
	WScript.Sleep 10000   ' Pause to allow service to stop
 	' Start target service
	objService.StartService()
	WScript.Sleep 10000   ' Pause to allow service to start
 
	' Start dependent services
	Set objServiceList = objWMI.ExecQuery("Associators of " _
		& "{Win32_Service.Name='" & strService & "'} Where " _
		& "AssocClass=Win32_DependentService " & "Role=Antecedent" )
	On Error Resume Next
	For Each objService In objServiceList
		objService.StartService()
	Next
	Err.Clear
	On Error GoTo 0
End Sub

                                              

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:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82: