quote:
Dim strPrjPath
strPrjPath = "E:\Project\WinCC_PRO\RedOPCServer\RedOPCServer.MCP"
Dim oShell,strComputerName
Set oShell = CreateObject("Ws cript.Shell")
strComputerName=oShell.Environment("PROCESS").Item("ComputerName")

Dim oPrjOperation
Set oPrjOperation=CreateObject("CCDmPrjOperations.CCDmPrjOperations.1")
oPrjOperation.RenameServer strPrjPath,strComputerName
Set oPrjOperation = nothing

---