$computer = "172.60.10.10" 
$User = "domain\clientadm"
$Passwd = "silentadm"


$rc = fnRemoteExec('MsiExec.exe /i \\Appserv\StandardApps\Acdsee\Acdess.msi /quiet', $computer, $User, $Passwd) 

? $rc


Function fnRemoteExec($sCommand,Optional $sComputer,Optional   $sUser,Optional $sPwd)
    Dim $objLocator,$objSvc,$objSet
    $objLocator = CreateObject("WbemScripting.SwbemLocator")
    $objSvc = IIf($sComputer='',$objLocator.ConnectServer(),$objLocator.ConnectServer($sComputer,,$sUser,$sPwd))
    If @ERROR Exit @ERROR EndIf
    $objSet = $objSvc.Get("Win32_Process")
    If @ERROR Exit @ERROR EndIf
    $fnRemoteExec = $objSet.Create($sCommand)
    Exit @ERROR
EndFunction