Basic Scripts for Windows Server


If you’re new to Windows Server, you may need some help getting started or transitioning from another environment.  Gus Weber pointed me to the TechNet Script Center and some Sample Scripts.  In addition, here are a few commonly used scripts.


Adding a User “myerKen” in an Active Directory environment, where the OU = management, in the fabrikam domain:

Set objOU = GetObject(“LDAP://OU=management,dc=fabrikam,dc=com”)

Set objUser = objOU.Create(“User”, “cn=MyerKen”)
objUser.Put “sAMAccountName”, “myerken”
objUser.SetInfo


 


Creating a backup of all event logs

 strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2“)

Set colLoggedEvents = objWMIService.ExecQuery _
(“Select * from Win32_NTLogEvent Where Logfile = ‘Application’“)

For Each objEvent in colLoggedEvents
Wscript.Echo “Category: ” & objEvent.Category
Wscript.Echo “
Computer Name: ” & objEvent.ComputerName
Wscript.Echo “
Event Code: ” & objEvent.EventCode
Wscript.Echo “
Message: ” & objEvent.Message
Wscript.Echo “
Record Number: ” & objEvent.RecordNumber
Wscript.Echo “
Source Name: ” & objEvent.SourceName
Wscript.Echo “
Time Written: ” & objEvent.TimeWritten
Wscript.Echo “
Event Type: ” & objEvent.Type
Wscript.Echo “
User: ” & objEvent.User
Next


Comments (2)

  1. Springboard says:

    In my last post, Basic Scripts for Windows Server , I posted some code onto my blog. I found a great

  2. In my last post, Basic Scripts for Windows Server , I posted some code onto my blog. I found a great