code:

---

 
   $RC = WRITEVALUE("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MSNP32\NetworkProvider","AuthenticatingAgent","CORP","REG_SZ")
IF @ERROR = "0"
   ? "Changed Authenticating agent registry key to CORP."
ELSE
   ? "Unable to change Authenticating Agent registry key to corp."
   $ERRORFLAG = "Y"
ENDIF

   $RC=WriteValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP","Workgroup","CORP","REG_SZ")
IF @ERROR = "0"
   ? "Changed Workgroup registry key to CORP."
ELSE
   ? "Unable to change Workgroup registry key to corp."
   $ERRORFLAG = "Y"
ENDIF
 

---

L8tr..