Move Server OU with a VB Script
' Move Computer to Prod Citrix OU
Set WshNetwork = WScript.CreateObject("WScript.Network")
StrComputername= "CN=" & WshNetwork.ComputerName
Set objNewOU = GetObject("LDAP://OU=Live PS45,OU=Citrix W2K3,OU=Servers,DC=thinworld,DC=net")
StrOldOU= "LDAP://" & StrComputername & ",CN=Build ,CN=Servers,DC=thinworld,DC=net"
Set objMoveComputer = objNewOU.MoveHere _
(StroldOU, StrComputerName)
Labels: Scripts
0 Comments:
Post a Comment
<< Home