SCCM / SMS VBScript

SCCM – Roger Zander Sourceforge Tools

by

Roger Zander Sourceforge Tools And Utilities SMS/SCCM Peer2Peer AddOn SMSTorrent is a Peer2Peer AddOn for SMS2003/SCCM2007 Clients. SMS/SCCM Clients are able to share the local Package cache with other Clients using the BitTorrent filesharing protocol. https://sourceforge.net/projects/smstorrent SMS Site Settings tweak SMSSettings provides a GUI to modify SMS2003 (Microsoft System Management Server 2003) Site Settings which … Read more

script that has WMI connection error will skip it and move to next

by

strComputer = “MYcomputername” Set objExcel = CreateObject(“Excel.Application”) objExcel.Visible = True objExcel.Workbooks.Add intRow = 2 objExcel.Cells(1, 1).Value = “Logon Name” objExcel.Cells(1, 2).Value = “Full Name” objExcel.Cells(1, 3).Value = “Description” objExcel.Cells(1, 4).Value = “Domain” objExcel.Cells(1, 5).Value = “Password Changeable” objExcel.Cells(1, 6).Value = “Password Required” objExcel.Cells(1, 7).Value = “Password Expires” objExcel.Cells(1, 8).Value = “Account Disabled” objExcel.Cells(1, 9).Value = … Read more

‘Below script to create number of computers in AD–for testing

by

‘Below script to create number of computers in AD–for testing ‘============================================================================== ‘ ‘ Description: This script creates multiple sequential computer accounts ‘ in an AD OU. It appends a 3 digit number to the base name starting with ‘ the number entered at the prompt. ‘ ============================================================================== Option Explicit ‘Define Constants Const ADS_SCOPE_ONELEVEL = 1 … Read more

'Below script to create number of computers in AD–for testing

by

‘Below script to create number of computers in AD–for testing ‘============================================================================== ‘ ‘ Description: This script creates multiple sequential computer accounts ‘ in an AD OU. It appends a 3 digit number to the base name starting with ‘ the number entered at the prompt. ‘ ============================================================================== Option Explicit ‘Define Constants Const ADS_SCOPE_ONELEVEL = 1 … Read more

Creating 1000 User Accounts

by

———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————– –Creating 1000 User Accounts   Set objRootDSE = GetObject("LDAP://rootDSE")Set objContainer = GetObject("LDAP://cn=Users," & _    objRootDSE.Get("defaultNamingContext")) For i = 1 To 1000    Set objLeaf = objContainer.Create("User", "cn=UserNo" & i)     objLeaf.Put "sAMAccountName", "UserNo" & i    objLeaf.SetInfoNext WScript.Echo "1000 Users created."     ———————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————–—-Creating an Active Directory User Account————————————————————————-   Creates a user account in Active … Read more