Que Nguyen's Microsoft techology blog : {Scripting}

Hyper-V Scripting

quenguyen — Fri, 23 Oct 2009 08:18:00 GMT

* Dung K Hoang (HP USA) blog: http://dungkhoang.spaces.live.com/default.aspx * Hyper-V remote management configuration: http://code.msdn.microsoft.com/HVRemote...(read more)

ISA Server logging

quenguyen — Mon, 22 Dec 2008 10:51:00 GMT

In order to query the log, in addtion to the builtin query viewer of ISA, you can install SQL client tools, then use SQL Analyzer to connect to ISA-SERVER\MSFW (replace ISA-SERVER with your actual server name) and query the log. See the example here ....(read more)

Programmatically change phone numbers in Outlook

quenguyen — Tue, 21 Oct 2008 13:19:00 GMT

First of all, you need to allow Macro execution by going to Tools/Marcro/Security, then restart Outlook Press Alt-F11 to open the Macro window. Below is the code skeleton for you to start with. Sub Outlook_Contact_Change() Dim folder As Outlook.folder...(read more)

Scripting - Sample Users/Group creation in AD

quenguyen — Thu, 16 Oct 2008 14:39:00 GMT

Set oRoot = GetObject("LDAP://rootDSE")
Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext"))

Set oOU=oDomain.Create("organizationalUnit", "ou=My Corp Users")
oOU.SetInfo

Set oUser = oOU.Create("User", "cn=Director One")
oUser.Put "sAMAccountName", "director1"
oUser.SetInfo

oUser.givenName="Director One"
oUser.displayName="Director One"
oUser.title="Managing Director"
oUser.department="Director Dept"
oUser.mail="director1@mycompany.com.vn"
oUser.employeeID=789

SetCommonProps(oUser)

Set oUser = oOU.Create("User", "cn=Manager One")
oUser.Put "sAMAccountName", "manager1"
oUser.SetInfo

oUser.givenName="Manager One"
oUser.displayName="Manager One"
oUser.title="Sales Manager"
oUser.department="Sales & Marketing Dept"
oUser.mail="manager1@mycompany.com.vn"
oUser.employeeID=678
oUser.manager="CN=Director One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn"

SetCommonProps(oUser)

Set oUser = oOU.Create("User", "cn=Staff One")
oUser.Put "sAMAccountName", "staff1"
oUser.SetInfo

oUser.givenName="Staff One"
oUser.displayName="Staff One"
oUser.title="Sales Executive"
oUser.department="Sales & Marketing Dept"
oUser.mail="staff1@mycompany.com.vn"
oUser.employeeID=123
oUser.manager="CN=Manager One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn"

SetCommonProps(oUser)

Set oUser = oOU.Create("User", "cn=Staff Two")
oUser.Put "sAMAccountName", "staff2"
oUser.SetInfo

oUser.givenName="Staff Two"
oUser.displayName="Staff Two"
oUser.title="Cashier"
oUser.department="Sales & Marketing Dept"
oUser.mail="staff2@mycompany.com.vn"
oUser.employeeID=234
oUser.manager="CN=Manager One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn"

SetCommonProps(oUser)

Set oUser = GetObject("LDAP://CN=Administrator,CN=Users,DC=mycompany,DC=com,DC=vn")
oUser.givenName="Administrator"
oUser.displayName="Administrator"
oUser.title="System Admin"
oUser.department="Director Dept"
oUser.mail="administrator@mycompany.com.vn"
oUser.employeeID=012
oUser.manager="CN=Director One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn"
oUser.SetInfo

SetCommonProps(oUser)

Set oGroup = oOU.Create("Group", "cn=Directors") 'Global group creation
oGroup.Put "sAMAccountName", "Directors"
oGroup.SetInfo
oGroup.member="CN=Director One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn"
oGroup.SetInfo

Set oGroup = oOU.Create("Group", "cn=Chief Accountants")
oGroup.Put "sAMAccountName", "ChiefAccountants"
oGroup.SetInfo
oGroup.member="CN=Manager One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn"
oGroup.SetInfo

Set oGroup = oOU.Create("Group", "cn=Accountants") 'Global group creation
oGroup.Put "sAMAccountName", "Accountants"
oGroup.SetInfo
oGroup.member="CN=Staff One,OU=My Corp Users,DC=mycompany,DC=com,DC=vn"
oGroup.SetInfo

Wscript.Echo "Users/Groups Creation Successul!"

sub SetCommonProps(oUser)
oUser.SetPassword "P@ssw0rd"
oUser.AccountDisabled = False
oUser.company="My Company"
oUser.streetAddress="123 XYZ Street"
oUser.l="Hanoi"
oUser.c="VN"
oUser.telephoneNumber="+84-4-123-45678"
oUser.mobile="+84-9-1234-5678"
oUser.userAccountControl=66080 '0x10220=PASSWD_NOTREQD|NORMAL_ACCOUNT|DONT_EXPIRE_PASSWD)
oUser.SetInfo
end sub

Windows Server scripting - first steps

quenguyen — Thu, 16 Oct 2008 14:37:00 GMT

************ Server machines << note the number 1 at the end of netsh command, which is for the metric of the 192.168.1.10 gateway >>
netsh interface ip set address name="Local Area Connection" static 192.168.1.1 255.255.255.0 192.168.1.10 1
netsh interface ip set dns name="Local Area Connection" static 192.168.1.1 primary

netdom renamecomputer %COMPUTERNAME% /NewName HAN-SRV-01 /ReBoot:5

netdom join %COMPUTERNAME% /domain:MYCOMPANY /ReBoot:5

************ Domain controllers for new domains
UNATTEND.TXT

[DCInstall]
DNSOnNetwork=No
DomainLevel=3
DomainNetBiosName=MYCOMPANY
ForestLevel=3
NewDomain=Forest
NewDomainDNSName=mycompany.com.vn
RebootOnCompletion=Yes
ReplicaOrNewDomain=Domain
SafeModeAdminPassword=P@ssw0rd

dcpromo /unattend:unattend.txt

************ Additional domain controllers

[DCInstall]
UserName=Administrator
Password=P@ssw0rd
UserDomain=mycompany.com.vn
DatabasePath=c:\windows\ntds
LogPath=c:\windows\ntds
SysVolPath=c:\windows\sysvol
SafeModeAdminPassword=P@ssw0rd
ReplicaOrNewDomain=Replica
ReplicaDomainDNSName=mycompany.com.vn
ReplicationSourceDC=han-srv-01.mycompany.com.vn
InstallDNS=yes

ConfirmGC=yes

RebootOnCompletion=yes

*********** additional RODC on a Server Core

; DCPROMO unattend file, automatically generated by dcpromo, by clicking the Export button at the end of the dcpromo wizard on a previous additional domain controller
; Usage: ; dcpromo.exe /unattend:C:\RODC-unattend.txt
; You may need to fill in password fields prior to using the unattend file. ; If you leave the values for "Password" and/or "DNSDelegationPassword" as "*", then you will be asked for credentials at runtime. Please use the domain admin, not the local admin of the Server Core
[DCInstall]
; Read-Only Replica DC promotion
ReplicaOrNewDomain=ReadOnlyReplica
ReplicaDomainDNSName=mycompany.com.vn
DelegatedAdmin="Administrator"
SiteName=Default-First-Site-Name
InstallDNS=Yes
ConfirmGc=Yes
CreateDNSDelegation=No
UserDomain=mycompany.com.vn
UserName=mycompany\administrator
Password=*
DatabasePath="C:\Windows\NTDS"
LogPath="C:\Windows\NTDS"
SYSVOLPath="C:\Windows\SYSVOL"
; Set SafeModeAdminPassword to the correct value prior to using the unattend file
SafeModeAdminPassword=P@ssw0rd
; Run-time flags (optional)
; CriticalReplicationOnly=Yes
; RebootOnCompletion=Yes

************ Client machines
netsh interface ip set address name="Local Area Connection" dhcp