Hi everyone,

I am in the process of migrating from a poorly put together Novell 5.1 Domain to an 2003 AD domain. I'm rying to convert the following VB script to KiXtart and am having a little trouble. I have run Sanity against My conversion and do not receive anything but the time. When I run the script in KiXtart I receive the error

Quote:

ERROR: expected ')'!
Line: 39

My script:

Code:

 DIM $JOIN_DOMAIN
DIM $ACCT_CREATE
DIM $ACCT_DELETE
DIM $WIN9X_UPGRADE
DIM $DOMAIN_JOIN_IF_JOINED
DIM $JOIN_UNSECURE
DIM $MACHINE_PASSWORD_PASSED
DIM $DEFERRED_SPN_SET
DIM $INSTALL_INVOCATION
DIM $strDomain
DIM $strPassword
DIM $strUser
DIM $objNetwork
DIM $strComputer
DIM $objComputer
DIM $rc


$JOIN_DOMAIN = 1
$ACCT_CREATE = 2
$ACCT_DELETE = 4
$WIN9X_UPGRADE = 16
$DOMAIN_JOIN_IF_JOINED = 32
$JOIN_UNSECURE = 64
$MACHINE_PASSWORD_PASSED = 128
$DEFERRED_SPN_SET = 256
$INSTALL_INVOCATION = 262144

$strDomain = "Bandcamp.local"
$strPassword = "Flute"
$strUser = "Say my Name!"

$objNetwork = CreateObject("WScript.Network")
$strComputer = $objNetwork.ComputerName


$objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!//$strComputer")

$rc=$objComputer.JoinDomainOrWorkGroup($strDomain,$strPassword, $strUser, '', $JOIN_DOMAIN + $ACCT_CREATE)

Original VBS:

Code:

Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

strDomain = "Cnail.com"
strPassword = "hicane"
strUser = "jdewith"

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
   strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _
       strComputer & "'")

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
   strPassword, strDomain & "\" & strUser, NULL, _
       JOIN_DOMAIN + ACCT_CREATE)

You help, as always, is appreciated,
Jason

$newname = 'NewName' $objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $strComputer + "\root\cimv2") $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each $objComputer in $colComputers $err = $objComputer.Rename($NewName, $password, $user) If $err $nul = sendmessage(@wksta, "Failed Renaming "+@wksta+" to "+$NewName + @crlf + $err) else $nul = sendmessage(@wksta, "Updates to this PC require the computer to reboot. Please reboot at your earliest convenience.") endif Next