#objItem

[ajguides]

Updating Active Directory Computer Description Using SCCM and MDT

Updating Active Directory Computer Description Using SCCM and MDT | https://tinyurl.com/24m5azav | #Guide #MDT #OSD #SCCM You may have seen our previous post on how to set the local computer description during SCCM OSD (Operating System Deployment). Now, with the help of a script and Microsoft Deployment Toolkit (MDT), we can take that local computer description and use it as the Active Directory (AD) computer description. Required Script To achieve this, you’ll need the following script: strModel = GetModelInfostrLocalDescription = GetLocalDescriptionstrDescription = strLocalDescription & ” – ” & strModelUpdateAD Function GetModelInfostrComputer = “.”Set objWMIService = GetObject(“winmgmts:impersonationLevel=impersonate!” & strComputer & “\root\cimv2”)Set colItems = objWMIService.ExecQuery(“Select * from Win32_ComputerSystem”)For Each objItem in colItemsGetModelInfo = objItem.ModelNextEnd Function Function GetLocalDescriptionstrComputer = […] Read more... https://tinyurl.com/24m5azav

[mrtky]

Create a shortcut with script

Create a shortcut with script

I create a shortcut with a script, but why? Some applications do not know the cause, do not create a shortcut during installation or after installation. The following Script allows you to create shortcuts with the variables entered.

The shortcut name, shortcut path, file name of the target application, shortcut icon, and system architecture are automatically selected.

‘Script Started

‘Option…

[jimsjoo]

프로세스 목록 구하기

다음은 프로세스 목록을 구하는 예제이다. 결과는 현재 워크시트에 저장한다. 사실 이건 VBA의 기능은 아니구 셀스크립팅의 파워랄까 Sub getprocess() Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process", , 48) Dim row As Integer row = 1 For Each objItem In colItems ActiveSheet.Cells(row, 1).Value =…